Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2016 Passer à la page suivante automatiquement

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion bennp
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
B

bennp

XLDnaute Occasionnel
Bonjour,

j'ai un tableau créé en macro, et parfois il se retrouve à la jonction de 2 pages. Quelqu'un aurait une idée pour déplacer automatiquement le tableau à la page suivante ?

Merci
 
Trier par date Trier par votes
Mettez un maximum de chose dans le tableau TR. L'accès au coup par coup aux cellule c'est quand on ne peut pas faire autrement, pour les formats. Là je pens que vous avez un problème parce que vous définissez LTot = Rng.Rows.Count + 1 et beaucoup plus bas jusqu' à Rng(LTot + 3, 1).Value = "• couleur: couleur de l'objet" ce qui dépasse de 2 lignes la dernière plage qui a été définie par PlageSuivante(TR, LR). Mettez tout ça ensemble avant de le faire et incrémentez s'il y a lieu LR pour que vos textes y soient contenus.
 
Vote positif 0 Vote négatif
Comme je dois mettre ces phrases en dessous, je me suis dit qu'il fallait d'abord incrémenter le tableau puisque je ne sais pas combien de ligne j'aurai dans le tableau. Donc si je l’intègre avant LTot = Rng.Rows.Count + 1, ça veut dire que je dois utiliser que TR et non LTot. Mais du coup je ne sais pas à quelle ligne je devrais l'intégrer...
si je copie les phrases dans mon tableau d'origine, je ne pourrais pas les copier il me semble...

Ps : comme toujours j'essaie d'y comprendre quelque chose mais ça reste très flou... 🙂
 
Vote positif 0 Vote négatif
ok merci j'ai réussi :

VB: 
   TE = Feuil3.ListObjects(1).Range.Value
   ReDim TR(1 To 50, 1 To 26)
   InitialiserMiseEnPage Feuil2.[B134], 39, 5
LE = 1
    Do:
    TR(1, 1) = UCase("Liste des outils")
    LR = 6: For C = 1 To 4
      TR(LR - 4, Choose(C, 1, 24, 25, 26)) = Choose(C, "Outil", "position", "taille", "couleur")
      Next C
      Do: LR = LR + 1
      For C = 1 To 4
         TR(LR - 4, Choose(C, 1, 24, 25, 26)) = TE(LE, C)
         Next C
      LE = LE + 1: Loop Until LE > UBound(TE, 1)
     
    Set Rng = PlageSuivante(TR, LR)
    LTot = Rng.Rows.Count + 1
    Rng(LTot - 3, 1).Value = "•    Position : droit ou plat"
    Rng(LTot - 2, 1).Value = "•    Taille : en cm"
    Rng(LTot - 1, 1).Value = "•    couleur : couleur de l'objet"
    Rng(LTot, 1).Value = "•    couleur2 : couleur de l'objet"
   
   

   Loop Until UBound(TE, 1)
 
Vote positif 0 Vote négatif
Bonjour,

Je n'avais pas vu le message précédent... Je n'ai pas saisi comment écrire dans TR. Je ne suis pas sûr que ça fasse accélérer la macro surtout avec la mise en page. Dites moi si je me trompe.

J'ai une autre demande du même genre :

Je souhaiterais ajouter un paragraphe supplémentaire "Images particulières" en fonction de telle ou telle case cochée :



Si la case est cochée, afficher le texte et l'image associée :

VB: 
     ReDim TR(1 To 100, 1 To 26)
  
    LE = 2
    TR(1, 1) = UCase("Images particuliéres")
   Set Rng = PlageSuivante(TR, LR)
   LTot = Rng.Rows.Count + 1
  
    If Range("AC27") = True Then
    Range("AF27").Copy
    Rng(4, 25).PasteSpecial xlPasteValues
    Rng(6, 24).activSheet.Pictures("arbre").Value
   
    End If

J'ai donné un nom aux images mais ça n'a pas l'air de fonctionner, je sais pas si je dois ajouter les images dans ImageOgject avnt...

Tu sais pourquoi ça ne fonctionne pas ?

Merci

Ben
 

Pièces jointes

Vote positif 0 Vote négatif
OK par contre si je remplace activesheet par worksheet, ça fonctionne pas. Je sais pas si c'est une bonne idée de charger les images en objet... Je sais pas si tu te souviens mais la taille des lignes ne peut pas être modifiée pour éviter que le saut de page se fasse bien. Je sais pas non plus si l'image doit être à l'intérieur de la cellule pour quelle soit affichée. Tu pourrais me proposer un code ?

Merci d'avance
 
Vote positif 0 Vote négatif
J'ai essayé ça :
VB: 
     ReDim TR(1 To 100, 1 To 26)
  
    LE = 2
    TR(1, 1) = UCase("Images particuliéres")
   Set Rng = PlageSuivante(TR, LR)
   LTot = Rng.Rows.Count + 1
   Sheets("Feuil2").Shapes("Image 5").Copy: Rng.Workseet.Paste: With Rng.Worksheet.Shapes(Rng.Worksheet.Shapes.Count): .Left = Rng(6, 8).Left:
   End With

