Comparaison de 2 valeurs avec plusieurs lignes [Résolu]

Messages postés
4
Date d'inscription
mardi 11 juin 2019
Statut
Membre
Dernière intervention
12 juin 2019
- - Dernière réponse : Darken55
Messages postés
4
Date d'inscription
mardi 11 juin 2019
Statut
Membre
Dernière intervention
12 juin 2019
- 12 juin 2019 à 11:55
Bonjour,

Je cherche à créer une macro et je suis bloqué depuis un certain temps sur un point précis.
Je souhaite comparer les cellules « A19 et B19 » sur la feuille « stockenregistrment » avec les cellules « A et B » de la feuille « stockencours ».
S’il y a correspondance de copier la ligne sur « stockencours » pour le coller ailleur.

Pour le moment je suis bloqué avec le code que j’ai fait ci-dessous ; celui si compare bien les données mais prend uniquement en compte la ligne 6 de la feuille « stockencours » je n’arrive pas à ce que cela compare pour chaque ligne (jusqu’à 500).

If Worksheets("stockenregistrement").Range("A19").Value = Worksheets("stockencours").Range("A6").Value And Worksheets("stockenregistrement").Range("B19").Value = Worksheets("stockencours").Range("B6").Value Then
Sheets("stockencours").Select
Range("A6:G6").Select
Selection.Cut
Sheets("stockterminé").Select
Rows("6:6").Select
Selection.Insert Shift:=xlDown
Sheets("stockenregistrement").Select
Range("D19:E19").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("stockterminé").Select
Range("H6").Select
ActiveSheet.Paste
Range("C6").Select
End If

Avez-vous des idées pour m’aider ?

Merci,

Cordialement,
Afficher la suite 

3 réponses

Messages postés
14797
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
19 octobre 2019
1177
0
Merci
Bonjour,

comparer les cellules « A19 et B19 »
Que ces cellules avec toutes les lignes de stockencours!!!!!!!!!
Darken55
Messages postés
4
Date d'inscription
mardi 11 juin 2019
Statut
Membre
Dernière intervention
12 juin 2019
-
Bonjour,

Pardon mais je n'ai pas compris,

Je cherche sur la feuille "stockencours" la ligne qui a les même valeurs que dans les cellules A19 et B19 de la page "stockenregistrement".

Juste la première partie est importante:
If Worksheets("stockenregistrement").Range("A19").Value = Worksheets("stockencours").Range("A6").Value And Worksheets("stockenregistrement").Range("B19").Value = Worksheets("stockencours").Range("B6").Value Then
Sheets("stockencours").Select
Range("A6:G6").Select
Selection.Cut


A la place de la ligne 6 de "stockencours" je cherche à savoir sur quelle ligne (entre 6 et 500) nous avons ces 2 même cellules identique.

Merci,
Commenter la réponse de f894009
Messages postés
8748
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
19 octobre 2019
436
0
Merci
bonjour, il me semble donc que tu dois écrire une boucle avec un indice qui va de 6 à 500, et utiliser cet indice à la place du nombre 6.
Darken55
Messages postés
4
Date d'inscription
mardi 11 juin 2019
Statut
Membre
Dernière intervention
12 juin 2019
-
Bonjour,

Merci pour vos conseils!
Commenter la réponse de yg_be
Messages postés
14797
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
19 octobre 2019
1177
0
Merci
Bonjour,

Quelques bizarreries a cause de vos select (que j'ai laisses), une facon de faire:

Sub test()
    'Darken55 - 11 juin 2019 ? 15:32
    'Bonjour,
    'Je cherche ? cr?er une macro et je suis bloqu? depuis un certain temps sur un point pr?cis.
    'Je souhaite comparer les cellules ? A19 et B19 ? sur la feuille ? stockenregistrment ? avec les cellules ? A et B ? de la feuille ? stockencours ?.
    'S?il y a correspondance de copier la ligne sur ? stockencours ? pour le coller ailleur.
    'Pour le moment je suis bloqu? avec le code que j?ai fait ci-dessous ; celui si compare bien les donn?es mais prend uniquement en compte la ligne 6 de la feuille ? stockencours ? je n?arrive pas ? ce que cela compare pour chaque ligne (jusqu?? 500).
    With Worksheets("stockencours")
         derlig = .Range("A" & Rows.Count).End(xlUp).Row        'derniere cellule non vide colonne A
         RA = Worksheets("stockenregistrement").Range("A19").Value
         RB = Worksheets("stockenregistrement").Range("B19").Value
         'boucle sur les lignes
         For n = 6 To derlig
            If RA = .Range("A" & n).Value And RB = .Range("B" & n).Value Then
                .Activate
                LT = LT + 1
                .Range("A" & n & ":G" & n).Select
                Selection.Cut
                Sheets("stocktermin?").Select
                Rows("6:6").Select
                Selection.Insert Shift:=xlDown
                Sheets("stockenregistrement").Select
                Range("D19:E19").Select
                Application.CutCopyMode = False
                Selection.Copy
                Sheets("stocktermin?").Select
                Range("H" & n).Select
                ActiveSheet.Paste
                'Range("C6").Select
            End If
        Next n
    End With
End Sub
Darken55
Messages postés
4
Date d'inscription
mardi 11 juin 2019
Statut
Membre
Dernière intervention
12 juin 2019
-
Bonjour,

Parfait, semble fonctionner, merci beaucoup pour votre aide!

Cordialement,
Commenter la réponse de f894009