Trouver colonne quelque soit son emplacement

[buzz]

bonjour à tous,

je cherche à sélectionner la totalité d'une colonne en fonction de son libellé (qui est mentionné sur la première de la feuille) et de la coller dans une autre feuille. le problème est que la colonne peut se trouver à différents endroits sur l'onglet source c'est à dire qu'elle peut être en colonne A un jour ou D le lendemain en fonction de la mise à jour du fichier.

j ai essayé ce code (mon critère de recherche dans la feuille est le libellé 'Client Id')

Sheets("Sheet1").Select
For Each Cell In Range("a1:G1")
If Cell.Value = "Client Id" Then
ActiveCell.Column.Select
Selection.Copy
Sheets("Sheet2").Select
Range("a1").Select
ActiveSheet.Paste
End If
Next

La macro bug sur ActiveCell.Column.Select et je ne comprends pas pourquoi.

d'avance merci et bonnes vacances à tous

 

[wilfried_42]

Re : Trouver colonne quelque soit son emplacement

bonjour buzz

Sheets("Sheet1").Select
For Each Cell In Range("a1:G1")
     If Cell.Value = "Client Id" Then Cell.Column.copy destination:=sheets("Sheet2").range("A1") : exit for
Next

bonne journée

 

[bqtr]

Re : Trouver colonne quelque soit son emplacement

Bonjour buzz, wilfried

Essaye avec ceci :

Sub Copie_Col()
Dim cell As Range
Sheets("Sheet1").Select
For Each cell In Range("a1:G1")
  If cell.Value = "Client Id" Then Columns(cell.Column).Copy Sheets("Sheet2").Range("A1")  
Next
End Sub

wilfried, le code que tu as mis provoque une erreur sur cell.Column.

A+

 

[buzz]

Re : Trouver colonne quelque soit son emplacement

bonjour,

merci pour votre réqctivité ! je pars en we, je testerai ceci lundi. merci encore et à bientôt

 

[buzz]

Re : Trouver colonne quelque soit son emplacement

bonjour, cela marche parfaitement. merci beaucoup