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 excel VBA (chercher/copier/coller)


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre à l'essai
    Homme Profil pro
    Ingénieur commercial
    Inscrit en
    Juillet 2015
    Messages
    6
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Hauts de Seine (Île de France)

    Informations professionnelles :
    Activité : Ingénieur commercial

    Informations forums :
    Inscription : Juillet 2015
    Messages : 6
    Par défaut Macro excel VBA (chercher/copier/coller)
    Bonjour

    J'ai besoin de votre aide pour ma première macro

    Je joins un fichier test (Fichier1) pour vous donner une idée de ce que je souhaite automatiser.

    Je vais essayer d'exprimer les étapes
    lire la première valeur de la colonne A
    allez chercher cette valeur dans la colonne B
    Copier la valeur de la colonne C (même ligne)
    Coller cette valeur dans la colonne D

    Un grand Merci pour votre aide

    Cordialement

    Mateo
    Fichiers attachés Fichiers attachés

  2. #2
    Membre Expert Avatar de Thautheme
    Homme Profil pro
    salarié
    Inscrit en
    Août 2014
    Messages
    1 373
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 64
    Localisation : France, Hérault (Languedoc Roussillon)

    Informations professionnelles :
    Activité : salarié

    Informations forums :
    Inscription : Août 2014
    Messages : 1 373
    Par défaut
    Bonjour Mateo, bonjour le forum

    Citation Envoyé par mtazi001 Voir le message
    Coller cette valeur dans la colonne D
    Dans la colonne D de quelle cellule ? Celle de la colonne A (la cellule lue) ou celle de la colonne B (la cellule trouvée) ?

  3. #3
    Membre à l'essai
    Homme Profil pro
    Ingénieur commercial
    Inscrit en
    Juillet 2015
    Messages
    6
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Hauts de Seine (Île de France)

    Informations professionnelles :
    Activité : Ingénieur commercial

    Informations forums :
    Inscription : Juillet 2015
    Messages : 6
    Par défaut
    Bonjour Thautheme

    Merci pour votre aide
    Je vais essayer de mieux exprimer le besoin avec un exemple
    lire la première cellule de la colonne A: 11246
    chercher (repérer) la même valeur dans la colonne B: 11246
    lire la valeur de la colonne Account1: C
    copier cette valeur dans la colonne D: cellule1

    Je joins le fichier source et le fichier cible (résultat attendu)

    Cordialement
    Fichiers attachés Fichiers attachés

  4. #4
    Membre Expert Avatar de Thautheme
    Homme Profil pro
    salarié
    Inscrit en
    Août 2014
    Messages
    1 373
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 64
    Localisation : France, Hérault (Languedoc Roussillon)

    Informations professionnelles :
    Activité : salarié

    Informations forums :
    Inscription : Août 2014
    Messages : 1 373
    Par défaut
    Re,

    Essaie comme ça :
    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
    Sub Macro1()
    Dim O As Worksheet 'déclare la variable O (Onglet)
    Dim TC As Variant 'déclare la variable TC (Tableau de Cellules)
    Dim I As Integer 'déclare la variable I (Incrément)
    Dim R As Range 'déclare la variable R (Recherche)
     
    Set O = Sheets("Feuil1") 'définit l'onglet O
    TC = O.Range("A1").CurrentRegion 'définit le tableau de cellules TC
    For I = 2 To UBound(TC, 1) 'boucle sur toutes les lignes I du tableau de cellules TC
        Set R = O.Columns(2).Find(TC(I, 1), , xlValues, xlWhole) 'définit la recherche R
        'si il existe au moins une occurrence trouvée, renvoie dans la cellule ligne I colonne D la valeur
        'de l'occurrence trouvée décalée d'une colonne à droite, réinitialise la variable R
        If Not R Is Nothing Then O.Cells(I, 4).Value = R.Offset(0, 1).Value: Set R = Nothing
    Next I 'prochaine ligne de la boucle
    End Sub

  5. #5
    Membre à l'essai
    Homme Profil pro
    Ingénieur commercial
    Inscrit en
    Juillet 2015
    Messages
    6
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Hauts de Seine (Île de France)

    Informations professionnelles :
    Activité : Ingénieur commercial

    Informations forums :
    Inscription : Juillet 2015
    Messages : 6
    Par défaut
    Thautheme

    C'est réussi, merci beaucoup.
    Je vais essayer de comprendre les différentes commandes et appliquer la macro à un plus gros fichier.

    Cordialement

    Mateo

  6. #6
    Membre à l'essai
    Homme Profil pro
    Ingénieur commercial
    Inscrit en
    Juillet 2015
    Messages
    6
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Hauts de Seine (Île de France)

    Informations professionnelles :
    Activité : Ingénieur commercial

    Informations forums :
    Inscription : Juillet 2015
    Messages : 6
    Par défaut
    Bonsoir Thautheme

    Dans ma première colonne row id, j'avais des chiffres.
    Si à la place des chiffres, j'ai des noms, et je souhaite effectuer les mêmes opérations, que dois je modifier au niveau du code?

    Merci d'avance

    Cordialement

    Mateo

  7. #7
    Expert éminent
    Avatar de Marc-L
    Homme Profil pro
    Développeur informatique
    Inscrit en
    Avril 2013
    Messages
    9 468
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Hauts de Seine (Île de France)

    Informations professionnelles :
    Activité : Développeur informatique
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Avril 2013
    Messages : 9 468
    Par défaut

    Bonjour.

    Citation Envoyé par mtazi001 Voir le message
    allez chercher cette valeur dans la colonne B
    Consulter l'aide VBA de la méthode Find et son exemple …

    _____________________________________________________________________________________________________
    Je suis Charlie, Bardo, Sousse

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Réponses: 1
    Dernier message: 27/10/2014, 15h59
  2. Code VBA pour copier-coller des colonnes d'un fichier Excel à un autre
    Par User Name dans le forum Macros et VBA Excel
    Réponses: 3
    Dernier message: 26/01/2014, 23h30
  3. [XL-2000] VBA-Chercher/Copier/Coller Zone de Texte
    Par Noe06 dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 04/04/2012, 09h27
  4. [VBA-E]Excel vers powerpoint : copier/coller spécial
    Par illight dans le forum Macros et VBA Excel
    Réponses: 5
    Dernier message: 06/09/2006, 12h41
  5. [VBA Excel]probleme de copier/coller
    Par ogenki dans le forum Macros et VBA Excel
    Réponses: 13
    Dernier message: 31/01/2006, 14h22

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