VBA copier coller vers plusieurs feuilles excel
Résolu/Fermé
dédé65000
Messages postés
11
Date d'inscription
lundi 10 mars 2014
Statut
Membre
Dernière intervention
7 octobre 2014
-
10 mars 2014 à 15:53
foo - 11 mars 2014 à 10:22
foo - 11 mars 2014 à 10:22
A voir également:
- VBA copier coller vers plusieurs feuilles excel
- Liste déroulante excel - Guide
- Copier coller pdf - Guide
- Formule excel - Guide
- Copier une vidéo youtube - Guide
- Fusionner plusieurs feuilles excel en une seule - Guide
5 réponses
dédé65000
Messages postés
11
Date d'inscription
lundi 10 mars 2014
Statut
Membre
Dernière intervention
7 octobre 2014
1
10 mars 2014 à 16:32
10 mars 2014 à 16:32
Voici le lien
https://www.cjoint.com/?3CkqEYWs7PP
https://www.cjoint.com/?3CkqEYWs7PP
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 303
10 mars 2014 à 16:20
10 mars 2014 à 16:20
Bonjour
pour essayer d'^tre efficace:
mettre le classeur sans données confidentielles en pièce jointe sur
https://www.cjoint.com/
puis copier l'adresse du lien et la coller dans le message de réponse
pour essayer d'^tre efficace:
mettre le classeur sans données confidentielles en pièce jointe sur
https://www.cjoint.com/
puis copier l'adresse du lien et la coller dans le message de réponse
Bonjour
Voila ta macro modifier
Sub TestA()
Nlig = Range("A" & Rows.Count).End(xlUp).Row
Lig1 = Sheets("C").Range("A" & Rows.Count).End(xlUp).Row
Lig2 = Sheets("D").Range("A" & Rows.Count).End(xlUp).Row
For L = 8 To Nlig
Sh = Range("A" & L).Value
If Sh <> "" Then
Select Case Sh
Case "C"
Lig1 = Lig1 + 1
Lig = Lig1
Case "D"
Lig2 = Lig2 + 1
Lig = Lig2
End Select
Rows(L).Copy
Sheets(Sh).Range("A" & Lig).PasteSpecial xlPasteValues
End If
Next
Application.CutCopyMode = False
End Sub
A+
Maurice
Voila ta macro modifier
Sub TestA()
Nlig = Range("A" & Rows.Count).End(xlUp).Row
Lig1 = Sheets("C").Range("A" & Rows.Count).End(xlUp).Row
Lig2 = Sheets("D").Range("A" & Rows.Count).End(xlUp).Row
For L = 8 To Nlig
Sh = Range("A" & L).Value
If Sh <> "" Then
Select Case Sh
Case "C"
Lig1 = Lig1 + 1
Lig = Lig1
Case "D"
Lig2 = Lig2 + 1
Lig = Lig2
End Select
Rows(L).Copy
Sheets(Sh).Range("A" & Lig).PasteSpecial xlPasteValues
End If
Next
Application.CutCopyMode = False
End Sub
A+
Maurice
dédé65000
Messages postés
11
Date d'inscription
lundi 10 mars 2014
Statut
Membre
Dernière intervention
7 octobre 2014
1
11 mars 2014 à 08:18
11 mars 2014 à 08:18
Génial c'est exactement ce que je voulais merci beaucoup
Bonne continuation
Bonne continuation
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Bonjour
Comme ca ses mieux
Sub Test()
Application.ScreenUpdating = False
Nlig = Range("A" & Rows.Count).End(xlUp).Row
Lig1 = Sheets("C").Range("A" & Rows.Count).End(xlUp).Row
Lig2 = Sheets("D").Range("A" & Rows.Count).End(xlUp).Row
For L = Nlig To 8 Step -1
Sh = Range("A" & L).Value
If Sh <> "" Then
Select Case Sh
Case "C"
Lig1 = Lig1 + 1
Lig = Lig1
Case "D"
Lig2 = Lig2 + 1
Lig = Lig2
End Select
Rows(L).Copy
Sheets(Sh).Range("A" & Lig).PasteSpecial xlPasteValues
Rows(L).Delete
End If
Next
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub
A+
Maurice
Comme ca ses mieux
Sub Test()
Application.ScreenUpdating = False
Nlig = Range("A" & Rows.Count).End(xlUp).Row
Lig1 = Sheets("C").Range("A" & Rows.Count).End(xlUp).Row
Lig2 = Sheets("D").Range("A" & Rows.Count).End(xlUp).Row
For L = Nlig To 8 Step -1
Sh = Range("A" & L).Value
If Sh <> "" Then
Select Case Sh
Case "C"
Lig1 = Lig1 + 1
Lig = Lig1
Case "D"
Lig2 = Lig2 + 1
Lig = Lig2
End Select
Rows(L).Copy
Sheets(Sh).Range("A" & Lig).PasteSpecial xlPasteValues
Rows(L).Delete
End If
Next
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub
A+
Maurice
