Copier colonnes selon entêtes

Résolu
alberkrimo Messages postés 20 Date d'inscription   Statut Membre Dernière intervention   -  
alberkrimo Messages postés 20 Date d'inscription   Statut Membre Dernière intervention   -
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 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
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 Date d'inscription   Statut Membre Dernière intervention  
 
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 12263 Date d'inscription   Statut Modérateur Dernière intervention   2 761
 
Bonjour,

Un exemple à adapter.
.Row peut être remplacé par .Column (par exemple)...
0
alberkrimo Messages postés 20 Date d'inscription   Statut Membre Dernière intervention  
 
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 12263 Date d'inscription   Statut Modérateur Dernière intervention   2 761 > alberkrimo Messages postés 20 Date d'inscription   Statut Membre Dernière intervention  
 
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 Date d'inscription   Statut Membre Dernière intervention  
 
Merci
0