macro excel si je recopie ligne de tel onglet Résolu

Question

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

Configuration: Windows XP / Internet Explorer 6.0

pijaku · Answer

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

james405 · Answer

Ok ca marche merci!

Macro excel si je recopie ligne de tel onglet

2 réponses

Discussions similaires

Newsletters