Copier colonnes selon entêtes

Résolu/Fermé

alberkrimo Messages postés 20 Date d'inscription samedi 3 janvier 2015 Statut Membre Dernière intervention 31 mai 2017 - Modifié par pijaku le 27/01/2017 à 09:33
alberkrimo Messages postés 20 Date d'inscription samedi 3 janvier 2015 Statut Membre Dernière intervention 31 mai 2017 - 30 janv. 2017 à 15:59

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:

Copier colonnes selon entêtes
Copier une vidéo youtube - Guide
Super copier - Télécharger - Gestion de fichiers
Word colonnes indépendantes - Guide
Copier texte pdf - Guide
Copier disque dur - Guide

2 réponses

Réponse 1 / 2

f894009 Messages postés 17187 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 1 mai 2024 1 704
27 janv. 2017 à 09:34

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

alberkrimo Messages postés 20 Date d'inscription samedi 3 janvier 2015 Statut Membre Dernière intervention 31 mai 2017
30 janv. 2017 à 09:02

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.

Réponse 2 / 2

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 745
30 janv. 2017 à 10:23

Bonjour,

Un exemple à adapter.
.Row peut être remplacé par .Column (par exemple)...

alberkrimo Messages postés 20 Date d'inscription samedi 3 janvier 2015 Statut Membre Dernière intervention 31 mai 2017
30 janv. 2017 à 11:41

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

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 745 > alberkrimo Messages postés 20 Date d'inscription samedi 3 janvier 2015 Statut Membre Dernière intervention 31 mai 2017
30 janv. 2017 à 12:21

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

alberkrimo Messages postés 20 Date d'inscription samedi 3 janvier 2015 Statut Membre Dernière intervention 31 mai 2017
30 janv. 2017 à 15:59

Merci

Discussions similaires

Dessiner avec son clavier et avec des lettres

Ecrire sur 2 colonnes indépendantes

recopier une formule sans décalage

Tableau croisé dynamique : différence entre deux colonnes

Discussions similaires

Newsletters