bonjour,
j'ai testé 50 choses mais je n'arrive plus à avancer
voici mon besoin:
sur le 1er onglet " extractions" j'ai une base de données :
particularité sur la colonne " H" je retrouve les divers client " A , B , C , ..."
j'ai créer un onglet pour chaque client : "client A , client B , client C , ..."
je souhaite que la macro copie chaque ligne sur le bon onglet en fonction de la cellule "H" pour qu'elle vienne la positionner sur le bon onglet .
à ce jour voici mon travail :
Dim Lig As Long
Dim Col As String
Dim NbrLig As Long
Dim NumLig As Long
Sheets("A").Activate ' feuille de destination
Col = "H" ' colonne Test'
NumLig = 2
With Sheets("extractions") ' feuille de la base de données'
NbrLig = .Cells(65536, Col).End(xlUp).Row
For Lig = 3 To NbrLig '1ere ligne prise en compte'
If .Cells(Lig, Col).Value = "A" Then
.Cells(Lig, Col).EntireRow.Copy
NumLig = NumLig + 1
Sheets("A").Cells(NumLig, 1).Insert Shift:=xlDown ' insérer ligne '
End If
Next
End With
maintenant je n'arrive pas à généraliser l'opération ou à la multiplier...
merci d'avance pour votre aide
cordialement fabrice
j'ai testé 50 choses mais je n'arrive plus à avancer
voici mon besoin:
sur le 1er onglet " extractions" j'ai une base de données :
particularité sur la colonne " H" je retrouve les divers client " A , B , C , ..."
j'ai créer un onglet pour chaque client : "client A , client B , client C , ..."
je souhaite que la macro copie chaque ligne sur le bon onglet en fonction de la cellule "H" pour qu'elle vienne la positionner sur le bon onglet .
à ce jour voici mon travail :
Dim Lig As Long
Dim Col As String
Dim NbrLig As Long
Dim NumLig As Long
Sheets("A").Activate ' feuille de destination
Col = "H" ' colonne Test'
NumLig = 2
With Sheets("extractions") ' feuille de la base de données'
NbrLig = .Cells(65536, Col).End(xlUp).Row
For Lig = 3 To NbrLig '1ere ligne prise en compte'
If .Cells(Lig, Col).Value = "A" Then
.Cells(Lig, Col).EntireRow.Copy
NumLig = NumLig + 1
Sheets("A").Cells(NumLig, 1).Insert Shift:=xlDown ' insérer ligne '
End If
Next
End With
maintenant je n'arrive pas à généraliser l'opération ou à la multiplier...
merci d'avance pour votre aide
cordialement fabrice