Macro pour trouver dernière valeur d'une colonne

Résolu
CBRiste31 Messages postés 70 Date d'inscription   Statut Membre Dernière intervention   -  
danielc0 Messages postés 1881 Date d'inscription   Statut Membre Dernière intervention   -

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

A voir également:

3 réponses

Réponse 1 / 3
NonoM45 Messages postés 794 Date d'inscription   Statut Membre Dernière intervention  
 

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
Réponse 2 / 3
CBRiste31 Messages postés 70 Date d'inscription   Statut Membre Dernière intervention   3
 

Bonjour et merci :bcp !!   :-)

C'est exactement ce qu'il me fallait !

Cdlt,

Gexelpas
1
Réponse 3 / 3
danielc0 Messages postés 1881 Date d'inscription   Statut Membre Dernière intervention   232
 

Bonjour à tous,

Une autre façon :

Sub test()
  l = Evaluate("MATCH(TRUE,B:B="""",0)") - 1
  Range("B1:B" & l).Select
End Sub

-1