VBA bug sur une ligne de code

Bonjour,

J'ai un soucis avec une ligne de code, qui d'après moi est bonne mais fait bugger…

Voilà ce qui pose problème :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

'**************************************************** 'Recherche le projet dans la base par son numéro '****************************************************** Private Sub TXT_Material_Change() Sheet1.Activate Range("A1").Select Do Until ActiveCell = CLng(Me.TXT_Material) ActiveCell.Offset(1, 0).Select Loop Me.TXT_Legacy = ActiveCell.Offset(0, 1)….

---

ça fonctionne mais à la fin ça me met toujours un bug !!!
merci pour votre aide
Nathalie

Bonsoir

Si je comprends ton code : tu te places en cellule A1 et tu compares la valeur de cette cellule avec la valeur qui aurait été encodée dans la variable TXT_Material. Si c'est pas bon, tu passes en A2, puis A3, puis A4, puis ... et cela jusque, peut-être la toute dernière ligne de ton fichier Excel (plus d'un million de lignes). A chaque fois, tu sélectionnes la cellule...

Ce code sera lent, très lent, immensément lent à s'exécuter et si tu n'as pas ton numéro de projet dans ta colonne A; à chaque fois, tu vas tester le maximum de lignes qu'Excel peut supporter. Ouch...

Voici le code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Sub ActivateProject()   Dim wProject As Long Dim rngCell As Range   wProject = 15   Set rngCell = ActiveSheet.Range("A:A").Find(wProject)   If Not rngCell Is Nothing Then rngCell.Select Else MsgBox "Désolé, numéro de projet non trouvé", vbExclamation + vbOKOnly End If   Set rngCell = Nothing   End Sub

---

Note: pour ton bug, en fait, tu arrives à la toute dernière ligne de ta feuille et tu fais "+1" et paf, le bug.