Copier/coller colonne dans un autre feuille sous condition

Bonjour,

Étant novice en VBA et malgré toutes les recherches que j'ai effectué pour trouver une aide à mon problème, je n'ai pas réussi à trouver de solution sur le forum.

Alors voilà, je voudrais faire une macro qui puisse copier/coller une colonne dans un autre feuille avec la condition que celle ci se copie quand dans la colonne à copier se trouve un certain mot. Le mot peut se retrouver plusieurs mais dans ma nouvelle feuille, je ne la veux que une seul fois.

Je suis désolé si mes explications ne sont pas compréhensible.

Donc si quelqu'un peut m'aider.

Merci d'avance

Bonjour

Cordialement

Bonjour Dan,

Mon fichier est très gros et aussi confidentiel.

Donc je joins un fichier très simplifier qui je l'espère explique mon problème et qui surement n'est pas si compliqué à faire en macro

Encore merci

Re

Est-ce normal que des lettres identiques se trouvent en ligne 1 . Je vois notamment les lettres D et B

Qu'attends tu dans ce cas ?

re

Justement, comme je le dis plus haut, dans le fichier il peut y avoir plusieurs fois le même nom avec les mêmes valeurs donc pour ces colonnes là, je veux que la copier que 1 seul fois et ne pas prendre toutes les colonnes qui comportent ce même noms.

Re,

Sur base de ton fichier, essaie avec ce code :

Sub Test()
'Macro Dan
Dim cl As Byte, i As Byte, j As Byte
Dim dlg As Integer
Dim existe As Boolean
With Sheets("Feuil1")
cl = .Cells(1, .Columns.Count).End(xlToLeft).Column
dlg = .Range("B" & .Rows.Count).End(xlUp).Row
For i = 3 To cl
    For j = 1 To Worksheets.Count
        If Sheets(j).Name = .Cells(1, i) Then existe = 1: Exit For
    Next
     If existe = 0 Then
            Worksheets.Add after:=Sheets(Sheets.Count)
            .Range("B1:B" & dlg).Copy ActiveSheet.Range("A1")
            .Range(.Cells(1, i), .Cells(dlg, i)).Copy ActiveSheet.Range("B1")
            ActiveSheet.Name = .Cells(1, i)
    End If
    j = 0
    existe = 0
Next
End With
End Sub

Cordialement

Re,

Désolé de répondre tard.

Je viens de le lancer et ça fonctionne parfaitement, juste ce que je voulais.

Merci encore