Bonjour,
Je veux faire un contrôle de la saisie de l'utilisateur dans une feuille excel.
Contexte:
Saisie d'un numéro (ex: P1234) dans la colonne B de la feuille base de données
Contrôle du numéro saisie dans la colonne B
1- numéro déjà présent, message d'info, déplacement du curseur vers le numéro existant
2- numéro non présent, poursuite de la saisie vers une autre colonne (pour le moment j'ai un msg "pas trouvé")
Voici mon code qui fonctionne en appel de macro
Sub TestCelluleSaisie()
Dim saisie As String
Dim celluletrouvee As Range
Dim ligne As Integer
Dim colonne As Integer
saisie = ActiveCell
Set celluletrouvee = Range("B1:B5").Find(saisie, lookat:=xlWhole)
If celluletrouvee Is Nothing Then
MsgBox ("pas trouvé")
Else
MsgBox ("Déja saisi")
ligne = celluletrouvee.Row
colonne = celluletrouvee.Column
Cells(ligne, colonne).Select
End If
End Sub
Ma question :
Je veux que ce contrôle se fasse lorsque l'opérateur entre le numéro et non en exécutant la macro manuellement.
Auriez vous une proposition ?*
D'avance merci.
Phil.
Je veux faire un contrôle de la saisie de l'utilisateur dans une feuille excel.
Contexte:
Saisie d'un numéro (ex: P1234) dans la colonne B de la feuille base de données
Contrôle du numéro saisie dans la colonne B
1- numéro déjà présent, message d'info, déplacement du curseur vers le numéro existant
2- numéro non présent, poursuite de la saisie vers une autre colonne (pour le moment j'ai un msg "pas trouvé")
Voici mon code qui fonctionne en appel de macro
Sub TestCelluleSaisie()
Dim saisie As String
Dim celluletrouvee As Range
Dim ligne As Integer
Dim colonne As Integer
saisie = ActiveCell
Set celluletrouvee = Range("B1:B5").Find(saisie, lookat:=xlWhole)
If celluletrouvee Is Nothing Then
MsgBox ("pas trouvé")
Else
MsgBox ("Déja saisi")
ligne = celluletrouvee.Row
colonne = celluletrouvee.Column
Cells(ligne, colonne).Select
End If
End Sub
Ma question :
Je veux que ce contrôle se fasse lorsque l'opérateur entre le numéro et non en exécutant la macro manuellement.
Auriez vous une proposition ?*
D'avance merci.
Phil.