Copier sur differentes feuilles à partir d'une seule feuille
Bonjour,
J'ai beau chercher je ne trouve pas ..
Etant en plus plus que Novice en VBA.
J'ai actuellement une feuille dans laquelle est répertoriés plusieurs noms dans la colone B. (TEST1; TEST2; TEST3.....)
J'aimerai par exemple copier les lignes TEST1 dans la feuille TEST1; celles comprenant TEST2 dans la feuille TEST2 ainsi de suite.
Cordialement
Axel
Bonjour
avec un fichier et quelques lignes exemples ( anonymisées si nécessaire) ce serait mieux...
Cordialement
FINDRH
Effectivement c'est plus parlant avec un fichier joint.
Comme vous pouvez le voir, dans ce fichier il y a 4 feuilles.
La première sera la seule feuille où je vais intervenir et y ajouter par la suite des lignes.
Les suivantes seront des feuilles récapitulatives.
Je souhaiterai que dans ces feuilles récapitulatives n'apparaissent que les lignes les concernant.
J'ai renommé les feuilles au même nom que la machine.
onglet AGLO je souhaite copier que les lignes AGLO de la feuille 1
onglet BRIQUE je souhaite copier que les lignes BRIQUE de la feuille 1
Ainsi de suite.
Merci beaucoup
Bonsoir
Ci joint une proposition à tester
Des questions subsistent :
- faut il enlever les lignes dispatchées de la feuille originale
- les lignes enlevées se rajoutent elles à celles existantes
- comme dans la proposition:
le fichier de base ne bouge pas, on rajoute les lignes en dessous
on vide les feuilles de destination
on retraite toute la feuille
Merci de me le préciser
Cordialement
FINDRH
C'est exactement ce que je voulais.
Copier les lignes tout en les laissant dans la "base".
Merci beaucoup
Parfait
merci de valider la réponse et clore le sujet en cliquant sur "v"
Cordialement
FINDRH
Bonjour,
Je me permets de ré-ouvrir le sujet.
Après plusieurs tentatives d'adaptation je n'arrive pas à modifier correctement la macro.
En effet, la macro copie et colle en C2 au lieu de A3 et elle me supprime les cellules A2 et B2.
J'ai beau chercher je ne trouve pas d'où vient le problème.
MACRO:
Sub repartit()
Application.ScreenUpdating = False
Nbfeuil = Array("COMMUN MACHINE", "ALIMENTATION CONIQUE", "ALIMENTATION CONIQUE DOUBLE") ' tableau
For i = LBound(Nbfeuil) To UBound(Nbfeuil) '
Sheets(Nbfeuil(i)).Select
vdl = Range("a1").End(xlDown).Row
vdc = Range("a1").End(xlToRight).Column
Range(Cells(2, 1), Cells(vdl, vdc)).Clear
Next i
Sheets("Fiche de modifs MACHINES").Select
vfl1 = ActiveSheet.Name
vdl = Range("a1").End(xlDown).Row
vdc = Range("a1").End(xlToRight).Column
For i = 2 To vdl
vcel = Cells(i, 2).Value
Select Case vcel
Case "COMMUN MACHINE"
Sheets("COMMUN MACHINE").Select
vfl2 = ActiveSheet.Name
vcel2 = Range("A2").Value
If vcel2 = 0 Or vcel2 = "" Then
vdbl = 2
Else
vdbl = Range("a1").End(xlDown).Row + 1
End If
Sheets(vfl1).Select
Range(Cells(i, 1), Cells(i, 5)).Copy
Sheets(vfl2).Select
Cells(vdbl, 3).Select
ActiveSheet.Paste
Case "ALIMENTATION CONIQUE"
Sheets("ALIMENTATION CONIQUE").Select
vfl2 = ActiveSheet.Name
vcel2 = Range("A2").Value
If vcel2 = 0 Or vcel2 = "" Then
vdbl = 2
Else
vdbl = Range("a1").End(xlDown).Row + 1
End If
Sheets(vfl1).Select
Range(Cells(i, 1), Cells(i, 5)).Copy
Sheets(vfl2).Select
Cells(vdbl, 3).Select
ActiveSheet.Paste
Case "ALIMENTATION CONIQUE DOUBLE"
Sheets("ALIMENTATION CONIQUE DOUBLE").Select
vfl2 = ActiveSheet.Name
vcel2 = Range("A2").Value
If vcel2 = 0 Or vcel2 = "" Then
vdbl = 2
Else
vdbl = Range("a1").End(xlDown).Row + 1
End If
Sheets(vfl1).Select
Range(Cells(i, 1), Cells(i, 5)).Copy
Sheets(vfl2).Select
Cells(vdbl, 3).Select
ActiveSheet.Paste
Case Else
MsgBox "la feuille " & vcel & " n'existe pas, merci de la créer "
Exit Sub
End Select
Sheets(vfl1).Select
Next i
Application.ScreenUpdating = True
Sheets(vfl1).Select
End SubMerci
Cordialement
Axel
Bonjour
Change ton code dans les paragraphes suivants : cells(vdbl,1) au lieu de vdbl,3 ==> 3 = colonne 3 !
Sheets(vfl1).Select
Range(Cells(i, 1), Cells(i, 5)).Copy
Sheets(vfl2).Select
Cells(vdbl, 1).Select
ActiveSheet.Paste
Cordialement
FINDRH
Bonjour,
J 'ai également plusieurs questions.
Etant donné que je n'aime pas apprendre bêtement j'aimerai avoir des explications
Vce Vcl vcl2 vdbl qu'est ce que cela veut dire ?
Car j'ai beau chercher sur le net je ne trouve rien à ce sujet et c'est bien dommage car je ne pige rien
Merci
Bonsoir
Difficile de commenter et de voir ce qui ne va pas sans un bout de ton classeur original avec la macro que tu as adaptée
Merci de joindre quelques lignes du tableau original et les onglets( vides) à remplir.
si pb de confidentialité tu peux m'envoyer le fichier en message privé.
Cordialement
FINDRH
cells(1,2)= A2 (1=nr de ligne, , 2 nr de colonne cells(i,1)= ligne de rang i et colonne 1)
Vdbl est une variable a laquelle j'affecte le premier n° de ligne vide, cells( Vcbl-ligne- , 1 colonne )