Copier colonnes selon entêtes

Résolu
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 :

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.
A voir également:

2 réponses

f894009 Messages postés 17413 Statut Membre 1 715
 
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 M
Sub Macro2()
    Range("Col_D" & "," & "Col_H").Copy Range("L1")
End Sub
0
alberkrimo Messages postés 20 Statut Membre
 
Bonjour,

Je viens d'essayer ce code. ça ne marche pas. En effet, je voudrais un code qui reconnaitra les titre de mes colonnes et en suite les copier. Car les colonne sont amenées à changer vuque c'est une extraction excel qui provient d'un logiciel.

Merci

Cordialement.
0
pijaku Messages postés 13513 Statut Modérateur 2 763
 
Bonjour,

Un exemple à adapter.
.Row peut être remplacé par .Column (par exemple)...
0
alberkrimo Messages postés 20 Statut Membre
 
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
0
pijaku Messages postés 13513 Statut Modérateur 2 763 > alberkrimo Messages postés 20 Statut Membre
 
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
0
alberkrimo Messages postés 20 Statut Membre
 
Merci
0