Discussion :

[Baraas]

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

[illight]

Salut,


Quelle est la valeur de :

Code :

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

Range("B65356").End(xlUp).Row

A mon avis, elle est égale à 1, donc forcément tu rentres pas dans ta boucle.
Tu insère une colonne en B, et tu écris dans la premier cellule, mais en dessus, tu n'as rien du tout

A mon avis, pour ta boucle, tu devrais prendre une autre colonne que la colonne B (qui est celle que tu as insérée).

[Neutthsch]

Salut Baraas,

Si tu sélectionnes une ligne de ton code et que tu cliques sur F9 (ou clique gauche dans la barre tout de suite à gauche de la ligne) tu poses un point d'arrêt.
Cela signifie que ton code va se mettre en pause en atteignant cette ligne (avant de l’exécuter). Une fois le code en pause, tu peux le dérouler au pas à pas en cliquant sur F8 ou relancer la lecture normale (jusqu'à la fin, ou le prochain point d'arrêt) en appuyant sur F5.

Je te propose donc de mettre un point d'arrêt avant la zone que tu suspectes défaillante, sur la ligne "For compt..." ici (si tu n'as pas d'idée tu peux même la mettre sur le Sub), et de dérouler au pas par pas avec F8.
Ainsi tu comprendras à quel moment tu as un problème, sur quelle ligne et à quel état sont tes variables (en passant la souris dessus).

Bon ça ne me parait pas indispensable ici mais tu peux regarder aussi comment utiliser des espions et les différentes notions de débogage.

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

Range représente une plage de 1 à plusieurs lignes et de 1 à plusieurs colonnes. C'est donc un ensemble de pas mal de paramètres. Je ne suis pas sur de ce que tu cherches mais Cells(row,col) renvoie bien à une cellule de coordonnées (ligne,colonne)

[Invité]

Bonjour,

Comme l'a écrit illight, les données de votre colonne "B" sont déplacées en "C" avec vos deux instructions "Range(B:B)" et "Insert…". Sinon tout le reste fonctionne très bien à condition que, pour trouver "7920", cette valeur soit bien définie en texte.

[Baraas]

Merci de vos réponses !

Je vais tester demain matin vos solutions.

Illight, je pense que tu as raison, je me suis tromper de colonne, je vais devoir prendre la colonne J puisqu'en effet, vu que je créer une colonne B, elle est vide...

Neutthsch, je te remercie pour ta solution, en effet, j'étais assez bloquer dans le fait de ne pas suivre le code pas à pas.. J'avais besoin de me rendre compte du déroulement de ma macro... Je testerai ça aussi demain matin

Merci pour vos réponses, je répondrai dans la matinée si tout s'est bien passé.

Bonne soirée

Aurélien

[Baraas]

Bonjour,

Merci, tout fonctionne et les points d'arrêts me sont très utile !!

Bonne journée à vous

Ps: Je pense que je reviendrai vers vous pour un autre soucis un peu plus tard haha