Discussion :

[arno1975]

Bonjour à tous

voila j'ai un tableau A1:L57 dans ma feuille 1
je souhaiterais que le bouton de commande que j'ai crée dans cette feuille puisse lorsque je clique dessus copier les lignes de mon tableau à partir du moment ou une valeur texte (par exemple "atv") apparaisse au moins une fois sur cette ligne
... pour ensuite les coller à la suite dans ma feuille 2

En espérant avoir été assez précis et que quelqu'un pourra m'aider
merci par avance

[patricktoulon]

Re

non ca n'est pas précis du tout

le contexte
comment les cellules doivent être copiées
a la même adresse ,dans une seule colonne ect...
bref plus de questions que de réponse

Au plaisir

[arno1975]

Merci pour ta réponse....

alors je souhaite que par exemple mes plages de cellules
A1:L1; A12:L12; A34:L34

soient copiées (parce-que la valeur "atv" apparaît au moins une fois) pour ensuite être copiées dans ma feuille 2 à la suite sur 3 lignes A1:L3

[patricktoulon]

bien que tu ne m'a toujours pas donné
les conditions et le contexte je suppose que le tri doit
se faire sur toutes la plage des colonnes de A a L
j'ai pris la liberté d'ajouter une condition sur les doublons grâce a un dictionnaire

copie ca dans un module standard et lance la macro

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub copie_les_ATV()
    Set d = CreateObject("Scripting.Dictionary")
 
    mot_cherché = "atv"
    With Worksheets(1).Range("a1:l" & Rows.Count)
        Set c = .Find(mot_cherché, LookIn:=xlValues)
        If Not c Is Nothing Then
            firstAddress = c.Address
            Do
                d.Item(c.Row) = c.Row
                        Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> firstAddress
    End If
End With
For Each Key In d.keys
    i = i + 1
    Sheets(2).Range("a" & i & ":l" & i).Value = Sheets(1).Range("a" & Key & ":l" & Key).Value
Next
End Sub

Au plaisir

[arno1975]

Merci beaucoup Patrick! cela fonctionne impeccable.... mais j'essai depuis hier de l'adapter à mon projet... mais ça coince .... ma demande était effectivement imprécise...désolé....

j'ai modifié (je suis débutant....) pour que la recherche et copies des plages de cellules se fasse sur deux feuilles (bateau 1 et 2) mais ça me donne des résultats qui ne correspondent pas à ce que je souhaite....j'avais fait un essai

j'ai mis un fichier joint pour être plus précis avec un onglet avec ce que j'aimerai obtenir... enfin si c'est possible ....

[patricktoulon]

Bonjour je viens de regarder ton exemplaire

c'est parce que tu doit aussi gérer les cellules fusionnées

je regarderais ca demain
Au plaisir

[arno1975]

C'est très sympa de ta part... la fusion des cellules n'est pas obligatoire... je peux les enlever sans soucis si cela peut simplifier les choses....

merci en tout cas....

bonsoir... je ne sais pas si tu as pu regarder pour mon problème j'imagine que ma demande est un peu complexe ?... merci et à bientôt j'espère...

[patricktoulon]

Bonjour
alors dé fusionne les et sert toi de ma macro dans une boucle sur plusieurs sheets en remettant le dico a 0 a chaque changement de sheets

Au plaisir

[arno1975]

Merci beaucoup.... petit à petit je commence à y arriver..... j’espère que ca ira...!