Connexion
S'inscrire
Actualités
Quoi de neuf
Activités générales
Auteurs
Forums
Nouveaux messages
Rechercher un forum
Quoi de neuf
Nouveaux messages
Nouveaux messages de profil
Activités générales
Membres
Membres inscrits
Visiteurs actuels
Nouveaux messages de profil
Rechercher dans les messages des profils
Teams
Créé ton équipe
Quoi de neuf ?
Nouveaux messages
Rechercher un forum
Menu
Connexion
S'inscrire
Install the app
Install
Forums
Forums généraux
Informatique
Développement
Questions, aides et recherches
Résolus
Prblème VBA - Création / supression de X pages
JavaScript is disabled. For a better experience, please enable JavaScript in your browser before proceeding.
Vous utilisez un navigateur non à jour ou ancien. Il ne peut pas afficher ce site ou d'autres sites correctement.
Vous devez le mettre à jour ou utiliser un
navigateur alternatif
.
Répondre à la discussion
Message
<blockquote data-quote="Paradise'" data-source="post: 7138502" data-attributes="member: 300598"><p>Bonjour,</p><p></p><p>Voici maintenant quelques heures que je suis bloqué sur un soucis qui à tout les coups est débile à résoudre.</p><p></p><p>Je travail sur un dossier qui a une page ( la 4 ) qui peut être incorporer entre 1 et 4 fois suivant le nombre de site, paramètre qui est rentré dans la page de paramètre.</p><p></p><p>Donc si l'utilisateur met 2, il y a 2 pages qui sont créer, si il met 3, il en faut 3 etc ...</p><p></p><p>Ceci, j'ai réussi mon soucis est que quand il réduit le nombre par exemple, il a saisi 3 mais au final il en faut 2, cela ne réduit pas à 2 ...</p><p></p><p>J'ai essayer avec la suppression de page mais cela ne fonctionne pas du tout, cela me fou un bordel monstre dans le dossier cela me supprime des pages qui ne faut pas ou autre.</p><p></p><p>Donc j'espère avoir été assez explicite et vous remercie de votre aide.</p><p></p><p>Voici le code :</p><p>[CODE]</p><p>Sub DetruitPage(iNum As Integer)</p><p> rDeb = Selection.GoTo(What:=wdGoToPage, Which:=wdGoToNext, Name:=iNum).Start</p><p> rFin = Selection.GoTo(What:=wdGoToPage, Which:=wdGoToNext, Name:=iNum + 1).Start</p><p> ActiveDocument.Range(rDeb, rFin).Delete</p><p>End Sub</p><p></p><p>'Duplique la page 3 suivant le nombre voulu'</p><p>Private Sub CommandButton2_Click()</p><p> If (y <> 0) Then</p><p> If (y <> 1) Then</p><p> For i = 4 To 4 + y</p><p> DetruitPage (i)</p><p> Next</p><p> End If</p><p> End If</p><p> </p><p> y = txt_site.Text</p><p> Page = 4</p><p> With Selection</p><p> .GoTo wdGoToPage, wdGoToAbsolute, Page</p><p> .Bookmarks("\Page").Range.Copy</p><p> For i = 1 To txt_site - 1: .Paste: Next</p><p> End With</p><p> </p><p>End Sub</p><p>[/CODE]</p></blockquote><p></p>
[QUOTE="Paradise', post: 7138502, member: 300598"] Bonjour, Voici maintenant quelques heures que je suis bloqué sur un soucis qui à tout les coups est débile à résoudre. Je travail sur un dossier qui a une page ( la 4 ) qui peut être incorporer entre 1 et 4 fois suivant le nombre de site, paramètre qui est rentré dans la page de paramètre. Donc si l'utilisateur met 2, il y a 2 pages qui sont créer, si il met 3, il en faut 3 etc ... Ceci, j'ai réussi mon soucis est que quand il réduit le nombre par exemple, il a saisi 3 mais au final il en faut 2, cela ne réduit pas à 2 ... J'ai essayer avec la suppression de page mais cela ne fonctionne pas du tout, cela me fou un bordel monstre dans le dossier cela me supprime des pages qui ne faut pas ou autre. Donc j'espère avoir été assez explicite et vous remercie de votre aide. Voici le code : [CODE] Sub DetruitPage(iNum As Integer) rDeb = Selection.GoTo(What:=wdGoToPage, Which:=wdGoToNext, Name:=iNum).Start rFin = Selection.GoTo(What:=wdGoToPage, Which:=wdGoToNext, Name:=iNum + 1).Start ActiveDocument.Range(rDeb, rFin).Delete End Sub 'Duplique la page 3 suivant le nombre voulu' Private Sub CommandButton2_Click() If (y <> 0) Then If (y <> 1) Then For i = 4 To 4 + y DetruitPage (i) Next End If End If y = txt_site.Text Page = 4 With Selection .GoTo wdGoToPage, wdGoToAbsolute, Page .Bookmarks("\Page").Range.Copy For i = 1 To txt_site - 1: .Paste: Next End With End Sub [/CODE] [/QUOTE]
Insérer les citations…
Vérification
Publier la réponse
Forums
Forums généraux
Informatique
Développement
Questions, aides et recherches
Résolus
Prblème VBA - Création / supression de X pages
Ce site utilise des cookies. En continuant à utiliser ce site, vous acceptez l'utilisation des cookies.
Acceptez
En savoir plus.…
Haut