XL 2013 variable dans nom de Variable..

fredl · 20 Septembre 2016

Bonjour à tous,
"variable dans nom de Variable..." mais où va-t'il chercher cela? (si vous le pensez, vous avez raison!)

Je viens faire appel à vos lumières suite à recherche infructueuse dans le forum.

J'ai 70 variables (Vtitre1,Vtitre2,.....Vtitre70)
J'ai une macro qui utilise successivement ces 70 variables préchargées comme suit avec exactement le même contenu de code au nom de la variable prêt :
(pour info, je pilote ici un doc word, mais la problématique soulevée est valable pour toute application office puisque elle concerne un problème de gestion de nom de variable)

'////////////////////////////////////////////////////////////////////////////
If ActiveDocument.Range(ActiveDocument.Bookmarks(Vtitre1).Start, ActiveDocument.Bookmarks(Vtitre1).End) = "FIN DU WEEKLY" Then GoTo 100

If ActiveDocument.Range(ActiveDocument.Bookmarks(Vtitre2).Start, ActiveDocument.Bookmarks(Vtitre2).End) = "FIN DU WEEKLY" Then GoTo 100

If..etc(repetition du code 70 fois - ça fait long!).............................................
........................................................................................................................................

If ActiveDocument.Range(ActiveDocument.Bookmarks(Vtitre70).Start, ActiveDocument.Bookmarks(Vtitre70).End) = "FIN DU WEEKLY" Then GoTo 100
'////////////////////////////////////////////////////////////////////////////

Afin de simplifier ma macro je souhaiterai écrire un code de ce type :

'////////////////////////////////////////////////////////////////////////////
For n=1 to 70
If ActiveDocument.Range(ActiveDocument.Bookmarks(Vtitre & n).Start, ActiveDocument.Bookmarks(Vtitre & n).End) = "FIN DU WEEKLY" Then GoTo 100
next
'////////////////////////////////////////////////////////////////////////////

Bien sûr ce code ne fonctionne pas, malheureusement pour moi..., mais existerait il une astuce pour bien faire? (Je me permets de rêver...)

Merci d'avance pour vos conseil!

cordialement

Frédéric

pierrejean · 20 Septembre 2016

Bonjour Frederic
Une solution : Utiliser un tableau
cela donnerait:
Vitre=Array("a","B",.....)
On obtient ensuite : Vitre(1) soit a puis Vitre(2) soit B etc

Hieu · 20 Septembre 2016

Salut à tous,

Dans le même délire, je ferai comme ça :

VB:

Dim Vtitre(1 to 70)
...
For n=1 to 70
If ActiveDocument.Range(ActiveDocument.Bookmarks(Vtitre(n)).Start, ActiveDocument.Bookmarks(Vtitre(n)).End) = "FIN DU WEEKLY" Then GoTo 100
next n

fredl · 20 Septembre 2016

Bonjour PierreJean et merci pour ton retour!
Je teste cela de suite .
Encore merci et bone journée à toi.
Frédéric

fredl · 20 Septembre 2016

Merci Hieu pour ton retour !
Je vais tester cela également .
Encore merci et bonne journée .
Frédéric

fredl · 20 Septembre 2016

Re bonjour hieu,
le code que tu nous a communiqué est il du VBA?,
car il apparait en rouge dans mon editeur VBA et bug donc.
Merci pour ton retour

Hieu · 20 Septembre 2016

Euh... Bah oui ^^
J'ai recopié ta ligne.

Les petits points, c'est pour mettre le reste de ton code.
C'est pas rouge, chez moi..

fredl · 20 Septembre 2016

oups!
j'avais cet affichage là de ton message dans la fenêtre VBA du forum :

Dim Vitre(1 To 60)
For n=1 to 70
If ActiveDocument.Range(ActiveDocument.Bookmarks(Vtitre & n).Start, ActiveDocument.Bookmarks(Vtitre & n).End) = "FIN DU WEEKLY" Then GoTo 100
next n

maintenant je le "vois" comme il faut.
désolé du dérangement
Merci

fredl · 20 Septembre 2016

En fait, il y avait plein de .

fredl · 20 Septembre 2016

d'apostrophes!

fredl · 20 Septembre 2016

GENIALISSIME!!!!!!! Hieu et PierreJean!
grâce à vous, ma macro passe de 600 lignes à une vingtaine de lignes!!!!!!!
vous êtes trop forts!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
ENORME!
je mets ma macro en guise d'exemple pour les internautes!
Mon rêve est devenu réalité grâce à vous!
encore merci!
Frédéric

Code:

Sub SupprimerSectionsVides() 'initialisation de mes 2 array (array(0) ne me servant pas) Vtitre = Array("0") VcontenuTitre = Array("0") 'chargement de tous les titres de mon doc (gérés par des signets) For Each bmk In ActiveDocument.Range.Bookmarks n = n + 1 [B] 'ajouter une valeur au tableau'chargement du nouveau num de titre[/B] [B] ReDim Preserve Vtitre(UBound(Vtitre) + 1)[/B] [B] Vtitre(UBound(Vtitre)) = bmk.Name[/B] [B] 'chargement du nouveau contenu de titre[/B] [B]ReDim Preserve VcontenuTitre(UBound(VcontenuTitre) + 1)[/B] [B] VcontenuTitre(UBound(VcontenuTitre)) = ActiveDocument.Range(bmk.Start, bmk.End)[/B] Next 'suppression de tous les paragraphes vides sauf les enTetes [B]For n = 1 To 70[/B] 'ne pas supprimer certains titres : If VcontenuTitre(n) = "Avancement projets" Or VcontenuTitre(n) = "Plateforme chimie" Or VcontenuTitre(n) = "Biomatériaux" _ Or VcontenuTitre(n) = "Matériaux nanoporeux" Or VcontenuTitre(n) = "Microbiologie" Or VcontenuTitre(n) = "Electrochimie" _ Or VcontenuTitre(n) = "Nanoparticules - Lipidots" Or VcontenuTitre(n) = "Microbiologie" Or VcontenuTitre(n) = "Electrochimie" _ Then GoTo 50 'si on est en fin de doc, sortir If VcontenuTitre(n) = "FIN DU WEEKLY" Then GoTo 100 'si rien d'écrit dans le paragraphe, le supprimer If ActiveDocument.Bookmarks([B]Vtitre(n + 1)[/B]).Start - ActiveDocument.Bookmarks([B]Vtitre(n)[/B]).End <= 2 Then ActiveDocument.Range(ActiveDocument.Bookmarks([B]Vtitre(n)[/B]).Start, ActiveDocument.Bookmarks([B]Vtitre(n + 1)[/B]).Start).Delete End If 50 Next 100 'Suppression de "Fin du weekly" ActiveDocument.Range(ActiveDocument.Bookmarks(Vtitre(n)).Start, ActiveDocument.Bookmarks(Vtitre(n)).End).Delete End Sub[/SIZE][/I][SIZE=2]

XL 2013 variable dans nom de Variable..

fredl

XLDnaute Impliqué

pierrejean

XLDnaute Barbatruc

Hieu

XLDnaute Impliqué

fredl

XLDnaute Impliqué

fredl

XLDnaute Impliqué

fredl

XLDnaute Impliqué

Hieu

XLDnaute Impliqué

Pièces jointes

fredl

XLDnaute Impliqué

fredl

XLDnaute Impliqué

fredl

XLDnaute Impliqué

fredl

XLDnaute Impliqué

Discussions similaires