Discussion :

[escalopepane]

Bonjour à tous, j'essai de débuguer un probleme et je ne voie vraiment pas ou cela peut être. Voici mon code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub scanner()
    Dim i As Integer
    Dim reference, scan As String
    reference = "vide"
    scan = InputBox("saisir reference", "scan reference", "entrer reference")
    i = 3
    Do While scan <> reference Or reference <> "fin"
        reference = Cells(1, i).Value
        i = i + 1
    Loop
End Sub

Mon programme demande à l'utilisateur de saisir une réference et mon programme la cherche dans la 1ere colonne jusqu'à ce qu'il la trouve.
Visiblement le soucis se trouve dans la boucle while (ce que dit le debuggeur).

[EngueEngue]

Je suppose que dans ta derniere colonne tu as le mot fin... donc tu devrais mettre un and au lieu de ton OR

Puis:

Ici tu boucles sur les colonnes et non sur les lignes... c'est à dire que tu vas chercher sur la première ligne... est-ce ce que tu veux ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub scanner()
    Dim i As Integer
    Dim reference, scan As String
    reference = "vide"
    scan = InputBox("saisir reference", "scan reference", "entrer reference")
    i = 3
    Do While ((scan <> reference) and (reference <> "fin"))
        reference = Cells(i, 1).Value
        i = i + 1
    Loop
End Sub

Sinon tu as un truc plus simple.

Code :

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

1
2
3
4
5
Sub scanner()
Dim scan As String
scan = InputBox("saisir reference", "scan reference", "entrer reference")
MsgBox (Range("A1:A65000").Find(scan))
End Sub

[escalopepane]

Merci pour ta réponse, c'était bien ça le probleme après pour ton deuxième programme, je doute que ce soit très performant car j'ai plus de 500 lignes à scanner et plus de 500*30 cellules (et j'aimerai faire bien d'autres choses dans ce programme). Alors je sais pas trop car je suis débutant mais est ce bien d'utiliser cette option dans mon cas(si je recherche la performance et la vitesse d'execution)? Aussi j'ai besoin de stocker la ligne de la reference et la fonction msgbox ne fait pas ça je pense..

[EngueEngue]

Un find ira dix fois plus vite qu'une boucle toute bête et trente fois plus vite qu'une boucle complètement bête qui va tester deux conditions avec des tests de strings à chaque itération....

même si pour 500 lignes, la différence sera de l'ordre du dixième de secondes..

Code :

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

1
2
3
4
5
Sub scanner()
Dim scan As String
scan = InputBox("saisir reference", "scan reference", "entrer reference")
ligne = Range("A1:A65000").Find(scan).row
End Sub

[escalopepane]

Ok je vais essayer. et question peut être bête mais si j'ai 2 fois la référence dans mon tableau, le find me donne un moyen de le voir ou pas?

Aussi j'ai un autre problème qui n'a rien a voir mais tu pourra peut être m'aider:
J'ai un programme qui tourne constament qui est le programme:

Code :

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

1
2
3
4
 
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
...
End Sub

A chaque fois que je lance une autre macro, ce programme plante et ouvre une fenetre (car il tourne en continu je suppose). Y a-t-il un moyen de contourner cela?

[EngueEngue]

.findnext te permet de voir s'il y en a plus

Code :

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

application.enableevents=false

bloque tes procédures évenementielles

Code :

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

application.enableevents=true

les réactive

A utiliser dans tes macros