Excel VBA

Résolu
linette44 Messages postés 23 Statut Membre -  
gbinforme Messages postés 15478 Statut Contributeur -
Bonjour,
Voici ma première connexion.
J'ai regardé si je trouvais les solutions dans le forum, j'ai un début de réponse mais cela ne me suffit pas.
Je veux récupérer sur une feuille






Dim Lig As Long
Dim Col As String
Dim NbrLig As Long
Dim NumLig As Long

Sheets("feuil2").Activate ' feuille de destination

Col = "i" ' colonne données non vides à tester'
NumLig = 2 'alors là ca doit etre le N° de la 1er ligne de données en comptant la ligne 1 = 0 .... ? '
With Sheets("feuil1") ' feuille source'
NbrLig = .Cells(65536, Col).End(xlUp).Row
For Lig = 3 To NbrLig 'n° de la 1ere ligne de données'
If .Cells(Lig, Col).Value <> "" Then
.Cells(Lig, Col).EntireRow.Copy
NumLig = NumLig + 1
Sheets("feuil2").Cells(NumLig, 1).Insert Shift:=xlDown
'ici pour insérer ou .Paste pour coller'
End If
Next
End With

1 réponse

Réponse 1 / 1
gbinforme Messages postés 15478 Statut Contributeur 4 726
 
bonjour

pour que ta macro fonctionne, il faut changer :

Dim Col As String
par
Dim col As Long

Col = "i" ' colonne données non vides à tester'
par
col = 9 ' le numéro de la colonne et non la lettre

0