Bonjour,
J'ai un problème pour être en mesure de faire l'action suivante :
1- Sélectionner et copier une plage [nomajouter]
2- Rechercher dans la sélection LR, cellule par cellule, les cellules vide dans la colonne (b)
3- À chaque cellule vide, coller la sélection de la plage [nomajouter]
Pour l'instant, j'ai le code suivante, je crois que mon problème se situe lors du paste.
est-ce que quelqu'un aurait une piste de solution.Code:
2
3
4
5
6
7
8
9
10
11
12Sub AjouterNOm() LR = Range("B300").End(xlUp).Row Source = Range("nomajouter") Range("nomajouter").Select Range("nomajouter").Copy For X = LR To 1 Step -1 If Cells(X, "B").Value = "" Then Cells(X, "B").PasteSpecial End If Next X End Sub
Merci beaucoup!
Alex
