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 quand clic sur une cellule

quand clic sur une cellule

7 réponses
Avatar
christophe
Bonjour,

Je voudrais quand je clique en A1 qu'une boite type
inputbox s'ouvre.

Merci d'avance
Signaler un problème avec ce contenu

7 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 Christophe
Clic droit sur l'onglet de ta feuille puis Visualiser le code et tu places
ceci :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$A$1" Then
MaValeur = InputBox("Entrer la valeur", "Donnée pour A1")
If MaValeur <> "" Then
Target.Value = MaValeur
End If
End If
End Sub

Cordialement
Pascal

"christophe" a écrit dans le message de
news:09c601c39ec2$1a0f7310$
Bonjour,

Je voudrais quand je clique en A1 qu'une boite type
inputbox s'ouvre.

Merci d'avance


Avatar
christophe reina
Merci beaucoup.

Puis je répéter ca indéfiniment sur plein de cellule?

D'avance merci
-----Message d'origine-----
Bonjour Christophe
Clic droit sur l'onglet de ta feuille puis Visualiser le
code et tu places

ceci :
Private Sub Worksheet_SelectionChange(ByVal Target As
Range)

If Target.Address = "$A$1" Then
MaValeur = InputBox("Entrer la valeur", "Donnée pour
A1")

If MaValeur <> "" Then
Target.Value = MaValeur
End If
End If
End Sub

Cordialement
Pascal

"christophe" a écrit dans le
message de

news:09c601c39ec2$1a0f7310$
Bonjour,

Je voudrais quand je clique en A1 qu'une boite type
inputbox s'ouvre.

Merci d'avance



.




Avatar
papou
Re
Dans ces conditions, je te suggère plutôt d'utiliser Données validation et
de définir précisemment les types de données à entrer.
Ceci étant, à mon avis, ces messages deviennent vite très agaçant pour
l'utilisateur (que ce soit avec la méthode ci-dessus ou celle que je t'ai
donné en exemple).
Selon moi il vaudrait mieux revoir la façon de procéder avec peut-être
simplement un commentaire associé aux cellules qui doivent être saisies, ou
alors carrément un formulaire de saisie dont tu récupères les infos pour les
placer au bon endroit.
Ce n'est que mon avis personnel sur la question.
Cordialement
Pascal

"christophe reina" a écrit dans le message de
news:027b01c39ec7$7359eea0$
Merci beaucoup.

Puis je répéter ca indéfiniment sur plein de cellule?

D'avance merci
-----Message d'origine-----
Bonjour Christophe
Clic droit sur l'onglet de ta feuille puis Visualiser le
code et tu places

ceci :
Private Sub Worksheet_SelectionChange(ByVal Target As
Range)

If Target.Address = "$A$1" Then
MaValeur = InputBox("Entrer la valeur", "Donnée pour
A1")

If MaValeur <> "" Then
Target.Value = MaValeur
End If
End If
End Sub

Cordialement
Pascal

"christophe" a écrit dans le
message de

news:09c601c39ec2$1a0f7310$
Bonjour,

Je voudrais quand je clique en A1 qu'une boite type
inputbox s'ouvre.

Merci d'avance



.




Avatar
Bonjour,
ton idéee de formulaire est très bonne.
Comment le mettre en place?
Merci

-----Message d'origine-----
Re
Dans ces conditions, je te suggère plutôt d'utiliser
Données validation et

de définir précisemment les types de données à entrer.
Ceci étant, à mon avis, ces messages deviennent vite très
agaçant pour

l'utilisateur (que ce soit avec la méthode ci-dessus ou
celle que je t'ai

donné en exemple).
Selon moi il vaudrait mieux revoir la façon de procéder
avec peut-être

simplement un commentaire associé aux cellules qui
doivent être saisies, ou

alors carrément un formulaire de saisie dont tu récupères
les infos pour les

placer au bon endroit.
Ce n'est que mon avis personnel sur la question.
Cordialement
Pascal

"christophe reina" a écrit
dans le message de

news:027b01c39ec7$7359eea0$
Merci beaucoup.

