Le contenu des textbox de l'userform est inséré sous le tableau

**Emmanuel-G** · 11/02/2025, 17h19

Bonjour

Je sollicite votre assistance pour résoudre le problème de transfert du contenu de l'Userform vers le tableau. Celui-ci est situé sous le tableau et non dans le tableau. Je ne suis pas un expert en VBA.

Pour le fonctionnement de l'Userform, les textbox N° du jour et date sont renseignés automatiquement, les textbox Itinéraire et type de voie sont remplis quand la textbox N° d'étape est renseignée, la textbox dénivelé total est calculé automatiquement quand les textbox dénivelé + et - sont renseignées.

Je joins le fichier en pièce jointe.

Je vous remercie par avance pour votre aide.

Cordialement E.B

**Nain porte koi** · 11/02/2025, 19h58

Hello,

j'ai testé votre formulaire et pour moi tout va très bien... vous pouvez préciser quel est le problème que vous constatez ?

**rMist2024** · 11/02/2025, 22h48

Correction du code de validation, si le problème est dans cette partie ;

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
Private Sub btnValider_Click()
    Dim L As Integer
    Dim tb, i, TxtBox As Object
    Dim ErrMsg As String, HasErr As Boolean
'If MsgBox("Confirmez-vous la création de ce nouvel ajout?") = vbYes then No("Demande de confirmation d'ajout") = vbYes Then
    ReDim tb(1 To 1, 1 To 11)
 
'On cherche la prochaine ligne vide de la source
 
    L = Sheets("Feuil2").Range("A" & Rows.Count).End(xlUp).Row + 1
 
    For i = 1 To 11 ' nombres de colonnes
        Set TxtBox = Controls("TextBox" & i)
        HasErr = TxtBox.Text = ""
        ErrMsg = ""
        On Error GoTo Eh
        Select Case i
             Case 1: tb(1, i) = CStr(TxtBox)
             Case 2: tb(1, i) = TxtBox
             Case 3:
                  ErrMsg = "Veuillez saisir le N° de l'étape."
                  tb(1, i) = CInt(TxtBox)
             Case 4: tb(1, i) = CStr(TxtBox)
             Case 5: ErrMsg = "Veuillez saisir le nombre de km parcourus."
                  tb(1, i) = CInt(TxtBox)
             Case 6: ErrMsg = "Veuillez saisir le Temps de marche."
                   tb(1, i) = CDate(TxtBox)
             Case 7: ErrMsg = "Veuillez saisir le déniveler +."
                    tb(1, i) = CInt(TxtBox)
             Case 8: ErrMsg = "Veuillez saisir le déniveler -."
                   tb(1, i) = CInt(TxtBox)
             Case 9: tb(1, i) = CInt(TxtBox)
             Case 10: ErrMsg = "Veuillez saisir L'heure d'arrivée."
                   tb(1, i) = TxtBox.Value
             Case 11: tb(1, i) = CStr(TxtBox)
        End Select
        If HasErr Then Exit For
    Next
Eh:
 If (Err.Number <> 0) Or HasErr Then
     Err.Clear
     TxtBox.SelStart = 0
     TxtBox.SelLength = 1000
     If ErrMsg = "" Then: ErrMsg = "Valeur incorrecte pour ce champ" ' message d'erreur par défaut
     MsgBox ErrMsg, vbExclamation
     TxtBox.SetFocus
     Exit Sub
  End If
  Sheets("Feuil2").Range("A" & L).Resize(1, 11) = tb
  Feuil3.Range("L9") = Feuil3.Range("L9") + 1
 
'Réinitialise le contenu des TexteBox
 
    Me.TextBox1 = ""
    Me.TextBox2 = ""
    Me.TextBox3 = ""
    Me.TextBox4 = ""
    Me.TextBox5 = ""
    Me.TextBox6 = ""
    Me.TextBox7 = ""
    Me.TextBox8 = ""
    Me.TextBox9 = ""
    Me.TextBox10 = ""
    Me.TextBox11 = ""
    'Me.lblMessage = ""
 
    'End If
 
 
End Sub

**Emmanuel-G** · 13/02/2025, 11h02

Envoyé par Nain porte koi

Hello,

j'ai testé votre formulaire et pour moi tout va très bien... vous pouvez préciser quel est le problème que vous constatez ?

Le problème que je rencontre est que le contenu renseigné dans l'userform se met sur la dernière ligne mes hor du tableau.

**Nain porte koi** · 13/02/2025, 11h06

Ben pas chez moi

**Emmanuel-G** · 13/02/2025, 12h01

