djkrom2003
XLDnaute Nouveau
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 :
j'aimerais le placer ici :
Code:
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 :
Code:
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