Puis je répéter ca indéfiniment sur plein de cellule?

D'avance merci
-----Message d'origine-----
Bonjour Christophe
Clic droit sur l'onglet de ta feuille puis Visualiser le
code et tu places

ceci :
Private Sub Worksheet_SelectionChange(ByVal Target As
Range)

If Target.Address = "$A$1" Then
MaValeur = InputBox("Entrer la valeur", "Donnée pour
A1")

If MaValeur <> "" Then
Target.Value = MaValeur
End If
End If
End Sub

Cordialement
Pascal

"christophe" a écrit dans le
message de

news:09c601c39ec2$1a0f7310$
Bonjour,

Je voudrais quand je clique en A1 qu'une boite type
inputbox s'ouvre.

Merci d'avance



.




.





Avatar
Dédé
Salut !

Si tu veux, je peux t'envoyer un exemple dans ta BAL mais pour cela, envoie
moi ton adresse e-mail dans ma BAL ;-))

Merci d'avance et à +

Dédé

--
Pour me répondre, copiez cette formule dans excel ;-) et sur une seule ligne
!
ÊR(83)&CAR(117)&CAR(103)&CAR(117)&CAR(115)&CAR(49)&CAR(50)&CAR(48)&CAR(48)
&CAR(50)&CAR(64)&CAR(121)&CAR(97)&CAR(104)&CAR(111)&CAR(111)&CAR(46)&CAR(102
)&CAR(114)

Sites de références,
Word :
http://faq.ms.word.free.fr/
Barre de menu disparues ? voir ici -
http://faq.ms.word.free.fr/Environnement/Environnement_reponses.htm#e1
Incrémentation chronologique ?
http://faq.ms.word.free.fr/VBA/VBA_reponses.htm#v3
Chiffres en lettres ? (Word et Excel)
http://faq.ms.word.free.fr/VBA/VBA_reponses.htm#v4
Excel :
http://www.excelabo.net/
http://jacxl.free.fr/cours_xl/cours_xl_jac.html#accueil_xl
http://dj.joss.free.fr/faq.htm
http://perso.wanadoo.fr/frederic.sigonneau/
http://excel.1.free.fr/

a écrit dans le message de
news:072c01c39f8e$2a829840$
Bonjour,
ton idéee de formulaire est très bonne.
Comment le mettre en place?
Merci

-----Message d'origine-----
Re
Dans ces conditions, je te suggère plutôt d'utiliser
Données validation et

de définir précisemment les types de données à entrer.
Ceci étant, à mon avis, ces messages deviennent vite très
agaçant pour

l'utilisateur (que ce soit avec la méthode ci-dessus ou
celle que je t'ai

donné en exemple).
Selon moi il vaudrait mieux revoir la façon de procéder
avec peut-être

simplement un commentaire associé aux cellules qui
doivent être saisies, ou

alors carrément un formulaire de saisie dont tu récupères
les infos pour les

placer au bon endroit.
Ce n'est que mon avis personnel sur la question.
Cordialement
Pascal

"christophe reina" a écrit
dans le message de

news:027b01c39ec7$7359eea0$
Merci beaucoup.

Puis je répéter ca indéfiniment sur plein de cellule?

D'avance merci
-----Message d'origine-----
Bonjour Christophe
Clic droit sur l'onglet de ta feuille puis Visualiser le
code et tu places

ceci :
Private Sub Worksheet_SelectionChange(ByVal Target As
Range)

If Target.Address = "$A$1" Then
MaValeur = InputBox("Entrer la valeur", "Donnée pour
A1")

If MaValeur <> "" Then
Target.Value = MaValeur
End If
End If
End Sub

Cordialement
Pascal

"christophe" a écrit dans le
message de

news:09c601c39ec2$1a0f7310$
Bonjour,

Je voudrais quand je clique en A1 qu'une boite type
inputbox s'ouvre.

Merci d'avance



.




.





Avatar
Pascal
Salut dédé,
Moi ca m'intérresse.
J'ai des Horaires à entrer.
En F1 heures début au format hh:mm
En F2 heures Fin
En F3 intervalle horaire.
C'est possible de faire un formulaire pour cela

Pascal
"Dédé" a écrit dans le message de news:

Salut !

Si tu veux, je peux t'envoyer un exemple dans ta BAL mais pour cela,
envoie

moi ton adresse e-mail dans ma BAL ;-))

