[VBA] Saut de page... [FAQ] [Résolu]

[_Maniak]

Bonjour,

Dans mon application, j'ai une page avec des saut de page.
A certains moment, j'ai une suppression "automatique" de lignes, ce qui fait evidemment monter le contenu qui se trouve dessous... Seulement, les saut des pages ne bougent pas avec le reste, ce qui fait tout décaler.

Y'a-t-il un moyen de gérer ca ?

J'espère avoir été clair, merci.

[argyronet]

Bonjour,

Non... C'est pas clair
Je suppose que ton "Application" est un document Word...
Il serait bon de le préciser.
Ensuite, quelle est la procédure de suppression automatique en question ?
On peut voir ?

A toi...

Argy

[_Maniak]

Envoyé par argyronet

Non... C'est pas clair
Je suppose que ton "Application" est un document Word...
Il serait bon de le préciser.

Non c'est un document Excel...

Envoyé par argyronet

Ensuite, quelle est la procédure de suppression automatique en question ?

Au changement de certaines cellules, j'ai un évenement qui supprime des des lignes si certaines conditions sont remplies. Et j'aimerais que tout ce qu'il y a dessous se déplace, les saut de page y compris...

[argyronet]

Re,

Eh bien en supposant que ta procédure examine le contenu de la plage A1:A20 par exemple et qu'il y ait des sauts dedans, si tu écris le code suivant, tes sauts se déplacent comme tu le souhaites:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub TestRemoveRows()
Dim nbRows As Long
Dim currentValue As String
Dim myExpectedvalue As String
 
myExpectedvalue = 1250
nbRows = 20
  For I = 1 To nbRows
    Cells(I, 1).Select
    currentValue = Cells(I, 1).Value
    If currentValue = myExpectedvalue Then
      Selection.EntireRow.Delete
    End If
  Next
End Sub

Cela répond t-il à ta question ?

Argy

[_Maniak]

Cela répond t-il à ta question ?

Apparemment oui !

Je viens d'essayer et ca a l'air d'aller. En fait j'utilisais ce code :

Code :

Worksheets("Affichage").Range("A" & ligne & ":M" & ligne).Delete

Ca ne marchait pas pour déplacer en même temps les sauts de pages. Avec ta solution ca a l'air d'aller. Un grand merci à toi donc !

[argyronet]

Eh, oui, si tu effaces la ligne, tu ne la supprimes pas...

Cependant attention, cette procédure est à même de supprimer un saut de page si toutefois la valeur analysée est située au dessous ce saut de page !!!

Bien à toi, (PSSST, marque le dossier comme résolu !!!)

Argy