Discussion :

[ARTETA13]

Bonjour,
Je débute actuellement en VBA et je souhaiterai réaliser quelque chose de simple.
Je vous joins un fichier excel avec un exemple.
Je souhaiterai dans la "feuil1" rechercher en fonction de chaque N° les valeurs qui correspondent et les copier dans la "feuil2" dans la colonne valeur en fonction de leur numéro.

Merci pour votre aide.

[Theze]

Bonjour,

En D2 et tirer vers le bas jusqu'à D7 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
=RECHERCHEV(A2;Feuil1!$A$2:$B$7;2)

Hervé.

[Daranc]

la une simple formule de feuille suffit
mais pour le faire par VBA
il va falloir jongler avec des tableaux( c'est assez prise de tête)
premier tableau

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
with sheets(2)
tablo=.range("A2" & .range("a65535").end(xlup).row).value
end with
with sheets(1)
Table=.range("a2:b" & .range("a65535").end(xlup).row).value
end with

ça ça va créer deux tableau en mémoire
maintenant on compare chaque ligne du tableau feuille 2 à celui de la feuille 1
le principe

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
 
dim reponse() as variant ' ça c'est pour les réponse
i=1
for t=1 to unbound(tablo,1)' le premier indice du tableau va être trié
                                    ' il est du style tablo(1,1) ; tablo(2,1)...tablo(n,1)
for u=1 to ubound(table,1) ' celui-ci table(1,1)  -table(1,2);table(2,1)-table(2,2)..table(n,1)-table(n,2)
if tablo(t,1)= table(u,1) then
redim preserve reponse(1 to 4, 1 to i)
reponse(1,i)=table(u,1)
reponse(4,i)=table(u,2)
i=i+1
exit for
end if
next 
next
with sheets(2)
.range("f2:i" & i).value=reponse
end with

(directement ecrit sur le forum

[gFZT82]

Bonjour,

Tu peux également utiliser la méthode Find

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
Sub CopierValeurs()
Dim Ws1 As Worksheet
Dim Ws2 As Worksheet
Dim DerLig1 As Long, DerLig2 As Long
Dim MaPlage1 As Range, MaPlage2 As Range, Cel As Range, Valeur As Range
    Set Ws1 = Worksheets("Feuil1")
    Set Ws2 = Worksheets("Feuil2")
    DerLig1 = Ws1.Range("A" & Ws1.Rows.Count).End(xlUp).Row
    DerLig2 = Ws2.Range("A" & Ws2.Rows.Count).End(xlUp).Row
    Set MaPlage1 = Ws1.Range("A2:A" & DerLig1)
    Set MaPlage2 = Ws2.Range("A2:A" & DerLig2)
    For Each Cel In MaPlage2
        Set Valeur = MaPlage1.Find(Cel, LookIn:=xlValues, lookat:=xlWhole)
        If Not Valeur Is Nothing Then Cel.Offset(0, 3) = Valeur.Offset(0, 1)
    Next Cel
End Sub

Cordialement.

[ARTETA13]

Merci à vous!!!!!

Bonjour,

Dans le même esprit.
Je souhaiterai tester en fonction du numero les valeurs.
Dans la feuil1, j'ai valeur 1 et dans la feuil 2: valeur2
Si valeur 1-valeur2 = 0 alors afficher la valeur 1 dans la feuil2 (valeur2) et dans la cellule E DE LA FEUIL2 afficher "OK"

Par contre , si Valeur1-valeur2<>0 alors afficher valeur 1 dans la feuille 2 (valeur2) (même chose) mais dans la colonne E afficher "NOK"

[gFZT82]

Bonjour,

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
Sub CopierValeurs()
Dim Ws1 As Worksheet
Dim Ws2 As Worksheet
Dim DerLig1 As Long, DerLig2 As Long
Dim MaPlage1 As Range, MaPlage2 As Range, Cel As Range, Valeur1 As Range
    Set Ws1 = Worksheets("Feuil1")
    Set Ws2 = Worksheets("Feuil2")
    DerLig1 = Ws1.Range("A" & Ws1.Rows.Count).End(xlUp).Row
    DerLig2 = Ws2.Range("A" & Ws2.Rows.Count).End(xlUp).Row
    Set MaPlage1 = Ws1.Range("A2:A" & DerLig1)
    Set MaPlage2 = Ws2.Range("A2:A" & DerLig2)
    For Each Cel In MaPlage2
        Set Valeur1 = MaPlage1.Find(Cel, LookIn:=xlValues, lookat:=xlWhole)
        If Not Valeur1 Is Nothing Then
            If Cel.Offset(0, 3) = Valeur1.Offset(0, 1) Then
                Cel.Offset(0, 4) = "OK"
            Else
                Cel.Offset(0, 3) = Valeur1.Offset(0, 1)
                Cel.Offset(0, 4) = "NOK"
            End If
        End If
    Next Cel
End Sub

Cordialement.

[ARTETA13]

Merci