Merci d'avance et à +

Dédé

--
Pour me répondre, copiez cette formule dans excel ;-) et sur une seule
ligne

!

ÊR(83)&CAR(117)&CAR(103)&CAR(117)&CAR(115)&CAR(49)&CAR(50)&CAR(48)&CAR(48)


&CAR(50)&CAR(64)&CAR(121)&CAR(97)&CAR(104)&CAR(111)&CAR(111)&CAR(46)&CAR(102

)&CAR(114)

Sites de références,
Word :
http://faq.ms.word.free.fr/
Barre de menu disparues ? voir ici -
http://faq.ms.word.free.fr/Environnement/Environnement_reponses.htm#e1
Incrémentation chronologique ?
http://faq.ms.word.free.fr/VBA/VBA_reponses.htm#v3
Chiffres en lettres ? (Word et Excel)
http://faq.ms.word.free.fr/VBA/VBA_reponses.htm#v4
Excel :
http://www.excelabo.net/
http://jacxl.free.fr/cours_xl/cours_xl_jac.html#accueil_xl
http://dj.joss.free.fr/faq.htm
http://perso.wanadoo.fr/frederic.sigonneau/
http://excel.1.free.fr/

a écrit dans le message de
news:072c01c39f8e$2a829840$
Bonjour,
ton idéee de formulaire est très bonne.
Comment le mettre en place?
Merci

-----Message d'origine-----
Re
Dans ces conditions, je te suggère plutôt d'utiliser
Données validation et

de définir précisemment les types de données à entrer.
Ceci étant, à mon avis, ces messages deviennent vite très
agaçant pour

l'utilisateur (que ce soit avec la méthode ci-dessus ou
celle que je t'ai

donné en exemple).
Selon moi il vaudrait mieux revoir la façon de procéder
avec peut-être

simplement un commentaire associé aux cellules qui
doivent être saisies, ou

alors carrément un formulaire de saisie dont tu récupères
les infos pour les

placer au bon endroit.
Ce n'est que mon avis personnel sur la question.
Cordialement
Pascal

"christophe reina" a écrit
dans le message de

news:027b01c39ec7$7359eea0$
Merci beaucoup.

Puis je répéter ca indéfiniment sur plein de cellule?

D'avance merci
-----Message d'origine-----
Bonjour Christophe
Clic droit sur l'onglet de ta feuille puis Visualiser le
code et tu places

ceci :
Private Sub Worksheet_SelectionChange(ByVal Target As
Range)

If Target.Address = "$A$1" Then
MaValeur = InputBox("Entrer la valeur", "Donnée pour
A1")

If MaValeur <> "" Then
Target.Value = MaValeur
End If
End If
End Sub

Cordialement
Pascal

"christophe" a écrit dans le
message de

news:09c601c39ec2$1a0f7310$
Bonjour,

Je voudrais quand je clique en A1 qu'une boite type
inputbox s'ouvre.

Merci d'avance



.




.









Avatar
Dédé
J'ai commencé mais là, je dois vraiment partir ...

Recontact-moi lundi !!

je vais voir si j'ai un peut de temps ce week-end et autrement je ferais un
p'tit exemple sympa en début de la semaine prochaine ...;-)

Salutation et bonne fin de semaine ;-))

Dédé

--
Pour me répondre, copiez cette formule dans excel ;-) et sur une seule ligne
!
ÊR(83)&CAR(117)&CAR(103)&CAR(117)&CAR(115)&CAR(49)&CAR(50)&CAR(48)&CAR(48)
&CAR(50)&CAR(64)&CAR(121)&CAR(97)&CAR(104)&CAR(111)&CAR(111)&CAR(46)&CAR(102
)&CAR(114)

