XL 2010 ajout de textbox

Appo1985

XLDnaute Occasionnel
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
 
Solution
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

XLDnaute Barbatruc
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.........
 
Dernière édition:

Appo1985

XLDnaute Occasionnel
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....

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
 

Discussions similaires