Copier colonnes selon entêtes
Résolu
alberkrimo
Messages postés
20
Statut
Membre
-
alberkrimo Messages postés 20 Statut Membre -
alberkrimo Messages postés 20 Statut Membre -
Bonjour,
Je me tourne vers vous en espérant d'avoir de l'aide. Débutant sur Vba. J'utilise un code pour chercher une colonne dans une feuille en suite le copier et le coller dans une autre feuille. Ce code permet de chercher une seule colonne et pas plus.
Ce que je veux faire c'est de sélectionner plusieurs colonnes différentes suivant leurs entêtes.
Est ce que quelqu'un aurait un code pour ça.
Le code est le suivant :
Merci d'avance.
Cordialement.
Je me tourne vers vous en espérant d'avoir de l'aide. Débutant sur Vba. J'utilise un code pour chercher une colonne dans une feuille en suite le copier et le coller dans une autre feuille. Ce code permet de chercher une seule colonne et pas plus.
Ce que je veux faire c'est de sélectionner plusieurs colonnes différentes suivant leurs entêtes.
Est ce que quelqu'un aurait un code pour ça.
Le code est le suivant :
Sub Col_Select()
Dim Cel As Range
Set Cel = Cells.Find(what:="Bât")
If Not Cel Is Nothing Then
Cells(1, Cel.Column).Resize(Cells(Rows.Count, Cel.Column).End(xlUp).Row).Select
Else
MsgBox "Pas trouvé le nom "
Exit Sub
End If
End Sub
Merci d'avance.
Cordialement.
2 réponses
-
Bonjour,
Vous en etes ou avec cette demande, car pas de reponse de votre part ?
https://forums.commentcamarche.net/forum/affich-34305471-capacite-combobox
Pour copie colonne, si vous nommez les colonnes a copier ce serait plus simple
vous auriez un code dans ce genre, copie colonne D et H en L et MSub Macro2() Range("Col_D" & "," & "Col_H").Copy Range("L1") End Sub -
-
https://www.cjoint.com/c/GAEkNhdRk5k
Voici un exemple. J voudrais par exemple copier la colonne A "Numéro de la demande" et B "Etat". sachant que ces deux colonnes, la semaine prochaine vont changer de colonne.
je ne peux pas adapter votre code. je ne suis pas balaise en Vba.
Est ce que vous pouvez m'aider svp .
Merci- Pour cela, ton code donné en premier message suffit.
à toi d'adapter en le faisant deux fois...Sub Col_Select() Dim Cel As Range Set Cel = Rows(1).Cells.Find(what:="Numéro de la demande") If Not Cel Is Nothing Then 'ICI code de Copié/Collé Else MsgBox "Pas trouvé le Numéro de la demande" End If Set Cel = Rows(1).Cells.Find(what:="Etat") If Not Cel Is Nothing Then 'ICI code de Copié/Collé Else MsgBox "Pas trouvé Etat" End If End Sub
-
-
