Bonjour,
j'ai une base de formulaire simple et les champs sur lesquels je voudrais effectuer un test sont ceux correspondant à l'adresse.
Lorsque le type de voie et le nom de voie sont renseignés, je veux vérifier si le couple [type voie;nom voie] existe dans la base de données qui est dans la feuille "Voies", sachant que je dois également récupérer le code de la Voie dans la feuille "Type Voie utile".
Mon principal problème est l'instruction qui me permettrait de lancer le test au moment de la saisie du nom de voie.
j'ai une base de formulaire simple et les champs sur lesquels je voudrais effectuer un test sont ceux correspondant à l'adresse.
Lorsque le type de voie et le nom de voie sont renseignés, je veux vérifier si le couple [type voie;nom voie] existe dans la base de données qui est dans la feuille "Voies", sachant que je dois également récupérer le code de la Voie dans la feuille "Type Voie utile".
Mon principal problème est l'instruction qui me permettrait de lancer le test au moment de la saisie du nom de voie.
Code:
[Au moment où D7 et E7 sont remplis]
Dim typeVoie As String, nomVoie As String, Dim test As Boolean
typeVoie = cells(7,4).Value
nomVoie = cells(7,5).Value
test = False
Sheets("Type Voie utile").Select
For i = 2 to 30
If typeVoie = cells(i,2).value Then
typeVoie = cells(i,2).value
Exit For
End If
Next
Sheets("Voies utile").Select
lastRow = Range("B65536").End(xlup).row 'Derniere ligne remplie
For i = 2 to lastRow
If nomVoie = cells(i,1).value And typeVoie = cells(i,5).Value Then
test = True
Exit For
End If
Next
if test = False Then
MsgBox("L'adresse n'existe pas")
End If
Pièces jointes
Dernière édition: