[Résolu] Quitter InputBox si vide

[Lone-wolf]

Bonjour à tous, 🙂

Tout d'abord voici mon code:

Sub appel()
Dim ligne(1 To 3) As String, lig As Long
lig = Range("a65536").End(xlUp).Row + 1

ligne1 = InputBox("Saisissez le nom", "Nom")
ligne2 = InputBox("Saisissez le prénom", "Prénom")
ligne3 = InputBox("Saisissez l'âge", "Age")

Range("a" & lig).Value = ligne1
Range("b" & lig).Value = ligne2
Range("c" & lig).Value = ligne3

Range("a:c").Columns.AutoFit
End Sub

Voilà, j'ouvre ImputBox et puis décide d'annuler. Comment fermer InputBox si elle est vide?


Merci de vos lumières.


A+ 😎

 

[jmps]

Re : Quitter InputBox si vide

Bonjour Lone-Wolf,

Comme ceci ?

Sub appel()
Dim ligne(1 To 3) As String, lig As Long
lig = Range("a65536").End(xlUp).Row + 1

ligne1 = InputBox("Saisissez le nom", "Nom")

If ligne1 = "" Then Exit Sub

ligne2 = InputBox("Saisissez le prénom", "Prénom")
ligne3 = InputBox("Saisissez l'âge", "Age")

Range("a" & lig).Value = ligne1
Range("b" & lig).Value = ligne2
Range("c" & lig).Value = ligne3

Range("a:c").Columns.AutoFit
End Sub

 

[Pierrot93]

Re : Quitter InputBox si vide

Bonjour,

essaye peut être aussi ainsi si tu veux utiliser le tableau déclaré :

Option Explicit
Sub appel()
Dim ligne(1 To 3) As String, lig As Long
lig = Range("a65536").End(xlUp).Row + 1

ligne(1) = InputBox("Saisissez le nom", "Nom")
If ligne(1) = "" Then Exit Sub
ligne(2) = InputBox("Saisissez le prénom", "Prénom")
If ligne(2) = "" Then Exit Sub
ligne(3) = InputBox("Saisissez l'âge", "Age")
If ligne(3) = "" Then Exit Sub
Range("a" & lig).Value = ligne(1)
Range("b" & lig).Value = ligne(2)
Range("c" & lig).Value = ligne(3)

Range("a:c").Columns.AutoFit
End Sub

bonne journée
@+

 

[Lone-wolf]

Re : Quitter InputBox si vide

Bonjour jmps, Pierrot 😀

J'avais mis If ligne1 = "" Then Exit Sub à la fin, c'est pour ça que ça ne fonctionnait pas.

Dans tous les cas, merci pour votre aide.

Très bonne journée à vous deux. 😎