Bonjours
Je viens d'installer la correction du code faite par rMist 2024. Tout fonctionne comme avant seul la date est reconnue comme texte pour le reste rien n'a changé le contenu est toujours envoyé sous le tableau. Après lecture du message de Nain porte Koi, j'ai changé de PC et tout fonctionne correctement. Le PC fonctionne avec Office Pro Plus 2016 et là tout fonctionne correctement, (le contenu est bien inséré dans la tableau). Il doit y avoir un problème avec ma version d'Office sur mon PC de bureau ( j'ai Office Pro Plus 2021).

Je tiens à remercier rMist2024 pour la correction du code et à Nai porte Koi pour avoir soulevé un problème de version d'Office si c'en est bien un.

Cordialement: Emmanuel

**tototiti2008** · 13/02/2025, 12h37

Bonjour,

Sur le poste où ça ne fonctionne pas (le tableau ne s'agrandit pas)
Vérifier dans :
Onglet Fichier - Options
Vérification
Bouton Options de corrections automatiques
Onglet Mise en forme automatique au cours de la frappe
Si "Inclure des nouvelles lignes et colonnes dans le tableau" est coché

Edit : ça devient vraiment n'importe quoi leur classement des options...

**Emmanuel-G** · 13/02/2025, 12h40

Envoyé par Nain porte koi

Ben pas chez moi

Bonjours
Je viens d'installer la correction du code faite par rMist 2024. Tout fonctionne comme avant seul la date est reconnue comme texte pour le reste rien n'a changé le contenu est toujours envoyé sous le tableau. Après lecture du message de Nain porte Koi, j'ai changé de PC et tout fonctionne correctement. Le PC fonctionne avec Office Pro Plus 2016 et là tout fonctionne correctement, (le contenu est bien inséré dans la tableau). Il doit y avoir un problème avec ma version d'Office sur mon PC de bureau ( j'ai Office Pro Plus 2021).

**Emmanuel-G** · 13/02/2025, 14h28

Envoyé par tototiti2008

Bonjour,

Sur le poste où ça ne fonctionne pas (le tableau ne s'agrandit pas)
Vérifier dans :
Onglet Fichier - Options
Vérification
Bouton Options de corrections automatiques
Onglet Mise en forme automatique au cours de la frappe
Si "Inclure des nouvelles lignes et colonnes dans le tableau" est coché

Edit : ça devient vraiment n'importe quoi leur classement des options...

Merci, c'était bien un problème avec l'option indiquée ci-dessus, tout fonctionne correctement maintenant. (Je n'aurais jamais résolu tout seul ce type de problème).

**Emmanuel-G** · 13/02/2025, 14h47

Je souhaite exprimer ma reconnaissance envers toutes les personnes qui ont contribué à résoudre mon problème.( Ces cases ne sont pas cochées dans les OptioJe ns de corrections automatiques.) Un merci tout particulier à rMist2024 pour son travail sur la Correction du code de validation.

Bien cordialement à tous

**Nain porte koi** · 13/02/2025, 14h48

@tototiti2008 y'a que des (bons) formateurs qui vont cherchez des options totalement improbables... et qui les trouvent

**deedolith** · 13/02/2025, 22h57

Envoyé par Emmanuel-G

Le problème que je rencontre est que le contenu renseigné dans l'userform se met sur la dernière ligne mes hor du tableau.

Hello,
Quid de passer par des collections ?

**tototiti2008** · 14/02/2025, 07h56

Bonjour,

Hello,
Quid de passer par des collections ?

En effet, ce serait la solution quelles que soient les options d'Excel, ajouter une ligne à l'objet Tableau et la remplir

Je suppose qu'il faudrait juste modifier la ligne du code de rMist2024 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

  Sheets("Feuil2").Range("A" & L).Resize(1, 11) = tb

en

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Dim LR as ListRow
Set LR = Sheets("Feuil2").ListObjects("Tableau7").ListRows.Add
LR.Range.value = tb
Set LR = Nothing

ça pourrait être l'occasion de donner des noms aux feuilles et aux tableaux autre chose que Feuil2 et Tableau7, mais bon

**rMist2024** · 14/02/2025, 18h56

Je viens d'installer la correction du code faite par rMist 2024. Tout fonctionne comme avant seul la date est reconnue comme texte pour le reste rien n'a changé le contenu est toujours envoyé sous le tableau.

Le code que j'ai posté corrige une grave bug dans la gestion des erreurs, si une mauvaise saisie est faite, des données sont partiellement insérées dans la feuille surtout dans la colonne A et si on retente de corriger la frappe une nouvelle ligne sera insérée. car le programme se base sur cette colonne pour ajouter la prochaine ligne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

  L = Sheets("Feuil2").Range("A" & Rows.Count).End(xlUp).Row + 1

J'ai corriger mon ancien code : Les noms des champs dans les messages d'erreurs ne sont pas exactes.

**Nain porte koi** · 14/02/2025, 20h52

@rMist2024, pourquoi ne pas utiliser ActiveSheet.Range("E12").CurrentRegion.Rows.Count, je pense que ça permet de s'affranchir de la colonne, non ? (E12 étant n'importe quelle cellule)

**rMist2024** · 15/02/2025, 09h56

Le code n'est pas le mien, mais merci pour cette info que je ne connais pas,
je ne savais pas que UsedRange peut agir individuellement sur les colonnes .

Le contenu des textbox de l'userform est inséré sous le tableau [Toutes versions]

Macros et VBA Excel

Discussions similaires

Partager

Partager