valeur sans utiliser une boucle

Version imprimable

17/05/2024, 20h56
Progeric

valeur sans utiliser une boucle
Bonjour

Comment sans faire de boucle avoir les numéros de ligne de cellule identique entre deux colonnes

En colonne A j'ai des numéro entre 1 et 1000
En colonne B j'ai également des numéros entre 1 et 1000 ( mais pas forcement les même qu'en colonne A)

J'aimerai une macro qui cherche en colonne B les valeur de la colonne A et qui les mette en mémoire avec une variable de la forme nmrlgn()

Mais sans faire de boucle car cela est très long

Après je ferai une boucle de de zéro à 100 (s'il y a 100 valeur commune) du style
Code:

1 2 3 4 for a=0 to b (b étant le nombre de valeur commune) cells(nmrligne(a),3).value= "Ok" next a
Merci pour votre aide

Salut, je ne vois pas comment se passer de boucle pour comparer le contenu de 2 colonnes. Voici une macro où j'utilise des tableaux en mémoire pour stocker les valeurs des colonnes A et B. Pour tester, je me suis créé une feuille avec 10000 valeurs en colonne A et 1000 valeurs en colonne B. J'obtiens un résultat en moins d'une seconde.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
Sub TrouverValeursCommunes()
 
Dim nbLignesA As Long, nbLignesB As Long, nbValeursCommunes As Long
Dim nmrlgn() As Variant
Dim tabColA() As Variant, tabColB() As Variant
Dim i As Long, j As Long
 
nbLignesA = Cells(Rows.Count, "A").End(xlUp).Row
nbLignesB = Cells(Rows.Count, "B").End(xlUp).Row
 
'Stocker les valeurs des colonnes A et B dans des tableaux en mémoire
tabColA = Range("A1:A" & nbLignesA).Value
tabColB = Range("B1:B" & nbLignesB).Value
 
'Redimensionner le tableau en fonction du nombre de lignes dans la colonne B
ReDim nmrlgn(0 To nbLignesB - 1)
 
'Initialiser le compteur de valeurs communes
nbValeursCommunes = 0
 
'Parcourir les valeurs de la colonne B et les chercher dans la colonne A
For i = 1 To nbLignesB
    For j = 1 To nbLignesA
        If tabColB(i, 1) = tabColA(j, 1) Then
            'Stocker le numéro de ligne dans le tableau
            nmrlgn(nbValeursCommunes) = i
            nbValeursCommunes = nbValeursCommunes + 1
            Exit For 'Sortir de la boucle sur la colonne A pour passer à la valeur suivante dans la colonne B
        End If
    Next j
Next i
 
'Redimensionner le tableau pour ne conserver que les valeurs communes trouvées
ReDim Preserve nmrlgn(0 To nbValeursCommunes - 1)
 
'Parcourir le tableau et écrire "Ok" dans la colonne C pour les lignes correspondantes
Application.ScreenUpdating = False
For i = 0 To nbValeursCommunes - 1
    Cells(nmrlgn(i), "C").Value = "Ok"
Next i
 
End Sub

Ou avec formule =SI(NB.SI(A:A;B1);"Ok";"")

18/05/2024, 18h25
jurassic pork

1 pièce(s) jointe(s)

Hello,
d'après ce que tu sembles vouloir faire une simple formule matricielle devrait suffire et donc pas besoin de boucles et avec une formule matricielle une seule formule.
Voici un exemple pour comparer les colonnes A et B de la ligne 2 à la ligne 403 :

Pièce jointe 654842

Dans les versions < Office 365 les formules matricielles sont entrées par Ctrl+Maj+Entrée (bien lire le mode d'emploi).
Ami calmant, J.P