Discussion :

[tioch]

Bonjour à tous,

j'ai un probleme à propos d'un On Error Goto avec ce code suivant

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
16
17
18
19
Application.DisplayAlerts = False
Application.EnableEvents = False
 
For Each Nm In nclasseur.Names
 
 
         On Error GoTo erreur1
        If classeur.Worksheets("DT CC").Range(Nm.Name).HasFormula = True Then
        Else:
        classeur.Worksheets("Feuil1").Range(Nm.Name).Value = nclasseur.Worksheets("Feuil1").Range(Nm.Name).Value
 
        End If
 
erreur1:
 
Next Nm
 
Application.EnableEvents = True
Application.DisplayAlerts = True

En gros je voudrais que lorsque il y a une erreur dans le If ou dans le Else, ca ne fasse rien et que ca passe au Nm suivant pour finir la boucle.

J'utilise pour la premieère fois un On error goto donc je dois surement mal l'utiliser. Par exemple faut-il le déclarer dans les variables?

Merci de votre aide toujours aussi précieuse.

Tioch

[bastou93]

Bonjour,

Je pense (pas testé) que pour ton cas On Error Resume Next me parrait suffisant, en cas d'erreur, il continu le code...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Application.DisplayAlerts = False
Application.EnableEvents = False
 
On Error Resume Next
For Each Nm In nclasseur.Names
	If classeur.Worksheets("DT CC").Range(Nm.Name).HasFormula = True Then
	Else:
		classeur.Worksheets("Feuil1").Range(Nm.Name).Value = nclasseur.Worksheets("Feuil1").Range(Nm.Name).Value
	End If
Next Nm
 
Application.EnableEvents = True
Application.DisplayAlerts = True

Devrai faire l'affaire.. De plus ton if est vraiment bizarre...
Pourquoi tester si c'est VRAI et rien faire et passer dans else et pas tester si c'est faux? j’émets juste une hypothèse plus logique à mon sens:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Application.DisplayAlerts = False
Application.EnableEvents = False
 
On Error Resume Next
For Each Nm In nclasseur.Names
	If classeur.Worksheets("DT CC").Range(Nm.Name).HasFormula = False Then
		classeur.Worksheets("Feuil1").Range(Nm.Name).Value = nclasseur.Worksheets("Feuil1").Range(Nm.Name).Value
	End If
Next Nm
 
Application.EnableEvents = True
Application.DisplayAlerts = True

Tiens moi au jus

Bon courage,

[tioch]

Merci c'est ca pour le error goto
et merci pour la synthaxe

[bastou93]

Pas de quoi, il faut toujours essayer d'aller au plus simple et mettre le moins de condition possible (quand tu peux bien sur )

Donc si tu as une structure comme ceci:

Code :

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

1
2
3
if toto=1 then
else
 CODE

Il y a un problème passe plutot par un différent (<>) que égale... etc
Et si tu as beaucoup de condition et tu ne peux pas faire autrement j'aime bien le Case pour sa lisibilité:

Code :

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

1
2
3
4
5
6
7
8
9
10
Select Case toto
case 1: 'si toto=1
CODE
case 2:
CODE
case 3:
CODE
case else: 'sinon
CODE
end select

Je trouve cela beaucoup plus lisible

Et pour les erreurs "On error", essaye de t'en servir le moins possible et surtout les GOTO après c'est le gros bazar dans ton code préfère par exemple mettre une condition exemple:

Tu veux ouvrir un fichier problème il existe une fois sur 2 donc d'aura une fois sur 2 une erreur bas code toi une fonction FICHIEREXIST test si le fichier existe si oui tu l'ouvre sinon tu ZAP.

Bon courage,