Discussion :

[Nathlaf]

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 :

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

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

[cavo789]

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 :

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