Discussion :

[kat40]

Bonjour,

Je viens de commencer le vba dans Excel et j'ai besoin de votre aide. Je veux que lors de la perte de focus d'une cellule (après avoir saison un numéro de dossier , appeler une fonction (call) qui va vérifier si le numéro est bon. J'ai déjà mon code pour vérifier le numéro de dossier. Je ne sais pas comment faire en excel, je sais qu'avec access je mets:

Code :

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

1
2
3
4
5
6
 
 
Private Sub Numero_LostFocus()
Call Verifier_Numero(Numero)
Me.Numero.SetFocus
End Sub

Merci pour votre aide

[ouskel'n'or]

Au lieu de mettre ton code dans lostfocus, mets-le dans Click
Quant au code, pour conserver le focus sur un bouton, tu dois mettre

Code :

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

1
2
3
Call Verifier_CP12(cp12)
Cancel = True
Me.cp12.SetFocus

Tu peux conditionner "Cancel = True" sinon tu ne sortiras jamais de là Tu dis
A+

Edit
En supposant que cp12 soit bien le bouton en question !

[kat40]

Voilà mon problème, je ne sais pas comment faire pour le mettre dans le click?

Je veux que lorsque l'utilisateur quitte la cellule ex: D4 et clique dans une autre cellule ex: E4, la validation se fasse et ce pour une plage de cellule (D4 à D50). Donc mon utilisateur écrit son CP12 et lorsqu'il passe à l'autre cellule la fonction Vérifier CP12 doit démarrer.

Merci de ton aide rapide.

[ouskel'n'or]

Ok, alors oublie ce que je t'ai mis, je n'ai jamais imaginé que CP12 était une cellule, je l'ai pris pour un bouton
Je regarde
A+

[kat40]

Merci de ton aide, voici des explications:

Exemple: je suis dans la cellule D4 et j'écris mon CP12, lorsque je passe à une autre cellule (E4) je veux que appeler mon code (call ) Verifier CP12 et si le CP12 n'est pas bon, revenir dans la cellule D4.

Encore un gros merci

[ouskel'n'or]

Bon, tu vas être obligé de transformer ta sub Verifier_CP12 en fonction pour savoir si tu dois retourner dans CP12 ou non.
La fonction :

Code :

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

1
2
3
4
5
6
7
Function Verifier_CP12(LeRange) as boolean
  'ton code
  '...
  'ensuite, tu vois comment conditionner Verifier_CP12
  Verifier_CP12 = True 'si vérif ok
  Verifier_CP12 = False 'si vérif pas ok
End function

Pour appeler cette fonction placée dans un module standard, tu places le code suivant dans la feuille de code de la feuille de calculs

Code :

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

1
2
3
4
5
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
dim ok as boolean
    if target.address(false, false) <> "CP12" then ok = Verifier_CP12("cp12")
    if not ok then range("CP12").select
End Sub

Si tu veux, tu peux ajouter l'effacement de CP12 "if not ok"... C'est toi qui choises
Inconvénient de la méthode, quelque soit la cellule sélectionnée autre que CP12 lancera la vérif. (transparent si CP12 ok)
Tu dis
A+

Correction
J'ai oublié de parler du paramètre envoyé à la fonction (cp12)
Si c'est censé être une adresse de cellule, ce que j'ai supposé, j'ai corrigé le code.
Et dans la fonction, si tu vérifies ce qu'il y a dans CP12, tu mets

Code :

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

1
2
3
4
5
If Range(LeRange).value = ... then
    Verifier_CP12 = True
   else
    Verifier_CP12 = False
endif

[kat40]

Peut-on assigner un code seulement à un cellule et ou à une plage de cellule?