ca va trop vite pour moi oui pour moi c'est du chinois et en plus si dans vos messages vous mettez des phrases imagées j'ai du mal a faire la distinction entre la macro et les phrase imagées.
Deja le codename je l'ai trouvé avant d'avoir l'image dans la réponse certe je suis tombé dessus comme ca mais j'ai trouvé quand meme
Ensuite j'ai un probleme que je ne trouve pas du moins je comprends pas je vais vous balancer toute la macro je vais vous expliquer ce que je souhaite et j'aimerais une solution pour trouver le probleme.
voici la macro:
"
Sub dispatch3()
Dim i As Integer, j As Integer, k As Integer, l As Integer, derligne As Long 'Déclaration des variables
derligne = Feuil365.Range("B" & Rows.Count).End(3).Row
If MsgBox("Voulez vous lancer la macro ?", vbYesNo) = vbNo Then Exit Sub 'Si la réponse est non, on sort de la procédure
For i = 2 To Sheets.Count 'Pour i= 2 jusqu'au nombre de feuilles du classeur
Sheets(i).[A10].CurrentRegion.Clear 'Pour chaque feuille, on supprime tout ce qu'il y a autour de la cellule A9
For l = 2 To derligne.Row
If Cells(l, 2) Like Sheets(i).Name Then 'si la cellule (i,2), donc B2 est égale au nom de la feuille, alors
For j = l To Range("B" & Rows.Count).End(3).Row 'pour j=1 jusqu'à la dernière ligne vide en remontant du bas
If Cells(j, 2) Like Sheets(i).Name Then 'si la cellule (j,2), donc A2 est égale au nom de la feuille, alors
If Sheets(i).Range("A10") = "" Then 'si sur la feuille concernée la cellule A9 est vide alors
Sheets(i).Range("A10") = Cells(j, 1) 'on écrit les données de la 1ère feuille en A9
For k = 1 To 26 'pour k de 1 à 26
Sheets(i).Range("A" & Rows.Count).End(3).Rows(1).Offset(, k) = Cells(j, k + 1) 'on écrit la suite sur les 26 colonnes
Next
Else 'sinon
Sheets(i).Range("A" & Rows.Count).End(3).Rows(2) = Cells(j, 1) 'on écrit à partir de la dernière cellule vide trouvée
For k = 1 To 26
Sheets(i).Range("A" & Rows.Count).End(3).Rows(1).Offset(, k) = Cells(j, k + 1)
Next
End If
End If
Exit For
Next
End If
Next l
Next 'et on recommence pour la ligne suivante
MsgBox "Opération terminée"
End Sub
"
Donc pour faire court j'ai 300 onglets tous rename par un numero de code. tous les mois je fais une extraction dans cette extraction il y a dans la colonne B le meme code que sur les onglets. Ce que j'aimerais c'est que la macro fasse un copier coller de la ligne A jusqu'a la Z puis la colle dans l'onglet qui aura le meme code que la colonne B de l'extraction.
Clavus avait fait une macro genial qui fonctionnais sur le fichier test mais ne fonctionne pas sur le fichier original. j'ai modifier le codename par rapport au fichier original mais rien y fait il y a un soucis de compilation d'apres excel.
Pouvez vous apporter les modifications sur le code en surlignant en jaune svp ?