Bonjour , une nouvelle fois je vous écris
Pour commencer j'ai un fichier avec 2 colonnes que je dois remplir , a l'aide d'un autre fichier.Mais pour savoir laquelle des 2 remplir je dois me réferencer a un 3éme fichier
Pour cela j'ai essayé ceci
mais cela me met une erreur 1004
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24 Sub essai() Dim Lig As Long Dim Col As String Dim NbrLig As Long Dim NumLig As Long Sheets("Feuil2").Activate ' feuille de destination Col = "C" ' colonne de la donnée non vide à tester NumLig = 0 With Sheets("Feuil1") ' feuille source NbrLig = .Cells(65536, Col).End(xlUp).Row For Lig = 1 To NbrLig If .Cells(Lig, Col).Value <> "" Then .Cells(Lig, Col).EntireRow.Copy NumLig = NumLig + 1 Cells(NumLig, 1).Select ActiveSheet.Paste End If Next End With End Subet je ne sais pas comment il faut que je fasse pour qu'il sache quelle cellule remplir.
En vous remerciant de l'aide que vous pourrez m'apporter.
Partager