XL 2010 ajout de textbox

Appo1985 · 27 Novembre 2022

Bonjour.
J'ai un userform avec des combobox et 12 TEXTBOX.
Je voudrais agrandir mon tableau pour ajouter 2 colonnes a droite et donc ajouté deux TEXTBOX (12 et 13) sur mon userform. Mais je ne sais pas quelle partie du code modifier.
Le fichier étant trop lourd je n'ai pas pu le poster.
Mon tableau commence de la colonne B à la colonne Q
Comme je ne maîtrise la les code et que c'est sur ce forum qu'on m'a aidé pour constituer le code je reviens vers vous pour pouvoir modifier le code en ajoutant les deux TEXTBOX
Voici le code.

Sub noteEnregistrer_clismck()
If Me.ComboBox1 = "" Then 'alors message d'alerte
Beep 'Bip d'alerte
MsgBox "Sélectionnez un matricule dans la liste"
Me.ComboBox1.SetFocus 'je me replace sur le combobox
Exit Sub
End If
'et je sors du Sub
onglet = Array("notet1", "notet2", "notet3")
With Sheets(onglet(ComboBox2.ListIndex))
lig = Application.Match(Val(ComboBox1.Value), .[B:B], 0)
If Not IsNumeric(lig) Then lig = Application.CountA(.[B:B]) + 3
.Cells(lig, 2) = Val(ComboBox1.Value)
.Cells(lig, 3) = lblsexe: .Cells(lig, 4) = lblnom: .Cells(lig, 5) = lblprenom
For k = 1 To 12
If IsNumeric(ufnote.Controls("TextBox" & k)) Then
.Cells(lig, k + 5) = CDbl(ufnote.Controls("TextBox" & k))
Else
.Cells(lig, k + 5) = ""
End If
Next
ComboBox1 = ""
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
TextBox5 = ""
TextBox6 = ""
TextBox7 = ""
TextBox8 = ""
TextBox9 = ""
TextBox10 = ""
TextBox11 = ""
TextBox12 = ""
End With
End Sub

Jacky67 · 28 Novembre 2022

Appo1985 à dit:
Bonjour.
J'ai un userform avec des combobox et 12 TEXTBOX.
Je voudrais agrandir mon tableau pour ajouter 2 colonnes a droite et donc ajouté deux TEXTBOX (12 et 13) sur mon userform. Mais je ne sais pas quelle partie du code modifier.
Le fichier étant trop lourd je n'ai pas pu le poster.
Mon tableau commence de la colonne B à la colonne Q
Comme je ne maîtrise la les code et que c'est sur ce forum qu'on m'a aidé pour constituer le code je reviens vers vous pour pouvoir modifier le code en ajoutant les deux TEXTBOX

Bonjour,
Il y a quelque chose qui ne colle pas
J'ai un userform avec des combobox et 12 TEXTBOX.
et donc ajouté deux TEXTBOX (12 et 13)
Une...

Jacky67 · 28 Novembre 2022

Appo1985 à dit:
Bonjour.
J'ai un userform avec des combobox et 12 TEXTBOX.
Je voudrais agrandir mon tableau pour ajouter 2 colonnes a droite et donc ajouté deux TEXTBOX (12 et 13) sur mon userform. Mais je ne sais pas quelle partie du code modifier.
Le fichier étant trop lourd je n'ai pas pu le poster.
Mon tableau commence de la colonne B à la colonne Q
Comme je ne maîtrise la les code et que c'est sur ce forum qu'on m'a aidé pour constituer le code je reviens vers vous pour pouvoir modifier le code en ajoutant les deux TEXTBOX

Bonjour,
Il y a quelque chose qui ne colle pas
J'ai un userform avec des combobox et 12 TEXTBOX.
et donc ajouté deux TEXTBOX (12 et 13)
Une tentative sans classeur exemple et avec 14 textbox sur le code donné

VB:

