[VBA Excel] On error resume next

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:

---

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:

---

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

Citation:

---

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 ?

Exact, c'est tt a fait ca.

Merci d'avance

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

Code:

---

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

---

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

Code:

---

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:

---

1 2 3 4 5

Sub RaiseValeur() On Error Resume Next Err.Raise 9 If Err Then MsgBox "Coucou" End Sub

---

PS - Salut zaza :pingoin2: pas trop froid ?

Citation:

---

Envoyé par alex_95

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).