un Probleme indecelable

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

Code:

---

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).

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:

---

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:

---

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

---

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..

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:

---

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

---

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:

---

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?

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

Code:

---

application.enableevents=false

---

bloque tes procédures évenementielles

Code:

---

application.enableevents=true

---

les réactive

A utiliser dans tes macros