IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Macro qui copie une colonne selon son entête vers une autre colonne ayant la même


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Homme Profil pro
    lille 2
    Inscrit en
    Juin 2015
    Messages
    60
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Hauts de Seine (Île de France)

    Informations professionnelles :
    Activité : lille 2

    Informations forums :
    Inscription : Juin 2015
    Messages : 60
    Par défaut Macro qui copie une colonne selon son entête vers une autre colonne ayant la même
    Bonjour,

    J'ai lu cette discussion.
    je suis intéressé par votre macro mais j'ai parfois du mal à suivre les étapes et surtout le résultat final. Pouvez vous "nous" apporter quelques explications supplémentaires ?

    Citation Envoyé par SfJ5Rpw8 Voir le message
    Bonjour,

    une solution est d'utiliser une collection pour mémoriser les entêtes de ta feuille résultat .. :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    43
    44
    45
    46
    47
    48
    49
    50
    51
    52
    53
    54
    55
    56
    57
    58
    Option Explicit
    Dim cColDest As Collection
    Dim shDest As Worksheet
     
    '
    ' Mémorisation numéro de colonne
    '
    Sub InitCollection()
        Dim i As Integer
     
     
        Set shDest = ThisWorkbook.Worksheets("Feuil3") ' A ADAPTER
     
        Set cColDest = New Collection
     
        i = 1
        While shDest.Cells(1, i) <> ""
            On Error Resume Next
                cColDest.Add i, shDest.Cells(1, i)
                If Err.Number <> 0 Then 'On considére qu'il n'y as pas de doublon dans colone dest
                    Debug.Print "Doublon colonne " & i & " : " & shDest.Cells(1, i)
                End If
                i = i + 1
         Wend
     
    End Sub
    '
    ' Dépose valeur dans feuille destination
    '
    Function PoseValeur(stEntete As String, MaValeur) As Boolean
     Dim iC As Integer
     Dim iDerLigne As Long
        On Error Resume Next
        iC = cColDest(stEntete)
     
        If iC = 0 Or Err.Number <> 0 Then
            Debug.Print "Erreur Entête " & stEntete & " Introuvable"
            PoseValeur = False
            Exit Function
        End If
        On Error GoTo 0
     
        iDerLigne = shDest.Cells(shDest.Rows.Count, iC).End(xlUp).Row + 1
        shDest.Cells(iDerLigne, iC).Value = MaValeur
         PoseValeur = True
    End Function
     
     
    '
    ' FONCTION DE TEST ....
    '
    Sub MaMAcro()
        InitCollection
        Debug.Print PoseValeur("Nom", "AjoutDansColNOM")
        Debug.Print PoseValeur("Adresse", "AjoutDansColonne  Adresse")
     
     
    End Sub
    Merci d'avance

    med_mugen

  2. #2
    Membre averti
    Homme Profil pro
    lille 2
    Inscrit en
    Juin 2015
    Messages
    60
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Hauts de Seine (Île de France)

    Informations professionnelles :
    Activité : lille 2

    Informations forums :
    Inscription : Juin 2015
    Messages : 60
    Par défaut comment du coup exporter les valeurs d'une autre feuille vers feuil destination ?
    J'ai regardé attentivement votre macro mais à aucun moment je ne vois de table source à extraire (et donc les entêtes à comparer pour le transfert des données) pour l'utilisation de PoseValeur. Pouvez vous m'éclairer svp ?

Discussions similaires

  1. [XL-2010] Convertir le contenu d'une colonne et le déplacer vers d'autres colonnes
    Par CaroBibb dans le forum Macros et VBA Excel
    Réponses: 9
    Dernier message: 17/02/2015, 19h33
  2. [XL-2007] Macro qui copie une colonne selon son entête vers une autre colonne ayant la même
    Par TonyBennett dans le forum Macros et VBA Excel
    Réponses: 5
    Dernier message: 25/09/2014, 21h04
  3. Réponses: 0
    Dernier message: 25/03/2013, 14h39
  4. [XL-2000] Modifier une macro qui copie/colle vers une autre feuille
    Par wyzer dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 30/04/2010, 23h02
  5. Macro qui copie une page et la modifie
    Par craac dans le forum Macros et VBA Excel
    Réponses: 5
    Dernier message: 05/10/2007, 10h14

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo