XL 2010 ajout de textbox

A

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
Jacky67
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
Cliquez pour agrandir...
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...
Trier par date Trier par votes
Jacky67

Jacky67

XLDnaute Barbatruc
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
Cliquez pour agrandir...
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:
Vote positif 0 Vote négatif
Solution
A

Appo1985

XLDnaute Occasionnel
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....
Cliquez pour agrandir...

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.........
Cliquez pour agrandir...
Grandement merci
 
Vote positif 0 Vote négatif

Discussions similaires

piga25
  • Résolu(e)
XL 2016 Mettre la même couleur de la dernière cellule colorée
Réponses
5
Affichages
264
TooFatBoy
TooFatBoy
Nicolas JACQUIN
  • Question
XL 2021 Exportation feuille msgbox yes no avec module Thisworkbook
2
Réponses
21
Affichages
831
Nicolas JACQUIN
Nicolas JACQUIN
M
  • Question
Microsoft 365 Modifier code et format textbox
2 3
Réponses
35
Affichages
1 K
Marvin57
M
Nicolas JACQUIN
  • Question
XL 2019 Fusionner jusqu'à dernière colonne contenant
Réponses
8
Affichages
563
TooFatBoy
TooFatBoy
N
  • Question
Microsoft 365 Aide adaptation d'une macro
Réponses
2
Affichages
224
netparty
N
Nicolas JACQUIN
  • Question
XL 2021 Optimisation code pour affichage ligne et colonne
Réponses
14
Affichages
618
patricktoulon
patricktoulon
N
  • Résolu(e)
Microsoft 365 Format date d'une textbox vers une cellule
Réponses
8
Affichages
479
ChTi160
ChTi160
N
  • Question
Microsoft 365 Recherche dans un tableau structuré à partir d'une TextBox
Réponses
11
Affichages
231
NONO14
N
lynyrd
  • Question
XL 2019 code pour tous les disques
Réponses
3
Affichages
453
AtTheOne
AtTheOne
F
  • Question
Microsoft 365 Poursuivre ou pas la macro
Réponses
2
Affichages
348
Francky79
F

Membres actuellement en ligne

16 membres et 296 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
314 422
Messages
2 109 447
Membres
110 482
dernier inscrit
ilyxxxh