Microsoft 365 formulaire besoin aide

lathus jean-claude · 6 Mai 2022

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 · 8 Mai 2022

lathus jean-claude à dit:
Re bonjour Jacky

VB:

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

Code:

Private Sub...

Jacky67 · 7 Mai 2022

lathus jean-claude à dit:
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

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

lathus jean-claude · 8 Mai 2022

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

lathus jean-claude · 8 Mai 2022

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 · 8 Mai 2022

lathus jean-claude à dit:
Re bonjour Jacky

VB:

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

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

lathus jean-claude · 8 Mai 2022

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

Microsoft 365 formulaire besoin aide

lathus jean-claude

XLDnaute Nouveau

Pièces jointes

Jacky67

Jacky67

XLDnaute Barbatruc

Pièces jointes

lathus jean-claude

XLDnaute Nouveau

lathus jean-claude

XLDnaute Nouveau

Jacky67

XLDnaute Barbatruc

Pièces jointes

lathus jean-claude

XLDnaute Nouveau

Discussions similaires