• Initiateur de la discussion Initiateur de la discussion xblade
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Re : boite dialog

Re,

Ma nouvelle question, c'est Quoi, ou, comment...

J'ai ouvert ton fichier, il y a bien une USF, mais rien derrière....

Comment veux-tu que l'on puisse savoir ce que tu veux et en faire quoi..?

Pas de bol, moi, pour vouloir essayer de répondre, c'est la gamelle...😡 une nouvelle fois...


Mais, bon, d'autres pourront, sans doute, statisfaire à ta demande.
 
Re : boite dialog

Re, et avant de déconnecter.......

Tu veux ajouter des montants à une cellule....

Quels montants ?

Quelle cellule ?

Toujours pareil....... pas d'interêt.

Pour te dire, je racroche et laisse la main.... Incompétent sur ta question...
 
Re : boite dialog

Bonsoir,

Si je comprends bien, d'après la feuille, la valeur ne doit pas être tapée directement dans la cellule, mais insérée au moyen d'une boite de dialogue.

voir ton fichier en retour:

2 cas possibles

- saisie dans une textbox
- saisie dans une combobox (valeurs imposées)

j'espère avoir répondu à ton attente!

Bon dimanche.
 
Re : boite dialog

Bonsoir,

Si je comprends bien, d'après la feuille, la valeur ne doit pas être tapée directement dans la cellule, mais insérée au moyen d'une boite de dialogue.

voir ton fichier en retour:

2 cas possibles

- saisie dans une textbox
- saisie dans une combobox (valeurs imposées)

j'espère avoir répondu à ton attente!

Bon dimanche.


Désolé, j'ai oublié de joindre le fichier 😡 😡
 

Pièces jointes

Re : boite dialog

Désolé.

Cijoint code VBA :

Private Sub Label1_Click()

End Sub

Private Sub CommandButton1_Click()

ActiveCell.Offset(0, 0).Value = TextBox1.Value
ActiveCell.Offset(1, 0).Select
TextBox1.Value = ""

End Sub

Private Sub CommandButton2_Click()

ActiveCell.Offset(0, 0).Value = ComboBox1.Value
ActiveCell.Offset(1, 0).Select
ComboBox1.Value = ""

End Sub

Private Sub UserForm_Click()

End Sub
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
8
Affichages
317
Retour