ça bug... je sais pas si je dois remplir les top, right, etc

Peut-etre que je dois mettre un Rbg(x,y) à plusieurs endroits ?

Merci de ton aide en tout cas !!
 
Vote positif 0 Vote négatif
J'ai bien sûr déjà essayé l'enregistreur avant mais ça ne m'aide pas beaucoup puisque je souhaite afficher une image à un endroit qui dépend d'une variable et en plus cela doit être affiché seulement si la case est cochée... Je me trompe ?
Même quand je fais juste un simple copier coller, je ne retrouve pas la fonction shape.
 
Vote positif 0 Vote négatif
Il n'y a pas de fonction shape c'est un type d'objet. Il y a la collection Shapes de ces objets.
Pour faciliter la mise au point ne mettez peut être pas, séparées par des ': ', toutes les instructions sur la même ligne.
 
Vote positif 0 Vote négatif
Ok, il manquait juste une lettre :

VB: 
     ReDim TR(1 To 100, 1 To 26)
  
    LE = 2
    TR(5, 1) = UCase("Images particuliéres")
   Set Rng = PlageSuivante(TR, LR)
   LTot = Rng.Rows.Count + 1
   If Range("AC27") = True Then
   Sheets("Feuil2").Shapes("Image 5").Copy
   Rng.Worksheet.Paste
   With Rng.Worksheet.Shapes(Rng.Worksheet.Shapes.Count)
   .Left = Rng(10, 21).Left
   End With
    Range("AF27").Copy
    Rng(10, 8).PasteSpecial xlPasteValues
   
    End If
par contre je ne comprends pas pourquoi "arbre" et l'image ne sont pas sur la même ligne.

Autre chose, je souhaite que le texte et l'image apparaissent seulement si la case est cochée. Mais si la 1ére n'est pas cochée, je veux que les informations soient remontées et pas qu'il y ait de l'espace. Je pense que si je fais comme ça , ça ne fonctionnera pas. Doit-on passer par un tableau intermédiaire pour çà ?

Merci

BEn
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

C
  • Résolu(e)
XL 2021 besoin d'aide pour excel devis-facture
Réponses
8
Affichages
280
Piment
P
R
  • Résolu(e)
XL 2021 NB.SI dans la colonne n°3
Réponses
4
Affichages
165
rpatty85
R
  • Résolu(e)
Microsoft 365 Suppression de lignes automatiquement
Réponses
2
Affichages
91
charlyrac
A
  • Question Question
XL 2021 Impression multi format
Réponses
5
Affichages
328
wDog66
P
  • Résolu(e)
Microsoft 365 DateDif()
Réponses
5
Affichages
278
TooFatBoy
  • Résolu(e)
XL 2010 Saut de page et cellules fusionnées
Réponses
10
Affichages
497
cathodique
  • Question Question
XL 2021 Encadrement de cellule sur tableau dynamique
2
Réponses
21
Affichages
913
Phil69970
E
  • Résolu(e)
Microsoft 365 Fonction Si - Ne renvoie pas à la bonne référence
2
Réponses
22
Affichages
637
eoliv
E
A
  • Résolu(e)
XL 2021 Création de tableau
2
Réponses
29
Affichages
507
Alamyr
A
M
  • Question Question
Microsoft 365 Problème d’impression de ticket de caisse : il déroule 2 mètres de papier !
Réponses
2
Affichages
125
microbrasseriewallonie@gm
M
N
  • Résolu(e)
Microsoft 365 Trie croissant par ligne
Réponses
4
Affichages
133
sylvanu
G
  • Question Question
Microsoft 365 Tableau
Réponses
5
Affichages
149
ALS35
A
N
  • Question Question
XL 2021 Comparaison entre 2 fichier - Retrouver la différence
Réponses
14
Affichages
370
Phil69970
F
  • Question Question
Microsoft 365 RECHERCHE V si non alors si
Réponses
6
Affichages
244
FABY
F
  • Question Question
XL 2016 Transformer la mise en forme d'un tableau
2
Réponses
22
Affichages
515
Cousinhub
C
  • Résolu(e)
XL 2016 Ajustement automatique de la largeur d'une colonne
Réponses
5
Affichages
621
Phil69970
W
  • Résolu(e)
XL 2016 Écriture correcte d'un Transpose() avec FormulaLocal à partir de données d'une autre feuille
Réponses
6
Affichages
250
Webperegrino
W
M
  • Résolu(e)
XL 2016 nouvelle formule avec une condition
Réponses
6
Affichages
475
marc94600
M
C
  • Résolu(e)
XL 2016 humains VS chatGPT
Réponses
9
Affichages
643
AtTheOne
T
  • Question Question
XL 2021 concours doublettes ou triplettes
Réponses
5
Affichages
647
bsalv
B
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…