Demande d'aide sur boucle

patsyl60 · 12 Novembre 2008

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 · 12 Novembre 2008

Re : Demande d'aide sur boucle

Bonsoir,

sans boucle :

Code:

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 · 12 Novembre 2008

Re : Demande d'aide sur boucle

Super. Cela fonctionne parfaitement.

Merci bhbh pour ton aide et ta rapidité.

A+

Patsyl60

Demande d'aide sur boucle

patsyl60

XLDnaute Occasionnel

Pièces jointes

Cousinhub

XLDnaute Barbatruc

patsyl60

XLDnaute Occasionnel

Discussions similaires

Demande d'aide sur boucle

patsyl60

XLDnaute Occasionnel

Pièces jointes

Cousinhub

XLDnaute Barbatruc

patsyl60

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency