macro si sur une plage

flo2002

XLDnaute Impliqué
bonjour le forum!

je cherche à faire une macro qui dirai la chose suivante:
si une cellule de la colonne A n'est pas vide alors mettre la formule en B sur la meme ligne que la cellule concernée.

ce serai pour éviter à avoir à inserer des lignes ou faire glisser les cellules quand je veut ajouter une valeur en A.

Merci d'avance!
 

Blunet

XLDnaute Occasionnel
Salut flo, j'espère avoir bien compris ton problème.

Sub Remplir()
Dim i%
For i = 1 To 100
If Not IsEmpty(Cells(i, 1).Value) Then
Cells(i, 1).Select: Selection.Copy
Cells(i, 2).Select: Selection.PasteSpecial _
Paste:=xlPasteFormulas
End If
Next i
End Sub
 

Discussions similaires

Réponses
11
Affichages
248

Statistiques des forums

Discussions
312 504
Messages
2 089 072
Membres
104 018
dernier inscrit
Mzghal