Comment remplir un tableau word à partir de check-box et text-box d'un userform?

Bonjour à toutes et tous,

un exemple de gestion de listbox : https://www.cjoint.com/c/JEpuWAzXh6V
eric

Génial eric! J'ai bien avancé grâce à tes conseils :)

Il me reste un problème avec mon spin button que je n'arrive pas à résoudre: lorsque la ligne sélectionnée est tout en bas de la listbox, si l'utilisateur clique sur la flèche vers le bas (et on sait que ça va arriver!) ça me met un message d'erreur... Ce qui m'étonne c'est que je n'ai pas la même problème quand il s'agit d'aller vers le haut...
Voici le code utilisé pour l'instant:

Private Sub SpinButton1_SpinDown()
    Dim x, y
    Dim Suiv()
    ReDim Suiv(0 To 5)
    
    With ListBox1
        If .ListCount = 0 Then Exit Sub
        For y = 0 To 5
            Suiv(y) = .List(.ListIndex + 1, y)
            .List(.ListIndex + 1, y) = .List(.ListIndex, y)
            .List(.ListIndex, y) = Suiv(y)
        Next
        
        ' Resélection de l'élément déplacé
        .ListIndex = .ListIndex + 1
    End With
End Sub

Private Sub SpinButton1_SpinUp()
    Dim x, y
    Dim Prec()
    ReDim Prec(0 To 5)
    
    With ListBox1
        If .ListCount = 0 Or .ListIndex = -1 Or .ListIndex = 0 Then Exit Sub
        For y = 0 To 5
            Prec(y) = .List(.ListIndex - 1, y)
            .List(.ListIndex - 1, y) = .List(.ListIndex, y)
            .List(.ListIndex, y) = Prec(y)
        Next
        
        ' Resélection de l'élément déplacé
        .ListIndex = .ListIndex - 1
    End With
End Sub

J'ai essayé la méthode

On error Resume Next

Mais c'est pas mieux...

Concernant le problème de la taille des checkbox, je crois que je ne vais pas mettre en application ta proposition de les remplacer par des textbox car ça m'obligerait à revoir complètement mes codes de remplissage de mes tableaux 1, 2 et 3. Si j'avais un meilleur niveau ce ne serait peut être pas un problème, mais pour moi ça semble bien compliqué.

Du coup je me dis que la solution pour que l'utilisateur visualise bien ce qu'il a coché ou non serait de créer un événement qui change la couleur de la caption de mes chekbox lorsque leur valeur passe à True.

J'ai réussi à le faire pour une seule checkbox avec le code suivant:

Private Sub a1_Click()
If a1.Value = True Then
a1.ForeColor = RGB(0, 0, 255)
Else: a1.ForeColor = RGB(0, 0, 0)
End If
End Sub

Mais vu que j'ai pas mal de checkbox dans mon userform et que je vais devoir en ajouter encore quelques unes pour le tableau 3, je me dis qu'il serait préférable de faire une boucle pour ne pas avoir des kilomètres de code juste pour ça... Sauf que les boucles c'est pas mon fort, je galère à chaque fois... Voilà mon essai qui ne produit aucun effet:

Private Sub CheckBox_Click()
Dim cb As Control

For Each cb In Me.Controls
If TypeOf cb Is MSForms.CheckBox Then
If cb.Value = True Then
cb.ForeColor = RGB(0, 0, 255)
Else: cb.ForeColor = RGB(0, 0, 0)
End If
End If
Next
End Sub

Help please!

Bonjour,
Pour la rendre visible ou non j'ai conservé la façon d'écrire IIF
Là tu peux faire encore plus court :

labelCoche.visible=CheckBox1.Value

Par contre pour le spin button...
Copie-colle mon code que tu adaptes avec ton y, et tu ajoutes Ton For y= là où tu l'as mis.
Tu ne fais pas le bon test .ListIndex < .ListCount - 1 pour ne pas faire le dernier item justement puisque .List(.ListIndex + 1) n'existe pas.
Et pour SpinUp c'est If .ListIndex > 0 Then puisque le .ListIndex - 1 n'existe pas non plus.

Et tu n'as pas besoin d'un tableau suiv() ou prec().
Une seule variable tampon suffit puisque utilisée en fin de boucle, elle redevient disponible.
eric

