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: 7138931" data-attributes="member: 300598"><p>Problème résolu voici le code si quelqu'un passe par la et en a besoin:</p><p></p><p>[CODE]</p><p> 'Attribue la valeur 1 à y si elle est à 0 (au lancement du fichier Word) '</p><p> If (y = 0) Then</p><p> y = 1</p><p> End If</p><p> Dim dif As Integer</p><p> dif = txt_site.Text - y</p><p> 'Si la difference est supérieur à 0 alors il faut rajouter des copies'</p><p> If (dif > 0) Then</p><p> 'La page à dupliquer'</p><p> Page = 4</p><p> 'Copie la page "Page" de 1 à dif fois'</p><p> With Selection</p><p> .GoTo wdGoToPage, wdGoToAbsolute, Page</p><p> .Bookmarks("\Page").Range.Copy</p><p> For i = 1 To dif: .Paste: Next</p><p> End With</p><p> 'Si la difference est inferieur à 0 alors il faut supprimer des copies'</p><p> ElseIf (dif < 0) Then</p><p> 'Remplace le signe negatif du nombre par "rien" pour pouvoir l'utiliser dans une boucle'</p><p> dif = Replace(dif, Chr(45), "")</p><p> For i = 0 To dif - 1</p><p> 'Détruit la page 4 i fois'</p><p> DetruitPage (4)</p><p> Next</p><p> End If</p><p> 'Définit la variable y par rapport à la zone de texte pour la prochaine utilisation (savoir le nombre de page actuel'</p><p> y = txt_site.Text</p><p>[/CODE]</p></blockquote><p></p>
[QUOTE="Paradise', post: 7138931, member: 300598"] Problème résolu voici le code si quelqu'un passe par la et en a besoin: [CODE] 'Attribue la valeur 1 à y si elle est à 0 (au lancement du fichier Word) ' If (y = 0) Then y = 1 End If Dim dif As Integer dif = txt_site.Text - y 'Si la difference est supérieur à 0 alors il faut rajouter des copies' If (dif > 0) Then 'La page à dupliquer' Page = 4 'Copie la page "Page" de 1 à dif fois' With Selection .GoTo wdGoToPage, wdGoToAbsolute, Page .Bookmarks("\Page").Range.Copy For i = 1 To dif: .Paste: Next End With 'Si la difference est inferieur à 0 alors il faut supprimer des copies' ElseIf (dif < 0) Then 'Remplace le signe negatif du nombre par "rien" pour pouvoir l'utiliser dans une boucle' dif = Replace(dif, Chr(45), "") For i = 0 To dif - 1 'Détruit la page 4 i fois' DetruitPage (4) Next End If 'Définit la variable y par rapport à la zone de texte pour la prochaine utilisation (savoir le nombre de page actuel' y = txt_site.Text [/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