Discussion :

[mtazi001]

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

[Thautheme]

Bonjour Mateo, bonjour le forum

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) ?

[mtazi001]

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

[Thautheme]

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

[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

[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

[Marc-L]

Bonjour.

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