inserer un saut de page par macro ExcelRésolu

Question

Bonjour 
j'ai un souci par rapport à une boucle (car débutant) :
j'ai des valeurs alphanumériques et voudrai que la macro insère un saut de page à chaque changement de valeur numérique.
Exemple : 50aa 50 bb 50 cc "ici saut de page" 51aa 51bb 51cc
  
suis parti de :
For i = LastLig To 2 Step -1
If .Range ("A" & i).Value <> Range ("A" & i - 1).Value Then HPageBreaks.Insert

mais la requête bug (erreur compilation 9 ?)
j'ai essayé avec une insertion de ligne, ça marche mais il n'insère pas au bon endroit car il n'y a pas de distinction entre le numérique et l'alphabétique ... quelqu'un aurait une idée ou une astuce ?
MERCI d'avance pour toute aide

jordane45 · Accepted Answer

Bonjour,
ah non.. je viens de comprendre.
désolé.

Par contre tes chiffres sont toujours sur les deux premiers caractères ?
Si oui, tu peux utiliser la fonction "left"


If left(range("A"&i).value,2) <> left(range("A"&i+1).value,2) then..

Cordialement,
Jordane,
______________________________________________________
Règles du forum à lire avant de poster une question : ICI

PS: Merci d'utiliser les balises de

jordane45 · Answer

Bonjour,

essayes ça :


    For i = LastL To 2 Step -1
        If Range("A" & i).Value <> Range("A" & i + 1).Value Then
            Range("A" & (i + 1)).Activate
            ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
        End If
    Next
End Sub


PS: Penses à utiliser les balises de codes quand tu postes sur le forum
PS² : Si la réponse te convients penses à mettre le sujet en résolu.

Cordialement,
Jordane,
______________________________________________________
Règles du forum à lire avant de poster une question : ICI

midge1 · Answer

merci beaucoup  pour le code, je le teste et penserai à résoudre le sujet le cas échéant (désolé pour l'absence de balise, j'ai posté un peu dans la précipitation

ucfoutu · Answer

Bonjour,
à Jordane :
Ton activation est ici superflue et ralentissante.
Ton code s'écrit plus agilement ainsi :
     For i = 10 To 2 Step -1
        If Range("A" & i).Value <> Range("A" & i + 1).Value Then
            ActiveSheet.HPageBreaks.Add Before:=Range("A" & (i + 1))
        End If
     Next

____________________
Utiliser le bouton "REPONSE ACCEPTEE" sur une réponse exacte facilite les recherches ultérieures d'autres forumeurs. PENSEZ-Y SVP

midge1 · Answer

bonjour,
j'ai testé le code gentiment fourni, pour le saut de page aucun souci, sauf qu'il n'est pas fait au bon endroit ... il me faudrait une astuce pour que le saut aie lieu lors des changements numériques et peu importe les lettres *
(dans une cellule j'ai comme valeur p.ex 50aa, la suivante 50bb , etc.
et à un moment la valeur passe à 51aa p.ex et c'est là que doit intervenir le saut ... une idée ? 
dans la boucle je vois pas comment faire, peut-être faut-il essayer de virer les lettres dans les cellules pour qu'il n'y aie que du numérique ? et ça je ne sais pas faire, si on pouvait me guider vers quelque chose ... merci d'avance .
PS merci à ucfoutu pour la correction, j'en prends bien note 
cdlmt

jordane45 · Answer

Bonjour,

me faudrait une astuce pour que le saut aie lieu lors des changements numériques et peu importe les lettres * 


je ne comprend pas ... au bon endroit ? c'est à dire ?
Où se fait le saut de page pour l'instant ?
Où devrait-il se faire ?

Peut importe qu'il y ai des lettres ou non... dans le code donné au dessus, on teste uniquement si la valeur de la cellule est identique ou non à la suivante et si oui. on insere un saut de page. ( c'est bien ce qui était demandé non ?).

Pourrais tu nous donner un peu plus d'infos sur le souci rencontré et éventuellement nous mettre un fichier en PJ ( en utilisant ci-joint.fr par exemple).


Cordialement,
Jordane,
______________________________________________________
Règles du forum à lire avant de poster une question : ICI

PS: Merci d'utiliser les balises de

midge1 · Answer

] merci à toi jordane, cela fonctionne parfaitement !

c'est gentil de ta part de m'avoir aide 
Cdlmt M

Inserer un saut de page par macro Excel

7 réponses

Votre réponse

Discussions similaires