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