Sub noteEnregistrer_clismck()
    If Me.ComboBox1 = "" Then    'alors message d'alerte
        Beep    'Bip d'alerte
        MsgBox "Sélectionnez un matricule dans la liste"
        Me.ComboBox1.SetFocus    'je me replace sur le combobox
        Exit Sub
    End If
    'et je sors du Sub
    onglet = Array("notet1", "notet2", "notet3")
    With Sheets(onglet(ComboBox2.ListIndex))
        lig = Application.Match(Val(ComboBox1.Value), .[B:B], 0)
        If Not IsNumeric(lig) Then lig = Application.CountA(.[B:B]) + 3
        .Cells(lig, 2) = Val(ComboBox1.Value)
        .Cells(lig, 3) = lblsexe: .Cells(lig, 4) = lblnom: .Cells(lig, 5) = lblprenom
        For k = 1 To 14
            If IsNumeric(ufnote.Controls("TextBox" & k)) Then
                .Cells(lig, k + 5) = CDbl(ufnote.Controls("TextBox" & k))
            Else
                .Cells(lig, k + 5) = ""
            End If
            ufnote.Controls("TextBox" & k) = ""
        Next
        ComboBox1 = ""
    End With
End Sub

*Ce code n'est pas placé dans le code de l'userform.........

Appo1985 · 2 Décembre 2022

Jacky67 à dit:

Bonjour,
Il y a quelque chose qui ne colle pas
J'ai un userform avec des combobox et 12 TEXTBOX.
et donc ajouté deux TEXTBOX (12 et 13)
Une tentative sans classeur exemple et avec 14 textbox sur le code donné

VB:

Sub noteEnregistrer_clismck()
    If Me.ComboBox1 = "" Then    'alors message d'alerte
        Beep    'Bip d'alerte
        MsgBox "Sélectionnez un matricule dans la liste"
        Me.ComboBox1.SetFocus    'je me replace sur le combobox
        Exit Sub
    End If
    'et je sors du Sub
    onglet = Array("notet1", "notet2", "notet3")
    With Sheets(onglet(ComboBox2.ListIndex))
        lig = Application.Match(Val(ComboBox1.Value), .[B:B], 0)
        If Not IsNumeric(lig) Then lig = Application.CountA(.[B:B]) + 3
        .Cells(lig, 2) = Val(ComboBox1.Value)
        .Cells(lig, 3) = lblsexe: .Cells(lig, 4) = lblnom: .Cells(lig, 5) = lblprenom
        For k = 1 To 14
            If IsNumeric(ufnote.Controls("TextBox" & k)) Then
                .Cells(lig, k + 5) = CDbl(ufnote.Controls("TextBox" & k))
            Else
                .Cells(lig, k + 5) = ""
            End If
            ufnote.Controls("TextBox" & k) = ""
        Next
        ComboBox1 = ""
    End With
End Sub

*Ce code n'est pas placé dans le code de l'userform....

Jacky67 à dit:

Bonjour,
Il y a quelque chose qui ne colle pas
J'ai un userform avec des combobox et 12 TEXTBOX.
et donc ajouté deux TEXTBOX (12 et 13)
Une tentative sans classeur exemple et avec 14 textbox sur le code donné

VB:

Sub noteEnregistrer_clismck()
    If Me.ComboBox1 = "" Then    'alors message d'alerte
        Beep    'Bip d'alerte
        MsgBox "Sélectionnez un matricule dans la liste"
        Me.ComboBox1.SetFocus    'je me replace sur le combobox
        Exit Sub
    End If
    'et je sors du Sub
    onglet = Array("notet1", "notet2", "notet3")
    With Sheets(onglet(ComboBox2.ListIndex))
        lig = Application.Match(Val(ComboBox1.Value), .[B:B], 0)
        If Not IsNumeric(lig) Then lig = Application.CountA(.[B:B]) + 3
        .Cells(lig, 2) = Val(ComboBox1.Value)
        .Cells(lig, 3) = lblsexe: .Cells(lig, 4) = lblnom: .Cells(lig, 5) = lblprenom
        For k = 1 To 14
            If IsNumeric(ufnote.Controls("TextBox" & k)) Then
                .Cells(lig, k + 5) = CDbl(ufnote.Controls("TextBox" & k))
            Else
                .Cells(lig, k + 5) = ""
            End If
            ufnote.Controls("TextBox" & k) = ""
        Next
        ComboBox1 = ""
    End With
End Sub

*Ce code n'est pas placé dans le code de l'userform.........

Grandement merci

XL 2010 ajout de textbox

Appo1985

XLDnaute Occasionnel

Jacky67

Jacky67

XLDnaute Barbatruc

Appo1985

XLDnaute Occasionnel

Discussions similaires