Discussion :

[legregos38]

bonsoir, j'ai un tableau sous word avec des champs de formulaire de type texte et des cases à cocher activex. Je souhaite créer du code pour insérer une ligne à la fin de mon tableau dans laquelle j'ai une nouvelle zone de texte ainsi que des cases à cocher...

[clementmarcotte]

bonsoir, j'ai un tableau sous word avec des champs de formulaire de type texte et des cases à cocher activex.

Pourquoi pas un vrai formulaire à la mode Word, à la place ?

Je souhaite créer du code pour insérer une ligne à la fin de mon tableau dans laquelle j'ai une nouvelle zone de texte ainsi que des cases à cocher...

Juste à enregistrer une macro

[legregos38]

merci de la réponse . mais c'est un peu plus plus complexe.
C'est une sorte de questionnaire dans lequel tu dois donner une appréciation
première cellule : zone de texte formulaire, 2eme cellule case a cocher activex, 3eme cellule case à cocher active x etc, l'utilsateur ne peut avoir qu'un choix

Je souhaiterai insérer une ligne avec la meme chose mais avec une autre appréciation...

[legregos38]

Ou tout simplement , j'aimerais faire un copier-coller de la dernière ligne du tableau avec le champ texte de formulaire et les cases à cocher dans chaque cellule avec un nom a chaque checkbox ( idéalement checkn°de ligne)

Si qqn peut m'aider merci

[legregos38]

Bonsoir, je souhaiterai connaitre le code pour se positionner dans la dernière cellule de la première colonne d'un tableau et après insérer des contrôles activex ( cases à cocher ) dans les 4 cellules de droite et que les cases à cocher prennent comme nom optnumlignenumcolonne

merci beaucoup de votre réponse

[Sepia]

Salut legregos38,

Je voudrais savoir si tu veux faire l'opération à la demande (sur un bouton de commande avec une macro) ou simplement par l'interface. La réponse avec une macro est évidemment beaucoup plus complexe.

@+

[legregos38]

l'opération est à la demande soit avec un raccourci clavier macro

merci

[legregos38]

personne pour m'aider? snif snif

[Sepia]

Salut legregos38,

Si, si mais on ne peut pas être bénévole et dispo à la demande de tous. Pour simplifier dans un 1er temps et comme on n'a pas plus d'info sur le sujet, on va supposer que le tableau concerné est le 1er du document.

Code :

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

1
2
3
4
5
6
Sub DupliquerDerniereLigneD1Tableau
    ActiveDocument.Tables(1).Rows(ActiveDocument.Tables(1).Rows.Count).Select
    Selection.Copy
    Selection.MoveRight Unit:=wdCharacter, Count:=1
    Selection.Paste
End Sub

Si ton tableau n'est pas le 1er, il faut d'abord connaitre le n° du tableau dans la collection. Pour cela, soit tu utilises l'objet Sélection (en se positionnant dessus avec la souris par exemple avant de lancer la macro) soit tu utilises un signet.

@+

[legregos38]

Bonjour excusez moi ,

Merci de ta réponse et je suis finalement arrivé au même code que toi...
Le souci que je rencontre est plûtot au niveau des caches à cocher, je souhaiterai qu'elles prennent comme name caseàcochern°lignen°colonne
je n'arrive pas à l'aide de VBA si tu veux sélectionne la case à cocher , aller dans ses propriétés et changer le nom , sa largeur etc...

Il ne me manque que çà...càd
comment sélectionner un controleactivex (case à cocher), modifier ses propriétes...

Merci

[Sepia]

Salut legregos38,

Le problème est que les ControlActiveX sont peu manipulables et que tous les propriétés ne sont pas accessibles en VBA. Néanmoins la propriété "Caption" (<=> le titre de la checkbox) est modifiable. Voici le code mais attention, il n'y a pas de variable pour le n° de tableau (donc j'ai pris le n° 1), pas de contrôle du nombre de colonnes du tableau, pas de contrôle de la présence de la checkbox dans le tableau...)

Code :

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

1
2
3
4
5
6
7
Sub RenommerCheckBox()
    For aI = 2 To 5
        If ActiveDocument.Tables(1).Cell(ActiveDocument.Tables(1).Rows.Count, aI).Range.InlineShapes(1).OLEFormat.ClassType = "Forms.CheckBox.1" Then
            ActiveDocument.Tables(1).Cell(ActiveDocument.Tables(1).Rows.Count, aI).Range.InlineShapes(1).OLEFormat.Object.Caption = "CaseACocher_" + Trim(Str(aI)) + "_" + Trim(Str(ActiveDocument.Tables(1).Rows.Count))
        End If
    Next
End Sub

@+