Macro excel si je recopie ligne de tel onglet

Résolu/Fermé
james405 Messages postés 154 Date d'inscription mercredi 27 janvier 2010 Statut Membre Dernière intervention 10 juin 2014 - 16 avril 2010 à 11:28
james405 Messages postés 154 Date d'inscription mercredi 27 janvier 2010 Statut Membre Dernière intervention 10 juin 2014 - 20 avril 2010 à 17:00
Bonjour à tous,

J'ai réalisé cette macro pour copier des lignes d'une feuille LOLO a la feuille 3 si le contenude la colonne 11=A4
2 questions :
- Comment transformer la macro pour qu'elle marche avec plusieurs onglets de départ pour coller toujours dans la feuil3

-Est il possible a la suite de la 1ère question quand tout s'affichera de distinguer par une ligne titre les lignes venant de tel ou tel onglet??



Sub ccl()

Sheets("Feuil3").Rows("7:200").Delete

Dim iR As Long
Dim iAV As Long
Dim R As Worksheet
Dim AV As Worksheet

Set R = Worksheets("LOLO")
Set AV = Worksheets("Feuil3")

iAV = 7

For iR = 7 To 200
If R.Cells(iR, 11).Value = Range("A1") Then
R.Range(iR & ":" & iR).Copy AV.Cells(iAV, 1)
iAV = iAV + 1
End If
Next
End Sub

Merci d'avance,

James

2 réponses

pijaku Messages postés 12259 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 9 août 2022 2 703
16 avril 2010 à 12:18
Salut,
Tu peux modifier (par exemple) ton code comme ceci :
Sub ccl() 
Sheets("Feuil3").Rows("7:200").Delete 
Dim iR As Long 
Dim iAV As Long 
Dim R As String 
Dim AV As Worksheet 
R = InputBox("inscrire ici le nom de l'onglet à copier","Nom de la feuille")
Set AV = Worksheets("Feuil3") 
iAV = 7 
For iR = 7 To 200 
If Sheets(R).Cells(iR, 11).Value = Range("A1") Then 
Sheets(R).Range(iR & ":" & iR).Copy AV.Cells(iAV, 1) 
iAV = iAV + 1 
End If 
Next 
End Sub 
0
james405 Messages postés 154 Date d'inscription mercredi 27 janvier 2010 Statut Membre Dernière intervention 10 juin 2014
20 avril 2010 à 17:00
Ok ca marche merci!
0