Bonjour,

Dim y As String

!!!! String = chaine
As Long pour un entier
A lire d'urgence ;-) https://www.excel-pratique.com/fr/vba/variables
Et si tu veux approfondir : https://silkyroad.developpez.com/VBA/LesVariables/
eric

Bonjour,

Sauf que:
- Dans ton post précédent, tu me dis de déclarer une variable de type long (d'après les définitions des variables de ton 1er lien, je ne comprends pas pourquoi ce choix plutôt que byte qui semble tout indiqué pour la novice que je suis, ou alors y'a encore un truc que j'ai pas compris! lol)
Tu as bien compris.
Dans un langage bien fait il faut utiliser Byte ou Integer si ils suffisent, c'est plus rapide.
Sauf qu'en VBA, excel les convertit en Long dans la majeure partie des cas. Du coup c'est plus lent qu'en Long directement, on y perd...
Donc oui, mais non ;-) T'embête pas, un entier : Long, un décimal : Single ou Double.

Je suis désolée, je ne comprends pas ta correction...
Dans ton code, tu déclarais pourtant Dim s As String et cela marchait très bien.
- Quand je fais la modification avec long à la place de string ça me marque de nouveau un message d'erreur:
"erreur d'exécution 13: incompatibilité de type"
sauf que cette fois ci c'est la ligne du dessous qui se retrouve en surbrillance
y = .List(.ListIndex)
J'avais mis s As String pour y mettre.... un String.
Le but est de permuter 2 valeurs chaines. Pour le faire on est obligé d'en sauvegarder une dans une variable avant de l'écraser avec l'autre, c'est le rôle de s. Un tampon temporaire.
Donc laisse tranquille mon s et remet

s = .List(.ListIndex) 

Et toi tu veux boucler sur les colonnes.
Donc tu déclares TA variable y As Long pour faire ta boucle (ou As Byte si tu veux).
Chaque variable a son rôle et doit être typée selon l'usage qu'on compte en faire, tu as besoin d'un entier.
Et tu remets la notion de colonne dans ta liste que tu as supprimée alors que tu l'avais bien mise auparavant :
s = .List(.ListIndex, y)
.List(.ListIndex, y) = ...
etc

Bon, fait à main levée faute de fichier pour tester mais c'est l'idée.
eric

Bonjour,

- Un pour effacer les informations saisies
- Un pour relancer le formulaire vierge
C'est quoi la différence ?
Enregistre ton fichier en choisissant dans la liste déroulante le Type modèle : *.dotm
A l'ouverture une copie est crée à Enregistrer sous..., ton modèle reste vierge
Garde ta version *.docm pour les évolutions ultérieures.

il y a un mystère que je ne m’explique pas : pourquoi j’arrive à masquer mes boutons pour l’impression (en passant par l’option Police > Masqué
Utilise la propriété .Visible :

CommandButton1.Visible = True
CommandButton11.Visible = False

//////////////////////// maintenant : le lourd \\\\\\\\\\\\\\\\\\\\\\
- Et enfin si cela est possible, un pour ré afficher le formulaire en conservant les informations saisies pour permettre de le corriger ou de le compléter.
C'est là même chose, mais à l'envers :-)
Remplir tes contrôles à partir de la feuille.
Par exemple là où à l'enregistrement tu avais :

tablo1.Rows(nbl).Cells(1).Range.Text = cb.Caption

dans ta macro d'initialisation tu mets :

cb.Caption = tablo1.Rows(nbl).Cells(1).Range.Text

Parfois il faudra reconstituer ou au contraire découper l'information récupérée sur la feuille.
Par exemple le n° de SIRET qui est découpé dans le Userform.

Attention, ça va être assez long à expliquer, et c'est à lire lentement...
Eventuellement, tu pourrais t'aider en préparant dans les .Tag des contrôles (c'est une propriété à ta disposition pour y mettre ce que tu veux) un texte qui t'indiquera que tu as des données à récupérer et les élément nécessaires pour leur récupération.
Je vais prendre un exemple un peu compliqué, une écriture qu'il faudra découper pour restituer les valeurs.
Si tu comprends celui-ci, les cas simple ne te poseront pas de difficulté.

