Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel limiter a 8 chiffres dans inputbox

limiter a 8 chiffres dans inputbox

2 réponses
Avatar
pPTIFRED
bonjour tout le monde

voila mon code mais je voudrais limiter la saisie a 8 chiffres ou caracteres
c'est possible ??
Sub Action130()
Range("c13").Select
response12 = Application.InputBox("Saisir les 8 Premiers Chiffre du N° de
Compte ", , ActiveWorkbook.ActiveSheet.Range("c13").Value)
If response12 <> False Then ActiveCell.Value = response12
End Sub

par avance merci
ptifred
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
papou
Bonjour
Tu ne dis pas si 8 est le mini et le maxi ?
Sub Action130()
Range("c13").Select
Recommence:
response12 = Application.InputBox("Saisir les 8 Premiers Chiffre du N° de
Compte ", , ActiveWorkbook.ActiveSheet.Range("c13").Value)
Select Case Len(response12)
Case Is < 8, Is > 8
MsgBox "Vous devez saisir 8 chiffres min et maxi"
GoTo Recommence
Case Else: ActiveCell.Value = response12
End Select
End Sub

Cordialement
Pascal

"pPTIFRED" a écrit dans le message de
news:
bonjour tout le monde

voila mon code mais je voudrais limiter la saisie a 8 chiffres ou
caracteres
c'est possible ??
Sub Action130()
Range("c13").Select
response12 = Application.InputBox("Saisir les 8 Premiers Chiffre du N° de
Compte ", , ActiveWorkbook.ActiveSheet.Range("c13").Value)
If response12 <> False Then ActiveCell.Value = response12
End Sub

par avance merci
ptifred


Avatar
pPTIFRED
Impec papou c'est exatement ce que je voulais merci pour tout.

encore merci