boucle

SAlut tout le monde

j ai un bout de code mais qui faut l avouer n'est pas vraiment optimisé
je vous explique ce qui va suivre
Un user coche des checkbox. Il peut en cocher le nombre qu il veut, le but etant de selectionner le nb de paragrahe qu il souhaite faire apparaitre dans son nouveau doc word ( par copier/coller). actuellement, le code que j ai fait, fonctionne mais j aimerais le simplifier avec une boucle eventuellement de sorte que lorsque je rajoute de nouveaux paragraphes je n ai pas a rajouter ce code. est ce possible ? si oui comment? parceque si j ai 20 paragraphes ca va faire bcp de ligne pour pas grand chose!! donc si il possibilité de simplifier ca merci!!

Merci pour l aide que vous pourrez m apporter

ChRiS


Voici le bout code

Dim MonDocument As String
MonDocument = Documents.Add
DocTravail.Value = MonDocument

If CheckBox1.Value Then
Documents("source.doc").Activate
Selection.HomeKey Unit:=wdStory
With Selection.Find
.ClearFormatting
.Text = "<§1>"
.MatchWildcards = 0
.Forward = 1
.Replacement.Text = ""
.Replacement.ClearFormatting
.Execute ' recherche du mot1
Selection.MoveRight 'déplacement a droite du mot
.Text = "</§1>"
Selection.Extend ' etendre la selection
.Execute ' atteindre le mot2
Selection.MoveLeft Unit:=wdCharacter, Count:=Len("</§1>"), Extend:=1
' reculer du mot 2
End With
Selection.Copy
Documents(MonDocument).Activate
Selection.Paste
Selection.TypeParagraph
Documents("source.doc").Activate
End If

If CheckBox2.Value Then
Documents("source.doc").Activate
Selection.HomeKey Unit:=wdStory
With Selection.Find
.ClearFormatting
.Text = "<§2>"
.MatchWildcards = 0
.Forward = 1
.Replacement.Text = ""
.Replacement.ClearFormatting
.Execute ' recherche du mot1
Selection.MoveRight 'déplacement a droite du mot
.Text = "</§2>"
Selection.Extend ' etendre la selection
.Execute ' atteindre le mot2
Selection.MoveLeft Unit:=wdCharacter, Count:=Len("</§2>"), Extend:=1
' reculer du mot 2
End With
Selection.Copy
Documents(MonDocument).Activate
Selection.Paste
Selection.TypeParagraph
Documents("source.doc").Activate
End If

Je pense avoir une solution... Attend 3 secondes ;-)

Deja si tu as pas mal de CheckBox tu pourrais faire un groupe de controle....

CheckBox1(0)
CheckBox1(1)
CheckBox1(2)
CheckBox1(3)
CheckBox1(4)
.......
....
ce qui reduira la taille de ton code
Meme nom de controle CheckBox1 mais pas le meme Index

Dim MonDocument As String
MonDocument = Documents.Add
DocTravail.Value = MonDocument

For i=0 to 5
If CheckBox1(i).Value Then
Documents("source.doc").Activate
Selection.HomeKey Unit:=wdStory
With Selection.Find
.ClearFormatting
.Text = "<§1>"
.MatchWildcards = 0
.Forward = 1
.Replacement.Text = ""
.Replacement.ClearFormatting
.Execute ' recherche du mot1
Selection.MoveRight 'déplacement a droite du mot
.Text = "</§1>"
Selection.Extend ' etendre la selection
.Execute ' atteindre le mot2
Selection.MoveLeft Unit:=wdCharacter, Count:=Len("</§1>"), Extend:=1
' reculer du mot 2
End With
Selection.Copy
Documents(MonDocument).Activate
Selection.Paste
Selection.TypeParagraph
Documents("source.doc").Activate
End If
Next

It@li@

Ok ITALIA, on se complète... Dsl, mais le serveur est un peu lent, et ta réponse n'était pas marquée. Donc en fait, on a eue la même idée, sauf que j'utilise le checkBox.count qui te permet d'avoir un nombre de paragraphe illimtée.

Voilà, @+

en modifiant aussi les lignes :

"<§2>"

It@li@

c'est que j'ai ecrit à 12:34:48 !!!!!!!

je l'avait vu

It@li@

Merci a tous. Toutes les reponses aurait pu etre validées mais celle de scalpweb me convenait le mieux. Apres qq amenagements ce code fonctionne tres bien et me libere de nombreuses lignes!!!!

Merci a tous pour cette participation



ChRiS