Lorsque tu enregistres le formulaire, ajoute une ligne pour le tag descriptif.
C'est toi qui choisi sa construction en fonction de ce que tu auras besoin comme infos pour restituer les données.
Ca n'est qu'une chaine, même pour les données numériques
Par exemple pour Tableau2 tu démarres ainsi :

    For Each cb In Me.Controls
        If TypeOf cb Is MSForms.CheckBox Then
            If (cb.Name) = "b1" And cb.Value = True Then
                nb2 = tablo2.Rows.Count
                tablo2.Rows.Add
                nb2 = nb2 + 1
                tablo2.Rows(nb2).Cells(1).Range.Text = cb.Caption + Me.surface1.Text + "m²."

Si la check box est cochée (elle sert vraiment elle ??), tu mets dans Tables(2) ligne nb2 colonne 1 la concaténation du Caption et du Text (2 contrôles)
ajoute cette ligne en-dessous :

cb.tag = "type1,2,nb2,1,cb.name,surface1"

Ne pas insérer d'espace après les "," sinon il faudra en tenir compte lors du découpage.
Ca te liste d'où vient ce que tu as écris dans ton tableau : le type de restitution que tu as prévu, le n° du tableau utilisé, sa cellule (ligne, colonne), que tu as un checkbox cb.name à mettre à jour, ainsi qu'un textbox surface1
Comme le tag est mis sur la chekbox, ne pas en mettre sur celui de la textbox puisque qu'elle sera traitée en même temps.

Pour la restitution, il faut boucler sur tous les contrôles et regarder si un tag a été mis.
Si oui, mettre à jour les contrôles concernés en découpant la donnée de la cellule.
Exemple (non testé) :

Sub initForm()
     ' boucler sur les contrôles
     ' pour traiter ceux avec un Tag
    Dim ctrl As Control
    For Each ctrl In UserForm1.Controls
        Select Case TypeName(ctrl)
        Case "CheckBox"
            If ctrl.tag <> "" Then recup ctrl.tag ' on appelle un sub en lui passant en paramètre le tag
        Case "TextBox"
        
        Case "ComboBox"
        
        End Select
    Next ctrl
End Sub

Sub recup(tag As String)
    Dim dataTable As String
    Dim tmp, tmp2
    ' rappel constitution du tag type1 :
    'cb.tag = "type1,2,nb2,1,cb.name,surface1"

    ' découpage du Tag sur la ,
    tmp = Split(tag, ",")
    ' on récupère un tableau :
    'tmp(0) : type
    'tmp(1) : n° Table
    'tmp(2) : ligne table
    ' etc
    With UserForm1
        Select Case tmp(0)    ' type
        Case "type1"

            ' lecture de la cellule
            dataTable = ActiveDocument.Tables(tmp(1)).Rows(CLng(tmp(2))).Cells(CLng(tmp(3))).Range.Text
            '******
            ' tu as 2 données dans la cellule du tableau
            ' en supposant que le séparateur est l'espace,
            'à sa gauche tu as le caption de cb, à sa droite la surface
            tmp2 = Split(dataTable, " ")    ' on découpe sur l'espace
            ' si tu as qq part une cellule où il y aurait plusieurs mots pour une donnée,
            ' il faudra que tu ajoutes un séparateur (par exemple ", ") au moment de l'écriture
            ' qui ne servira qu'à ça : découper.
            ' La chaine de séparation choisie ne devra pas être présente ailleurs dans le texte !!!

            ' maj du checkbox
            .Controls(tmp(4)).Value = True
            .Controls(tmp(4)).Caption = tmp2(0)    ' partie gauche du texte récupéré
            ' maj du textbox
            .Controls(tmp(5)).Text = Left(tmp2(1), Len(tmp2(1) - 3))    ' tmp2(1) :partie droite du texte récupéré,
            ' dont on prend la partie gauche : il faut enlever "m²."

        Case "type2"
            ' tu te crées les types nécessaire au fur et à mesure des besoins
        Case "type 3"
            ' etc
        Case Else
            msgbox "pb, tag type inconnu"
        End Select
    End With
End Sub

Non testé, il est possible, et même probable, qu'il y ait des approximations et des erreurs de syntaxes à corriger.
Bon courage, avec 2 dolipranes ça devrait passer ;-)
eric