Sites de références,
Word :
http://faq.ms.word.free.fr/
Barre de menu disparues ? voir ici -
http://faq.ms.word.free.fr/Environnement/Environnement_reponses.htm#e1
Incrémentation chronologique ?
http://faq.ms.word.free.fr/VBA/VBA_reponses.htm#v3
Chiffres en lettres ? (Word et Excel)
http://faq.ms.word.free.fr/VBA/VBA_reponses.htm#v4
Excel :
http://www.excelabo.net/
http://jacxl.free.fr/cours_xl/cours_xl_jac.html#accueil_xl
http://dj.joss.free.fr/faq.htm
http://perso.wanadoo.fr/frederic.sigonneau/
http://excel.1.free.fr/

"Pascal" a écrit dans le message de
news:
Salut dédé,
Moi ca m'intérresse.
J'ai des Horaires à entrer.
En F1 heures début au format hh:mm
En F2 heures Fin
En F3 intervalle horaire.
C'est possible de faire un formulaire pour cela

Pascal
"Dédé" a écrit dans le message de news:

Salut !

Si tu veux, je peux t'envoyer un exemple dans ta BAL mais pour cela,
envoie

moi ton adresse e-mail dans ma BAL ;-))

Merci d'avance et à +

Dédé

--
Pour me répondre, copiez cette formule dans excel ;-) et sur une seule
ligne

!



ÊR(83)&CAR(117)&CAR(103)&CAR(117)&CAR(115)&CAR(49)&CAR(50)&CAR(48)&CAR(48)




&CAR(50)&CAR(64)&CAR(121)&CAR(97)&CAR(104)&CAR(111)&CAR(111)&CAR(46)&CAR(102

)&CAR(114)

Sites de références,
Word :
http://faq.ms.word.free.fr/
Barre de menu disparues ? voir ici -
http://faq.ms.word.free.fr/Environnement/Environnement_reponses.htm#e1
Incrémentation chronologique ?
http://faq.ms.word.free.fr/VBA/VBA_reponses.htm#v3
Chiffres en lettres ? (Word et Excel)
http://faq.ms.word.free.fr/VBA/VBA_reponses.htm#v4
Excel :
http://www.excelabo.net/
http://jacxl.free.fr/cours_xl/cours_xl_jac.html#accueil_xl
http://dj.joss.free.fr/faq.htm
http://perso.wanadoo.fr/frederic.sigonneau/
http://excel.1.free.fr/

a écrit dans le message de
news:072c01c39f8e$2a829840$
Bonjour,
ton idéee de formulaire est très bonne.
Comment le mettre en place?
Merci

-----Message d'origine-----
Re
Dans ces conditions, je te suggère plutôt d'utiliser
Données validation et

de définir précisemment les types de données à entrer.
Ceci étant, à mon avis, ces messages deviennent vite très
agaçant pour

l'utilisateur (que ce soit avec la méthode ci-dessus ou
celle que je t'ai

donné en exemple).
Selon moi il vaudrait mieux revoir la façon de procéder
avec peut-être

simplement un commentaire associé aux cellules qui
doivent être saisies, ou

alors carrément un formulaire de saisie dont tu récupères
les infos pour les

placer au bon endroit.
Ce n'est que mon avis personnel sur la question.
Cordialement
Pascal

"christophe reina" a écrit
dans le message de

news:027b01c39ec7$7359eea0$
Merci beaucoup.

Puis je répéter ca indéfiniment sur plein de cellule?

D'avance merci
-----Message d'origine-----
Bonjour Christophe
Clic droit sur l'onglet de ta feuille puis Visualiser le
code et tu places

ceci :
Private Sub Worksheet_SelectionChange(ByVal Target As
Range)

If Target.Address = "$A$1" Then
MaValeur = InputBox("Entrer la valeur", "Donnée pour
A1")

If MaValeur <> "" Then
Target.Value = MaValeur
End If
End If
End Sub

Cordialement
Pascal

"christophe" a écrit dans le
message de

news:09c601c39ec2$1a0f7310$
Bonjour,

Je voudrais quand je clique en A1 qu'une boite type
inputbox s'ouvre.

Merci d'avance



.




.