Bonjour
J'ai une plage de cellules ("A1:H1") '
et juste en dessous une autre plage ("A2:H2")
Je voudrai qu'une boucle parcourt la plage ("A2:H2") et lorsqu'elle lorsqu'elle rencontre une cellule vide
elle copie la valeur située juste au dessus et la colle .
dit autrement si A2 est vide alors copier A1 en A2 si A2 n'est pas vide , ne rien faire
et ainsi de suite avec B2, C2...........jusqu'à H2
Mon début de code
Sub boucle()
Dim ruru As Range
For Each ruru In Range("A2:H2")
If ruru.Value = "" Then
ActiveCell.Offset(-1,0).Select
Selection Copy
Active sheet .Paste
End If
Next ruru
End Sub
Et ça marche pas!
Merci à vous
Rudolphe
J'ai une plage de cellules ("A1:H1") '
et juste en dessous une autre plage ("A2:H2")
Je voudrai qu'une boucle parcourt la plage ("A2:H2") et lorsqu'elle lorsqu'elle rencontre une cellule vide
elle copie la valeur située juste au dessus et la colle .
dit autrement si A2 est vide alors copier A1 en A2 si A2 n'est pas vide , ne rien faire
et ainsi de suite avec B2, C2...........jusqu'à H2
Mon début de code
Sub boucle()
Dim ruru As Range
For Each ruru In Range("A2:H2")
If ruru.Value = "" Then
ActiveCell.Offset(-1,0).Select
Selection Copy
Active sheet .Paste
End If
Next ruru
End Sub
Et ça marche pas!
Merci à vous
Rudolphe