VBA avec variable et condition Résolu/Fermé

Question

Bonjour, 

Je suis débutante en VBA, je ne parviens pas à la faire fonctionner :

J'ai un tableau feuille 1 : 
A                        B                       C
date	         REF	       quantité
12/05	102	
11/05	101	
13/05	103	


J'ai un second tableau feuille 2 (extraction)  : 
A                    B                C
date	      REF	          quantité
11/05	101	               1
12/05	102	               2
14/05	103          	3

Je souhaite  que les valeurs colonne C feuille 2 s'indique  colonne C feuille 1 si 
 les valeurs colonne A de feuille 1 et 2 correspondent et que les valeurs colonnes B feuille 1 et 2 correspondent alors il faut indiquer la quantité colonne C :

Le problème avec ma macro, c'est qu'elle ne tient pas compte des conditions et colle les quantités pas à côté des bonne refs 

Sub subtest()

 'Déclaration variable x
Dim x As Integer

For x = 2 To 30

' Condition si les valeurs correspondent

If Range("A" & x) = Sheets("extraction").Range("A" & x) And Range("B" & x) = Sheets("extraction").Range("B" & x) Then

'COLLER les valeurs C

Range("C" & x) = Sheets("extraction").Range("C" & x)

End If

Next
End Sub




Configuration: Windows / Chrome 78.0.3904.87

f894009 · Answer

Bonjour,

Ce qui est surprenant, c'est que ca vous copie kake chose!
Normalement, impossible.
La date est-t-elle unique ou/et la ref de meme ?
X dates pour la meme ref??

M-12 · Answer

Bonjour,

Un test
https://mon-partage.fr/f/A51G3kIP/

yg_be · Answer

bonjour, alors plutôt ainsi:
Sub subtest()
'Déclaration variable x
Dim x As Integer, y As Integer
For x = 2 To 30
    For y = 2 To 30
' Condition si les valeurs correspondent
        If Range("A" & x) = Sheets("extraction").Range("A" & y) And Range("B" & x) = Sheets("extraction").Range("B" & y) Then
            'COLLER les valeurs C
            Range("C" & x) = Sheets("extraction").Range("C" & y)
        End If
    Next y
Next x
End Sub

VBA avec variable et condition

3 réponses

Discussions similaires