none
Problème de sélection pour définir une plage RRS feed

  • Question

  • Bonjour,

    Avec Excel 2003, Je souhaiterais définir des plages automatiquement mais je bloque.
    je dois faire 1 plage / colonne.

    Le nombre de colonnes peut varier, c'est pour cela que je me sert de ma plage "Liste_DI".

    Voici mon Code:

        Sub Redef_xPlages()
        Application.Goto Reference:="Liste_SDI" 'Plage en horizontal "AG4:AO4"
        For Each CELL In Selection
            If CELL <> "" Then
            CELL.Select
       
            Range(ActiveCell.Offset(1, 0), ActiveCell.End(xlDown)).Select
            Sélection.Name = "x" & Activecell.Value
       
            End If
        Next CELL
        End Sub

    L'endroit où cela bloque c'est que le - ActiveCell.End(xlDown) - ne sélectionne pas la dernière valeur de ma colonne.

    Cela prend en compte mes cellules vides et ne prend que les valeurs sous ma cellule de départ jusqu'à la première cellule vide.

    Je souhaiterais pouvoir sélectionner la dernière cellule "non vide" de la colonne où se trouve mon "ActiveCell" (sachant qu'il y a des cellules vides entre-deux).

    J'espère être assez explicite ...

    Si quelqu'un peut m'aider, je l'en remercie par avance.

    Tatane1.

    mardi 21 septembre 2010 14:15

Réponses

  • bonjour Tatane1,

    remplacer
    ActiveCell.End(xlDown)
    par
    Cells(65535, ActiveCell.Column).End(xlUp)

    isabelle
     Le 2010-09-21 10:15, Tatane1 a écrit :

    Bonjour,


    Avec Excel 2003, Je souhaiterais définir des plages automatiquement mais je bloque.
    je dois faire 1 plage / colonne.

    Le nombre de colonnes peut varier, c'est pour cela que je me sert de ma plage "Liste_DI".

    Voici mon Code:

         Sub Redef_xPlages()
         Application.Goto Reference:="Liste_SDI" 'Plage en horizontal "AG4:AO4"
         For Each CELL In Selection
             If CELL<>  "" Then
             CELL.Select

             Range(ActiveCell.Offset(1, 0), ActiveCell.End(xlDown)).Select
             Sélection.Name = "x"&  Activecell.Value

             End If
         Next CELL
         End Sub

    L'endroit où cela bloque c'est que le - ActiveCell.End(xlDown) - ne sélectionne pas la dernière valeur de ma colonne.

    Cela prend en compte mes cellules vides et ne prend que les valeurs sous ma cellule de départ jusqu'à la première cellule vide.

    Je souhaiterais pouvoir sélectionner la dernière cellule "non vide" de la colonne où se trouve mon "ActiveCell" (sachant qu'il y a des cellules vides entre-deux).

    J'espère être assez explicite ...

    Si quelqu'un peut m'aider, je l'en remercie par avance.

    Tatane1.

    • Proposé comme réponse EhJoe vendredi 24 septembre 2010 19:23
    • Marqué comme réponse Alex Petrescu mercredi 29 septembre 2010 10:58
    mercredi 22 septembre 2010 13:51