Discussion :

[alex_95]

Bonjour,

Je n'arrive pas à utiliser
On error que ce soit On error Goto ou On error Resume Next

Pourtant ca ne semble pas compliqué mais je n'y arrive pas...

Voila mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub mise_en_avant(etude_top)
With ActiveSheet
    select_min = (etude_top - 1) * 30 + 1
    select_max = (etude_top - 1) * 30 + 29
    ligne_max = WorksheetFunction.CountA(ActiveSheet.Columns(select_min))
    .Cells.EntireColumn.Hidden = True
    .Cells(1, select_min).Select
    .Range(ActiveSheet.Cells(1, select_min), .Cells(ligne_max, select_max)).CurrentRegion.EntireColumn.Hidden = False
    ActiveWindow.View = xlPageBreakPreview
    .PageSetup.PrintArea = .Range(ActiveSheet.Cells(1, select_min), .Cells(ligne_max, select_max)).CurrentRegion.Address
    on error Resume Next
    .VPageBreaks(1).DragOff Direction:=xlToRight, RegionIndex:=1
    Call mise_en_forme(select_min, select_max)
End With
End Sub

En fait c'est la ligne ci dessous qui pose pb avec l'erreur 9 : l'indice n'appartient pas à la selection :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

VPageBreaks(1).DragOff Direction:=xlToRight, RegionIndex:=1

la macro ne doit l'executer que la 1ere fois ou l'utilisateur consulte... j pensais donc le faire avec On error...

Qqn a une idée ?

Merci d avance

[zazaraignée]

la macro ne doit l'executer que la 1ere fois ou l'utilisateur consulte... j pensais donc le faire avec On error...

Dans le genre: "Ce message s'autodétruira dans 15 secondes" ?
C'était pour rire...

Dis moi si j'ai bien compris. Tu voudrais qu'une des instruction de la macro ne s'exécute qu'une seule fois et après, plus du tout ?

[alex_95]

Exact, c'est tt a fait ca.

Merci d'avance

[doringen]

sinon, crée un compteur et stocke le stocke quelque part dans ta feuille, puis:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
Sub Makro1()
'...
' ton code
'...
 
If Range("A1").Value = "0" Then
ActiveSheet.VPageBreaks(1).DragOff Direction:=xlToRight, RegionIndex:=1
Range("A1").Value = "1"
End Sub

[ouskel'n'or]

Meûh non, c'est très bien une gestion d'erreur et ça simplifie le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
    on error Resume Next
    .VPageBreaks(1).DragOff Direction:=xlToRight, RegionIndex:=1
    if not err then Call mise_en_forme(select_min, select_max)

A+

NB - Quelque soit la valeur de l'erreur, si elle existe err sera testé True
Tu peux tester

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sub RaiseValeur()
On Error Resume Next
Err.Raise 9
If Err Then MsgBox "Coucou"
End Sub

PS - Salut zaza pas trop froid ?

[doringen]

la macro ne doit l'executer que la 1ere fois ou l'utilisateur consulte...

du coup, j´avais compris que l´information devait rester disponible, y compris pour des exécutions ultérieures de la même macro par l´utilisateur.
D´où l ídée de figer l´information dans un onglet (on ne va pas dire la graver dans la pierre, mais cela a déjà une durée de vie plus appréciable qu´une variable dans l´exection d´une sub).