Bonjour à tous,
Je réexplique mon souci, il s'agit en fait, lors de modification de procédure d'installation, de pouvoir rajouter dans la 1ère colonne d'un tableau à 2 colonnes, le numéro auto ainsi qu'un shape, permettant au technicien de cocher l'étape qu'il vient de réaliser.
Ce message fait suite à un post que j'avais déjà ouvert :
http://www.vbfrance.com/forum/sujet-MACRO-CREER-LISTE-NUMEROS-PUCES-DANS-TABLEAU_1268753.aspx
Voici donc où j'en suis maintenant :
Dim haut, Gauche, lignecourante As Integer
Dim shp As Shape
ActiveDocument.Tables(1).Rows.Add BeforeRow:=Selection.Rows(1) 'ajoute une ligne au dessus de la ligne sur laquelle se situe le curseur
lignecourante = Selection.Information(wdStartOfRangeRowNumber) 'récupérer le numéro de ligne active
'MsgBox Left(ActiveDocument.Tables(1).Cell(lignecourante, 2).Range.Text, Len(ActiveDocument.Tables(1).Cell(lignecourante, 2).Range.Text) - 2) 'test pour afficher le contenu de la 2nde colonne
lignecourante = lignecourante - 1 'récupère le numéro de la ligne nouvellement créée
'MsgBox Left(ActiveDocument.Tables(1).Cell(lignecourante, 2).Range.Text, Len(ActiveDocument.Tables(1).Cell(lignecourante, 2).Range.Text) - 2)
'MsgBox ActiveDocument.Tables(1).Cell(lignecourante, 1).Height
'MsgBox ActiveDocument.Tables(1).Cell(lignecourante, 1).Width
haut = CInt(ActiveDocument.Tables(1).Cell(lignecourante, 1).Height / 2)
Gauche = CInt(ActiveDocument.Tables(1).Cell(lignecourante, 1).Width / 2)
Set shp = ActiveDocument.Shapes.AddShape(msoShapeRectangle, Gauche, haut, 14, 7.5)
J'arrive donc à créer une ligne dans le tableau , à la sélectionner (d'ailleurs si quelqu'un aurait une autre méthode...Je n'ai pas réussi à utiliser moveup pour récupérer ensuite le numéro de la nouvelle ligne..)
Mon shape est bien créé, mais en haut de la feuille et non pas dans la 1ère cellule de ma ligne créée.
Il me semble que cela est dû au dernier paramètre [Anchor] pour spécifier que la position du shape doit se faire à partir de la cellule et non du bord en haut à gauche de la feuille.
Comment faire pour que mon shape soit placé au bon endroit?
Merci par avance de votre attention.
L'expérience, c'est une connerie par jour, mais jamais la même..