N
Nanard
Guest
Bonjour à tous le forum,
Voici quel est mon souci
depuis hier je n'arrive pas à mettre une condition sous VBA en utilisant les blocs IF et ELSE
en clair j'effectue avec la fonction recherchev une recherche à l'aide de N° pour avoir des renseigements sur un client
par exemple : 0102030474
Lorsque le client n'est pas trouvé mon code doit sélectionner la feuil client pour l'ajouter à ma base de donnée
Voilà mon code:
Sub recherche_clients()
Dim Nom_Boîte As Variant
Dim Valeur_E10 As Variant
ActiveSheet.Unprotect
Sheets("Facture").Select
Valeur_E10 = InputBox("Entrez le numéro du client ")
Nom_Boîte = Valeur_E10
Range("E10").Select
ActiveCell.Value = Valeur_E10
Dim i As Variant
If i = False Then
Sheets("Clients").Select Else
Sheets("Facture").Select
End If
End Sub
je vais toujours sur la feuil Client !!
Merci de m'ouvrir les yeux
Nanard
Voici quel est mon souci
depuis hier je n'arrive pas à mettre une condition sous VBA en utilisant les blocs IF et ELSE
en clair j'effectue avec la fonction recherchev une recherche à l'aide de N° pour avoir des renseigements sur un client
par exemple : 0102030474
Lorsque le client n'est pas trouvé mon code doit sélectionner la feuil client pour l'ajouter à ma base de donnée
Voilà mon code:
Sub recherche_clients()
Dim Nom_Boîte As Variant
Dim Valeur_E10 As Variant
ActiveSheet.Unprotect
Sheets("Facture").Select
Valeur_E10 = InputBox("Entrez le numéro du client ")
Nom_Boîte = Valeur_E10
Range("E10").Select
ActiveCell.Value = Valeur_E10
Dim i As Variant
If i = False Then
Sheets("Clients").Select Else
Sheets("Facture").Select
End If
End Sub
je vais toujours sur la feuil Client !!
Merci de m'ouvrir les yeux
Nanard