Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Microsoft 365 formulaire besoin aide

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 !

lathus jean-claude

XLDnaute Nouveau
bonjours a tous
j'ai un tableau de 9 colonne de K5:S25
mon formulaire s'affiche par le bouton tableau
il est composer de combobox1 = liste des mois ; combobox2 = des chiffres
je voudrais quand je sélectionne un mois et un chiffres que le chiffre alimente la colonne N (référent) selon le mois sélectionner
pouvez vous aider SVP.
ci joint mon fichier
merci d'avance
 

Pièces jointes

Solution
Re..
Je n'ai pas ce problème, mes cellules sont au format général avant la saisie
Néanmoins utilise ce code pour être certain du résultat
Code:
Private Sub...
Bonjour,
Ce code attribué au bouton valider de l'userform2
VB:
Private Sub CommandButton1_Click()
If Me.ComboBox1 = "" Or Me.ComboBox2 = "" Then MsgBox "Saisie manquante", vbCritical, "Saisie": Exit Sub
    Feuil1.Cells(Application.Match(CLng(CDate(Me.ComboBox1)), Columns([mois].Column), 0), [mois].Column + 3) = Me.ComboBox2
End Sub
 

Pièces jointes

Dernière édition:
Re bonjour Jacky
petit souci
ta solution me va très bien sauf que sa le met en format texte au lieu du format nombre dans la cellule ; je change mon format sur la feuil rien a faire quand je repasse par mon formulaire
pourquoi?
peut tu me l'expliquer svp
 
Re..
Je n'ai pas ce problème, mes cellules sont au format général avant la saisie
Néanmoins utilise ce code pour être certain du résultat
Code:
Private Sub CommandButton1_Click()
If Me.ComboBox1 = "" Or Me.ComboBox2 = "" Then MsgBox "Saisie manquante", vbCritical, "Saisie": Exit Sub
    [mois].Offset(, 3).NumberFormat = "General"
    Feuil1.Cells(Application.Match(CLng(CDate(Me.ComboBox1)), Columns([mois].Column), 0), [mois].Column + 3) = CLng(Me.ComboBox2)
End Sub
 

Pièces jointes

- 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

Discussions similaires

Réponses
7
Affichages
696
Réponses
4
Affichages
934
Réponses
1
Affichages
385
Réponses
4
Affichages
794
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…