Re : ventiler les ventes dans fiches clients
Hello,
Une partie des réponses ont été apporté par Cbernardt (merci à lui), voici malgré out les réponses :
Sub report()
Dim i As Integer, f As String, j As Integer
Sheets(1).Select : c'est la feuille N°1, la 1ere feuille du classeur
Application.ScreenUpdating = False
For i = 4 To [A65000].End(xlUp).Row : je fais une boucle de la ligne i (i = 4 car ton tableau commence à la 4eme ligne) à la dernier ligne du tableau (c'est à dire que je me positionne en A65000 et je lui demande de remonter jusqu'à la cellule ayant une valeur et de me donner le N° de ligne
Sheets(1).Select
f = Cells(i, 1).Value : je donne à la variable f la valeur de la cellule i,1 où i = le N° de ligne et 1 la colonne A (onc client_A, client_B...)
Range(Cells(i, 2), Cells(i, 7)).Copy
Sheets(f).Select : f ayant la valeur de la colonne A sur la ligne sur laquelle je suis et comme cela correspond à une feuille je peux sélectionner la feuille correspondante.
Voilou j'espère avoir été clair
@ +
Juju