Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
Boostez vos compétences Excel avec notre communauté !
Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force.
Apprenez, échangez, progressez – et tout ça gratuitement !
👉 Inscrivez-vous maintenant !
Sub test()
Dim i As Byte, j As Byte
Dim val As Variant
For j = 1 To Range('IV1').End(xlToLeft).Column
For i = 1 To Range('IV1').End(xlToLeft).Column
Cells(i, 1).Value = Cells(1, j).Value
j = j + 1
Next i
Next j
For k = 1 To Range('A65536').End(xlUp).Row
val = Cells(k, 1).Value
For m = 2 To 7
m = m + l
If val = Cells(m, 1).Value Then
Rows(m).Delete
End If
Next m
l = l + 1
Next k
End Sub
en pièce jointe une autre façon de faire [file name=Transfert_ligne.zip size=8931]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Transfert_ligne.zip[/file]
je pense que tu aurais du mettre dans les feuilles 2 et 3 le résultat excompté
car tu parles de lignes 1 3 5 et ensuite 2 et 4 mais tes données sont sur les lignes 10 à 27
arfff tu sais,on n'est dur de la comprenette Lol
merci d'affiner,comme dirait le Fromager
a très bientôt
tiens nous au courant [file name=essai_Cuistoy.zip size=41365]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/essai_Cuistoy.zip[/file]
je ne comprends pas (tu vas dire encore)
oui tu recopies la même chose ou ce sont des lignes en plus que tu vas copier sur d'autres feuilles explique moi
je pourrais peut être t'aider lol
je suis en train de crée un planning de production des menu sont etablie pour le mois
donc je doit reprendre ces menu et tout recopier les menu je voulais donc faire un copier coller des feuille de menu sur ma tram de planning et faire un transphere des données sur mes planning il y a donc 10 feuille de planning sa mevitera de perdre du temps j'ai un fichier exel mais il est trop lourd pour le mettre sur le forum
si sa te dit je peu te lenvoyer par mail avec des explication
- Navigue sans publicité - Accède à Cléa, notre assistante IA experte Excel... et pas que... - Profite de fonctionnalités exclusives Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel. Je deviens Supporter XLD