Copier toutes les memes lignes de tous les onglets vers un tableau …

[Evelynetfrancois]

Bonjour forum
Je souhaiterais trouver une macro qui : lorsque je clique dans une cellule de la colonne A me copierais toutes les memes lignes de tous les onglets (5) vers un tableau …

Pour faire plus clair je joins un exemple concret de ma requête

Je vous remercie beaucoup d’avance pour me mettre sur la bonne voie
Très bonne journée à tous
E et F

 

[néné06]

Re : Copier toutes les memes lignes de tous les onglets vers un tableau …

Bonjour Evelynetfrancois

Regardez si cela convient ?

A+

 

[pierrejean]

Re : Copier toutes les memes lignes de tous les onglets vers un tableau …

Bonjour evelynetfrancois

Vois si cela te convient

Edit: Salut néné (un peu déçu cette fois )

 

[phlaurent55]

Re : Copier toutes les memes lignes de tous les onglets vers un tableau …

Bonjour Evelynetfrancois

voir exemple en pièce jointe

à+
Philippe

Edit: Bonjour néné, PierreJean

 

[néné06]

Re : Copier toutes les memes lignes de tous les onglets vers un tableau …

Bonjour Pierrejean,Phlaurent55

@Pierrejean
En effet, je comprends la déception à la vue de mon exemple, qui n'a pas été optimisé et qui est vraiment "BASIQUE".
J'en aurais presque honte !

A+

 

[ChTi160]

Re : Copier toutes les memes lignes de tous les onglets vers un tableau …

Bonjour ,
Juste pour dire qu'il n'y a pas a avoir Honte de ce que l'on fait , lorsque l'on aide les Autres Lol

juste pour participer car on peut toujours faire mieux (exemple en déclarant les variables etc etc ) ,ou en aménageant le code
Lol

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)

Dim Ligne As Byte
Dim derligne As Byte

If ActiveSheet.Name = "tableau" Then Exit Sub
If Not Intersect(Target, Sh.Columns(1)) Is Nothing Then

         Ligne = Target.Row
         
With Sheets("tableau")
                    .Rows("3:" & .Range("A65535").End(xlUp).Row + 1).ClearContents
End With
For i = 1 To 5

    With Sheets(i)
         Set Rng = .Range(.Cells(Ligne, 2), .Cells(Ligne, 7))
     End With
     
Application.ScreenUpdating = False

 With Sheets("tableau")
                   .Activate
    derligne = .Range("A65535").End(xlUp).Row + 1
                   .Cells(derligne, 1) = Sheets(i).Name
                   .Cells(derligne, 2).Resize(1, Rng.Columns.Count) = Rng.Value
                   
End With
Next i

Application.ScreenUpdating = True
End If
End Sub

Bonne Journée à tous Un coucou particulier à Pierrejean

 

[Evelynetfrancois]

Re : Copier toutes les memes lignes de tous les onglets vers un tableau …

Bonjour néné06, pierrejean, phlaurent55 chti160
Vous êtes vraiment super, trois propositions .... Que dire
Avoir l’embarras du choix, si c est pas un luxe ça !!!!!!!!!!!!
nene06 lol honte !!!! Tu plaisantes.........
Merci beaucoup pour tout, c'est trop bien
Heureusement que vous êtes là………..toujours prêt a aider tout le monde
E et F