Comparaison de 2 valeurs avec plusieurs lignes
Résolu/Fermé
Darken55
Messages postés
4
Date d'inscription
mardi 11 juin 2019
Statut
Membre
Dernière intervention
12 juin 2019
-
11 juin 2019 à 15:32
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
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
A voir également:
- Comparaison de 2 valeurs avec plusieurs lignes
- Jdownloader 2 - Télécharger - Téléchargement & Transfert
- 2 comptes whatsapp - Guide
- Pièce 2 euros dessin bonhomme valeur ✓ - Forum Loisirs / Divertissements
- Epson scan 2 ✓ - Forum Imprimante
- Word numéro de page 1/2 - Guide
3 réponses
f894009
Messages postés
16904
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
18 mars 2023
1 678
11 juin 2019 à 16:36
11 juin 2019 à 16:36
Bonjour,
comparer les cellules « A19 et B19 »
Que ces cellules avec toutes les lignes de stockencours!!!!!!!!!
comparer les cellules « A19 et B19 »
Que ces cellules avec toutes les lignes de stockencours!!!!!!!!!
yg_be
Messages postés
21304
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
18 mars 2023
1 326
11 juin 2019 à 20:29
11 juin 2019 à 20:29
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
12 juin 2019 à 11:55
12 juin 2019 à 11:55
Bonjour,
Merci pour vos conseils!
Merci pour vos conseils!
f894009
Messages postés
16904
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
18 mars 2023
1 678
Modifié le 12 juin 2019 à 07:23
Modifié le 12 juin 2019 à 07:23
Bonjour,
Quelques bizarreries a cause de vos select (que j'ai laisses), une facon de faire:
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
12 juin 2019 à 11:54
12 juin 2019 à 11:54
Bonjour,
Parfait, semble fonctionner, merci beaucoup pour votre aide!
Cordialement,
Parfait, semble fonctionner, merci beaucoup pour votre aide!
Cordialement,
Modifié le 11 juin 2019 à 19:05
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,