boucler si valeur imputbox est vide

[djkrom2003]

Bonjour je me prends la tete à essayer de trouver une façon de boucler sur l'imputbox tant qu'une valeur n'est pas renseignée, voici le code que j'ai fait :

Sub client()

Dim client, Departement, i, Hauteur
Dim estPresent As Boolean

With Sheets("base client")
    client = ActiveCell
    
    ' Hauteur correspond au nombre d'éléments sur la page "base client"
    Hauteur = .Range("c2").CurrentRegion.Rows.Count
    
    i = 1
    estPresent = False
    ' On recherche tant qu'on n'a pas trouvé et tant qu'on n'est pas à la fin
    While Not estPresent And i <= Hauteur
        If .Cells(i + 1, 3) = client Then
            ' On a trouvé
            estPresent = True
        End If
        
        ' On passe à la ligne suivante
        i = i + 1
    Wend
    
    If Not estPresent Then
        ' On est dans le cas où la recherche a été infructueuse, et on demande d'ajouter le client
        Departement = InputBox("Client manquant, entrez un département")
                
        .Range("c" & Hauteur + 1).Value = client
        .Range("i" & Hauteur + 1).Value = Departement
    End If
   
    
End With
End Sub

j'aimerais le placer ici :

 If Not estPresent Then
        ' On est dans le cas où la recherche a été infructueuse, et on demande d'ajouter le client
        Departement = InputBox("Client manquant, entrez un département")
                
        .Range("c" & Hauteur + 1).Value = client
        .Range("i" & Hauteur + 1).Value = Departement
    End If

 

[JNP]

Re : boucler si valeur imputbox est vide

Bonjour Djkrom2003 ,
A tester

Sub Client()
Dim Cellule As Range, Departement As Double, Hauteur As Long
With Sheets("base client")
Hauteur = .Range("c35000").End(xlUp).Row
Set Cellule = .Range("c" & Hauteur).Find(ActiveCell, lookat:=xlWhole)
If Cellule Is Nothing Then
Recommence:
Departement = Application.InputBox("Client manquant, entrez un département", , , , , , , 1)
If Departement = 0 Or Int(Departement) <> Departement Or Departement > 96 Then GoTo Recommence
.Range("c" & Hauteur + 1).Value = ActiveCell
.Range("i" & Hauteur + 1).Value = Departement
End If
End With
End Sub

Si tu as des clients DOM TOM ou Corses, il faudra revoir le test ...
Bonne suite

 

[djkrom2003]

Re : boucler si valeur imputbox est vide



bonjour et merci pour votre réponse qui fonctionne,oui, j'ai des clients internationaux, cependant les departements saisies ne peuvent etre différents d'un liste existante et lorsque je valide sans saisir de données, voici ce que j'obtiens, voir image ci jointe.

 

[JNP]

Re : boucler si valeur imputbox est vide

Re ,
Ne pas saisir de données, c'est bien un cas que tu voulais exclure, non?

 

[djkrom2003]

Re : boucler si valeur imputbox est vide

Absolument JNP, mais je preferais que ça boucle si valeur imputbox est vide, comme le titre du post...

 

[JNP]

Re : boucler si valeur imputbox est vide

Re ,
Si l'InputBox n'est pas renseigné, Département = 0, or

If Departement = 0

le vérifie et boucle ...
Donc je ne comprends pas la question ...
Bonne suite