Bonjour à tous,

Je suis en train de développer une macro qui aidera la personne à trier ses données.
Alors voilà, j'ai un petit soucis avec la boucle If, les premières lignes (où il y a un commentaire sont fonctionnels)

Pouvez vous me dire si ma boucle For est bonne ainsi que ma boucle if ?

Normalement lorsque la macro parcours la colonne J, il doit impérativement trouver la référence "7920", ou autre (que j'inscrirai plus tard), le message "Ok" me sert uniquement à me dire s'il entre bien dans la boucle. Or ici, rien ne fonctionne...

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
Sub Extraction()
    Range("B:B").Select 'Sélection de la colonne B
    Selection.Insert Shift:=xlToRight 'Créer la colonne envoie tout ce qu'il contient vers la droite
    ActiveCell.FormulaR1C1 = "Désignation" 'Nomme la colonne "Désignation"
 
    Dim compt As Integer
 
    For compt = 2 To Range("B65356").End(xlUp).Row
 
        If Range("J" & compt) = "7920" Then
 
            MsgBox ("Ok")
        End If
    Next compt
 
End Sub
Je pense avoir louper une étape..

EDIT: Dans la fonction Range(), le paramètre est bien la colonne ainsi que le numéro de ligne non ?

Merci beaucoup

Aurélien