Macro pour trouver dernière valeur d'une colonne

Résolu
CBRiste31 Messages postés 84 Statut Membre -  
CBRiste31 Messages postés 84 Statut Membre -

Bonjour,

Je souhaiterais, à l'aide d'une petite macro, sélectionner dans une colonne, la plage de cellules contenant des valeurs.

Dans l'exemple ci-joint, en colonne B, une formule est tirée jusqu'en ligne 20 .   Ce que je souhaiterais c'est que la macro ne sélectionne que la plage contenant des valeurs, soit de B1 à B8 et occulte les cellules B9 à B20 dans lesquelles figurent la formule, mais pas de résultat.

https://uploadnow.io/f/0177z6x

Merci d'avance !

Gexelpas
Windows / Chrome 109.0.0.0

4 réponses

  1.
    NonoM45 Messages postés 1020 Date d'inscription   Statut Membre Dernière intervention   5
     

    Bonjour,

    Peut-être avec ceci 

    Sub SelectionCellules()
  Dim dLig As Long, Lig As Long
  With Sheets("Feuil1")
    dLig = .Range("B" & Rows.Count).End(xlUp).Row
    For Lig = 1 To dLig
      If .Range("B" & Lig) = "" Then Exit For
    Next Lig
    Lig = Lig - 1
    .Range("B1:B" & Lig).Select
  End With
End Sub

    A+

    1
  2. CBRiste31 Messages postés 84 Statut Membre 3
     

    Bonjour et merci :bcp !!   :-)

    C'est exactement ce qu'il me fallait !

    Cdlt,

    Gexelpas

    1
  3. danielc0 Messages postés 2192 Date d'inscription   Statut Membre Dernière intervention   287
     

    Bonjour à tous,

    Une autre façon :

    Sub test()
  l = Evaluate("MATCH(TRUE,B:B="""",0)") - 1
  Range("B1:B" & l).Select
End Sub
    0
  4. CBRiste31 Messages postés 84 Statut Membre 3
     

    Bonjour Daniel,

    Egalement top ! Merci :-)

    Cdlt,

    Gexelpas

    0