Copie une colonne ayant en sur la range une le terme reference

[christ-94]

Bonjour

j'aimerais copie toute la colonne sur le feuil 2 si dans la range une il y a le termes reference

exemple si en C1 il y a refence je copie la colonne sur la feuil 2


Merci d'avance

 

[Banzai64]

Re : Copie une colonne ayant en sur la range une le terme reference

Bonjour

Un essai
A toi de voir

 

[jp14]

Re : Copie une colonne ayant en sur la range une le terme reference

Bonsoir christ-94, Banzai64

Ci joint le fichier avec une solution par macro.

A tester

JP

 

[christ-94]

Re : Copie une colonne ayant en sur la range une le terme reference

Bonsoir

Merci pour les reponses

le macro de jp14 fonctionne , mais il teste toutes les colonnes
Je ne souhaite que la macro ne teste que la premire ligne de la feuil
et teste que les 20 premiere colonnes

Merci d'avance

 

[skoobi]

Re : Copie une colonne ayant en sur la range une le terme reference

Bonsoir le fil, re Banzai64 😉

voici ma proposition:

Sub copiecol()
For col = 1 To 20
    If Cells(1, col).Value Like "*reference*" Then
        Columns(col).Copy Sheets("Feuil2").Columns(col)
    End If
Next
End Sub

 

[christ-94]

Re : Copie une colonne ayant en sur la range une le terme reference

Bonsoir skoobi

merci pour le code
il marche bien mais par contre j'ai desoin d'une petite adaptation
je voudrais le faire sur plusieurs ref
voir le test d'adaptation , il ne fonctionne pas ?
je pense qu je n'ai pas declaré la variable ref si tu me donne encore un petit coup de main

Sub macr()
ref2 = "Novembre"
ref3 = "TEST"
ref4 = "TEST4"
ref5 = "TEST5"
For N = 1 To 5
For col = 1 To 20
    If Cells(1, col).Value Like ref(N) Then
        Columns(col).Copy Sheets("Feuil2").Columns(N)
    End If
Next col
Next N
End Sub

Merci d'avance

 

[skoobi]

Re : Copie une colonne ayant en sur la range une le terme reference

Re,

remplace

If Cells(1, col).Value Like ref(N) Then

par

    If Cells(1, col).Value Like "*" & ref1 & "*" Or Cells(1, col).Value Like "*" & ref2 & "*" _
        Or Cells(1, col).Value Like "*" & ref3 & "*" Or Cells(1, col).Value Like "*" & ref4 & "*" _
        Or Cells(1, col).Value Like "*" & ref5 & "*" Then