Sujet Précédent Sujet Suivant

Help help help

tonijuneh Messages postés 15 Date d'inscription mercredi 9 juillet 2003 Statut Membre Dernière intervention 30 juillet 2003 - 30 juil. 2003 à 15:55
nhervagault Messages postés 6063 Date d'inscription dimanche 13 avril 2003 Statut Membre Dernière intervention 15 juillet 2011 - 31 juil. 2003 à 01:20
;)
Bon je suis super mal la
Je cherche toujours a savoir comment on recupere une valeur dans une cellule d un tableau sous word connaissant le numero du tableau et les coordonnees de la cellule
SVP

1 réponse

Réponse 1 / 1
nhervagault Messages postés 6063 Date d'inscription dimanche 13 avril 2003 Statut Membre Dernière intervention 15 juillet 2011 36
31 juil. 2003 à 01:20
Public Sub Test()
Dim iBoucle As Integer, NumCol As Integer
If Selection.Information(wdWithInTable) Then
NumCol = Selection.Information(wdEndOfRangeColumnNumber)
For iBoucle = 1 To Selection.Tables(1).Rows.Count
If Selection.Tables(1).Cell(iBoucle, NumCol).Range.Text = Chr(13) &
Chr(7) Then
Selection.Tables(1).Cell(iBoucle, NumCol).Select
MsgBox "Cellule (" & CStr(iBoucle) & " , " & CStr(NumCol) & ")
vide.", vbOK, "Balayage de tableau"
Selection.InsertAfter "Youpi !!!"
Else
End If
Next iBoucle
End If
End Sub

Ce code permet d'ecrire dans un tableau word apparament donc il peut faire l'inverse apres des modifs.
0
Rejoignez-nous