Nom de signet basé sur des chiffres
Le
ThierryP

Bonjour le forum,
Pour les besoins d'une petite appli sous Excel/Word je dois récupérer l=
es valeurs de plusieurs cellules adjacentes d'une même ligne afin d'alime=
nter des signets. Cela donne quelque chose comme ça :
Num_EVO = Range("A65000").End(xlUp).Offset(0, 0)
Date_Création = Range("A65000").End(xlUp).Offset(0, 1)
Référence = Range("A65000").End(xlUp).Offset(0, 2)
Désignation = Range("A65000").End(xlUp).Offset(0, 3)
etc
With wDoc
.Bookmarks("Num_EVO").Range.Text = Num_EVO
.Bookmarks("Date").Range.Text = Date_Création
.Bookmarks("Référence").Range.Text = Référence
etc
End With
J'aurais voulu boucler sur mes cellules afin d'alléger le code :
With wDoc
for i=0 to 999
.Bookmarks(i).Range.Text=Range("A65000").End(xlUp).Offset(0, i)
next
end with
.. Mais Word refuse le numérique comme nom de signet.
Y a-t-il un moyen de contourner çà ??
Merci d'avance,
ThierryP
Pour les besoins d'une petite appli sous Excel/Word je dois récupérer l=
es valeurs de plusieurs cellules adjacentes d'une même ligne afin d'alime=
nter des signets. Cela donne quelque chose comme ça :
Num_EVO = Range("A65000").End(xlUp).Offset(0, 0)
Date_Création = Range("A65000").End(xlUp).Offset(0, 1)
Référence = Range("A65000").End(xlUp).Offset(0, 2)
Désignation = Range("A65000").End(xlUp).Offset(0, 3)
etc
With wDoc
.Bookmarks("Num_EVO").Range.Text = Num_EVO
.Bookmarks("Date").Range.Text = Date_Création
.Bookmarks("Référence").Range.Text = Référence
etc
End With
J'aurais voulu boucler sur mes cellules afin d'alléger le code :
With wDoc
for i=0 to 999
.Bookmarks(i).Range.Text=Range("A65000").End(xlUp).Offset(0, i)
next
end with
.. Mais Word refuse le numérique comme nom de signet.
Y a-t-il un moyen de contourner çà ??
Merci d'avance,
ThierryP
Bonjour,
Essayez de nommer vos signets : S1, S2, ...,S999 et ensuite :
for i=0 to 999
.Bookmarks("S" & i).Range.Text=Range("A65000").End(xlUp).Offset(0, i)
next
Pas testé...
db
C'est l'oeuf de Colomb !! Merci d'avoir pensé pour moi !!!! Je crois que je vais aller me coucher moi.....