Discussion :

[bax710]

Bonjour,

Je pense que je suis presque au bout, mais je ne trouve pas la boucle qu'il faut pour naviguer dans mes colonnes.
Si quelqu'un peut m'aider ce serait super.

Le but:
Colonne B: Liste de valeur complète
Colonne C à X: Liste de valeur

Je ne sais pas comment faire la boucle pour changé de colonne comme j'ai un range dans ma formule.

Je joins le fichier également.

Merci beaucoup.

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
24
25
26
27
Public Sub test()
 
Dim ip As String
Dim i, j, x, y As Integer
Dim celluletrouvee As Range
 
j = 3
 
x = Cells(1, 2).End(xlDown).Row
'ceci va chercher le numéro de la dernière ligne de la colonne B
 
For i = 1 To x
 
ip = Cells(i, 2)
 
Set celluletrouvee = Range("D1:D238").Find(ip, LookIn:=xlValues, lookat:=xlWhole)
 
If celluletrouvee Is Nothing Then
'MsgBox ("pas trouvé")
Else
Cells(i, 1) = Cells(i, 1) + 1
 
End If
 
Next i
 
End Sub

[Daniel.C]

Bonjour,

Colonne B: Liste de valeur complète
Colonne C à X: Liste de valeur

Est-ce que tu cherches les valeurs de la colonne B dans les colonnes C:X ou le contraire ? Et que fais-tu quand tu as trouvé la cellule ?

[bax710]

Bonjour Daniel,

Mon listing complet est en colonne B.
Donc je cherche dans les colonnes C à X mes valeurs. Mon idée est d'incrémente un compteur dans la colonne A -> mon If

Le résultat doit me permettre de savoir combien de fois j'ai une valeur (listée en B) dans mes colonnes de résultat.

Est-ce plus clair?

Merci bien

[Daniel.C]

Si c'est pour une valeur, l'équivalent de la fonction NB.SI devrait faire l'affaire :

Code :

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

MsgBox Application.CountIf([C:X], [B1])

S'il faut le faire pour toutes les valeurs de la colonne B, il faut mieux envisager une autre approche.

[bax710]

Bonjour,
Merci beaucoup pour votre formule.
En effet, j'arrive à faire ce que je veux.
J'ai pu l'intégrer dans une boucle et sortir mes valeurs.

Merci