Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Nom de signet basé sur des chiffres

2 réponses
Avatar
ThierryP
Bonjour le forum,

Pour les besoins d'une petite appli sous Excel/Word je dois r=E9cup=E9rer l=
es valeurs de plusieurs cellules adjacentes d'une m=EAme ligne afin d'alime=
nter des signets. Cela donne quelque chose comme =E7a :

Num_EVO =3D Range("A65000").End(xlUp).Offset(0, 0)
Date_Cr=E9ation =3D Range("A65000").End(xlUp).Offset(0, 1)
R=E9f=E9rence =3D Range("A65000").End(xlUp).Offset(0, 2)
D=E9signation =3D Range("A65000").End(xlUp).Offset(0, 3)
etc...

With wDoc
.Bookmarks("Num_EVO").Range.Text =3D Num_EVO
.Bookmarks("Date").Range.Text =3D Date_Cr=E9ation
.Bookmarks("R=E9f=E9rence").Range.Text =3D R=E9f=E9rence
etc...
End With

J'aurais voulu boucler sur mes cellules afin d'all=E9ger le code :
With wDoc
for i=3D0 to 999
.Bookmarks(i).Range.Text=3DRange("A65000").End(xlUp).Offset(0, i)
next
end with

..... Mais Word refuse le num=E9rique comme nom de signet.
Y a-t-il un moyen de contourner =E7=E0 ??

Merci d'avance,

ThierryP

2 réponses

Avatar
db
Le 02/12/2014 14:06, ThierryP a écrit :

..... Mais Word refuse le numérique comme nom de signet.
Y a-t-il un moyen de contourner çà ??




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
Avatar
petithory.thierry
Le mardi 2 décembre 2014 14:23:55 UTC+1, db a écrit :
Le 02/12/2014 14:06, ThierryP a écrit :

> ..... Mais Word refuse le numérique comme nom de signet.
> Y a-t-il un moyen de contourner çà ??
>

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.....