VBA - Autofill jusqu'à première cellule vide de la colonne.

[rounil09]

Bonjour,

Soit les cellules de la feuille BDEP :
B2=1
B3=2

Et la macro qui fonctionne
Range("B2:B3").Select
Selection.AutoFill Destination:=Range("B2:B350"), Type:=xlFillDefault

Malgré quelques exemples que j’ai pu trouver, je n’arrive pas à modifier le code pour faire arrêter l’autofill à la première cellule vide de la colonne B au lieu de la ligne B350.

Par avance merci de votre aide.

 

[ROGER2327]

Re : VBA - Autofill jusqu'à première cellule vide de la colonne.

Bonjour rounil09.

Essayez :​

Sub toto()

  With Range("B2:B3")
   If Not IsEmpty(.Cells(2).Offset(1)) Then .Cells.AutoFill Destination:=Range(.Cells(1), .Cells(1).End(xlDown)), Type:=xlFillDefault
  End With
End Sub

Bonne journée.


ℝOGER2327
#7532

Mardi 24 Phalle 141 (Sainte Orchidée, aumonière - fête Suprême Quarte)
17 Fructidor An CCXXII, 5,1185h - cardière
2014-W36-3T12:17:04Z

 

[rounil09]

Re : VBA - Autofill jusqu'à première cellule vide de la colonne.

Merci Roger c'est super.
J'ai encore beaucoup de chemin à faire en VBA....