Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel InputBox

InputBox

4 réponses
Avatar
Alpha
Bonjour,
Je désire utiliser cette fonction avec le Worksheet_SelectionChange de
A3:A500
Mais voilà, lorsque je clique dans une cellule déjà remplie par erreur, le
fait d'annuler m'efface la donnée saisie, comment dois-je faire afin de
contourner ce pb ?
Merci beaucoup
Alpha

Sub Saisie_Date()
ActiveCell = InputBox("Si la date vous convient, cliquez sur OK ", "Veuillez
saisir une date", Format(Now, "dd mmm yy"))
End Sub
Signaler un problème avec ce contenu

4 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
AV
x = InputBox("Si la date vous convient, cliquez sur OK ", "Veuillez saisir une
date", Format(Now, "dd mmm yy"))
If x = "" Then Exit Sub Else ActiveCell = x

AV
Avatar
Alpha
Merci beaucoup AV
Alpha

"AV" a écrit dans le message de news:

x = InputBox("Si la date vous convient, cliquez sur OK ", "Veuillez saisir
une

date", Format(Now, "dd mmm yy"))
If x = "" Then Exit Sub Else ActiveCell = x

AV




Avatar
Alpha
Euh, Cela fonctionne très bien, mais cela se lance 2 fois ?
Alpha

"AV" a écrit dans le message de news:

x = InputBox("Si la date vous convient, cliquez sur OK ", "Veuillez saisir
une

date", Format(Now, "dd mmm yy"))
If x = "" Then Exit Sub Else ActiveCell = x

AV




Avatar
Alpha
Non, cela fonctionne très bien c'est une erreur de ma part.
Encore merci.
Alpha


"Alpha" a écrit dans le message de news:

Euh, Cela fonctionne très bien, mais cela se lance 2 fois ?
Alpha

"AV" a écrit dans le message de news:

x = InputBox("Si la date vous convient, cliquez sur OK ", "Veuillez
saisir


une
date", Format(Now, "dd mmm yy"))
If x = "" Then Exit Sub Else ActiveCell = x

AV