Discussion :

[samira2017]

Bonjour
Je débute sur VBA, j'aurai s'il vous plait besoin de votre aide pour la réalisation d'une macro .

J'ai besoin de copier la colonne entière dont l’entête est égale à une valeur précise .
exemple :

source => Fichier 1
''''''''''karine jean franck
A'''''''''''1'''''''''3'''''''''4
X'''''''''''3'''''''''5'''''''''5 *
B'''''''''' 4'''''''''5'''''''''7
C''''''''' 1'''''''' 8'''''''' 6
Y''''''''''5''''''''''7'''''''' 7 *
D'''''''''3''''''' 10'''''''' 1


Cible => Fichier 2 =>sélectionner uniquement les données de Franck et jean correspondants aux lignes A B C D uniquement

pour avoir ce résultat final

''''''''''jean franck
A''''''''' 3'''''' 4
B''''''''' 5'''''' 7
C'''''''' 8''''''' 6
D''''''' 10'''''' 1

Merci pour votre aide precieuse

[riaolle]

Bonjour et bienvenue sur le forum

La fonction Application.Match te permet de retrouver la colonne ou la ligne visée.
Par exemple, sur la ligne 1 :

Code :

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

1
2
Dim j As Long
j = Application.Match("Franck", Sheets("Feuil1").Range("1:1"), 0)

j te donne le n° de colonne où apparaît Franck.

Code :

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

1
2
Dim i As Long
i = Application.Match("A", Sheets("Feuil1").Range("A:A"), 0)

i est le n° de ligne où apparaît "A".
Ainsi,

Code :

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

Sheets("Feuil1").Cells(i, j)

Est la cellule à l'intersection de la colonne "Franck" et de la ligne "A".

J'espère que tu pourras avance comme ça