Macro excel si je recopie ligne de tel onglet
Résolu
james405
Messages postés
173
Statut
Membre
-
james405 Messages postés 173 Statut Membre -
james405 Messages postés 173 Statut Membre -
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
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
A voir également:
- Macro excel si je recopie ligne de tel onglet
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Si ou excel - Guide
- Liste déroulante excel - Guide
- Partage de photos en ligne - Guide
- Aller à la ligne excel - Guide
2 réponses
Salut,
Tu peux modifier (par exemple) ton code comme ceci :
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
