Microsoft 365 formulaire besoin aide

[lathus jean-claude]

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

 

[Jacky67]

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

Bonjour,
Ce code attribué au bouton valider de l'userform2

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

 

[lathus jean-claude]

bonjour Jacky
merci pour ce dépannage c'est formidable
merci encore

 

[lathus jean-claude]

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

 

[Jacky67]

Re bonjour Jacky

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

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

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

 

[lathus jean-claude]

re mille pardon j ai oublier une partie du code en recopiant
sa marche
merci