Discussion :

[neiluj26]

Bonsoir,

J'ai créé une base avec des renseignements sur une liste de clients de mon entreprise sur un onglet A, et une fiche sur un onglet B. Dans une des cellules de l'onglet B, les utilisateurs doivent indiquer un code client, et mon code va rechercher des renseignements concernant ce client sur l'onglet B et les reporte.
Sachant que le code client comporte obligatoirement six chiffres, je fais apparaître une Msgbox au cas où l'utilisateur entre un code au mauvais format, ou un code qui n'existe pas.

Pour tout cela, j'utilise l'événement Worksheet_Change.
Tout fonctionne correctement sauf que la boîte qui indique le mauvais format apparaît deux fois en cas d'erreur. Une fois au moment où l'utilisateur change de cellule après avoir tapé son code, et une fois quand je réactive la cellule où il doit entrer le code.

Malheureusement, je n'ai pas le code sur mon ordinateur personnel, mais est-ce que vous sauriez comment éviter ce détail?

[Gorfael]

Salut neiluj26n et le forum
Devant le manque d'information on ne peut que spéculer!
Je suppose qu'en cas de mauvais code tu effaces la donnée ce qui déclenche un deuxième événement _Change.
- Soit tu mets une variable globale qui se met à vrai, interdisant le traitement pour l'effacement
- Soit tu ne traite pas si la cellule est vide
- Soit tu bloques les évènements en entrée de macro et les débloques en sortie (Gestion d'erreurs impératives à mon sens).
A+

[neiluj26]

Bonjour Gorfael et le forum.

Effectivement, il n'y a pas beaucoup d'infos dans ma question.

De mémoire, mon code donne ceci ("Fiche" étant la feuille que l'utilisateur doit remplir et "Clients" la feuille ou j'ai mis ma base) :

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
 
Private Sub Worksheet_Change(ByVal Target as Range)
 
If Sheets("Fiche").Range("A2")<>"" then
   If Range("A2").Characters.Count = 6 Then
      With Sheets("Clients").Range("A2:A500")
         Set C = .Find (Sheets("Fiche").Range("A2")
            If Not C Is Nothing then
               Sheets("Fiche").Range("B2") = Sheets("Clients").Cells(C.Row,2)
            End if
      End with
   Else
      MsgBox "Le code client doit être formé de six chiffres. Merci de le vérifier"
      Sheets("Fiche").Range("A2").Activate
   End if
End if

Bon, je suis encore un débutant, hein?

[Gorfael]

Salut neiluj26 et le forum

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
19
Private Sub Worksheet_Change(ByVal Target as Range)
dim C as range
If intersect(target,[A2]) is nothing then exit sub
'si les cellules modifiées ne concerne pas A2 on sort
If Range("A2")<>"" then
'on est sur la feuille "fiche"
   If Range("A2").Characters.Count = 6 Then
      With Sheets("Clients").Range("A2:A500")
         Set C = .Find (Sheets("Fiche").Range("A2")
         If Not C Is Nothing then [B2] = Sheets("Clients").Cells(C.Row,2)
      End with
   Else
      MsgBox "Le code client doit être formé de six chiffres. Merci de le vérifier"
      [A2].clearcontents
      'on efface A2
      [A2].select
   End if
End if
end sub

Si ton code est bien celui proposé, pas grand chose à modifier, sauf le fait que la macro ne se lance que si A2 est concernée et qu'elle n'est pas vide. Pour le code erroné, je préfères effacer.

Si ça persiste, mets un point d'arrêt sur la ligne de titre et effectue-la en pas-à-pas avec F8, en regardant à quel moment tu la relances.
A+

[neiluj26]

Merci,

j'ai un peu modifié ton code selon mes besoins, mais ça marche. Effectivement, si on efface la cellule, la msgbox ne se répète pas.

Merci!