Demande d'aide sur boucle

[patsyl60]

Bonjour à tous,

Débutant en vba, j'ai besoin de votre aide. Je cherche à faire une boucle qui reprend dans la 1ère cellule vide la valeur ou le texte de la cellule du dessus.Et ce jusq'à la fin du fichier. Je ne trouve pas la solution. Je vous ai mis un fichier exemple en pièces jointe.( Je dois avoir les colonnes a et b remplis jusqu'a la fin de la colonne c).

Merci d'avance de votre aide.

Patsyl60

 

[Cousinhub]

Re : Demande d'aide sur boucle

Bonsoir,

sans boucle :

Sub Macro4()
With Range("A1:B" & [C65000].End(xlUp).Row) 'de la cellule A1 à la cellule B(dernière ligne de C)
    .SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C" 'les cellules vides ont la formule =cellule du dessus
    .Value = .Value 'on remplace les formules par les valeurs
End With
End Sub

 

[patsyl60]

Re : Demande d'aide sur boucle

Super. Cela fonctionne parfaitement.

Merci bhbh pour ton aide et ta rapidité.

A+

Patsyl60