coller)

Version imprimable

08/07/2015, 10h55
mtazi001

1 pièce(s) jointe(s)

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
08/07/2015, 11h12
Thautheme

Bonjour Mateo, bonjour le forum

Citation:

Envoyé par mtazi001

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) ?
08/07/2015, 11h27
Marc-L

Bonjour.

Citation:

Envoyé par mtazi001

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
08/07/2015, 11h33
mtazi001

2 pièce(s) jointe(s)

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

Re,

Essaie comme ça :

Code:

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

08/07/2015, 15h44
mtazi001

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
08/07/2015, 17h14
mtazi001

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
08/07/2015, 17h18
Thautheme

Re,

Normalement rien. Si tu avais testé tu aurais vu...
08/07/2015, 18h49
mtazi001

J'ai testé, je n'ai pas eu de résultat (colonne d vide).
C'est pour ça que je me suis permis de vous poser la question

Merci
08/07/2015, 20h29
mtazi001

C'est réglé, c'est formateur pour une première macro
Merci encore et bonne soirée