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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
db
Le #26326675
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
petithory.thierry
Le #26326683
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.....
Publicité
Poster une réponse
Anonyme