Bloquer le lancement d'une macro

[Jelf]

Bonjour à toutes et à tous les Excelnautes.

J'aimerai bloqer le lancement d'une macro si j'ai une valeur zéro ou rien dans une cellule (L12).

Est-ce possible???, si oui comment doit-on faire.

Merci d'avance.

Jelf

 

[dixit]

Re : Bloquer le lancement d'une macro

bonjour,
bloquer une macro en cours, je ne sais pas mais faire un goto fin sur un test c'est possible. exemple :
test si(cells(ligne, colonne)=0 then goto fin
fin: à placer en fin de macro
bye
ps : je reviens après avoir relu la question ; bloquer le lancement c'est possible en conditionnant le lancement à un test

 

[Jelf]

Re : Bloquer le lancement d'une macro

Bonjour dixit.

Je viens d'essayer ton code, mais j'ai un message d'erreur :
Erreur de compilation.
Attendu : séparateur de liste ou ).

J'ai copié se code : Test Si(Range("L12") = 0 Then Goto Fin
J'ai essayé de placer un ")" un peu partout mais j'obtiens toujopurs le même message.
Peux-tu m'aider.

Merci
Jelf

 

[Compte Supprimé 979]

Re : Bloquer le lancement d'une macro

Bonjour Dixit, salut Jelf

Allons Jelf, on parle de code VBA, pas de la langue de Molière

Il faut traduire, sinon forcément ça bug.

Test Si(Range("L12") = 0 Then Goto Fin

n'est pas du code, mais une explication de code

Du code c'est ça :

IF Sheets("NomMaFeuille").Range("L12") = 0 Then End

A+

 

[Jelf]

Re : Bloquer le lancement d'une macro

Bonjour BrunoM45.

Je te remercie pour ces sages conseils, mais je ne suis qu'un débutant.

J'ai donc appliqué ton code, mais où dois-je le placer???
Sub RechercheFacture()
'
' RechercheFacture Macro
' Macro enregistrée le 08/05/2007 par Jean - Marie
'

'
ActiveSheet.Shapes("Button 10").Select
Sheets("Accueil").Select
Range("M19").Select
Application.Run ("'GESTION STOCK.xls'!Openarchives")
Windows("Archives.xls").Activate
Dim nomfeuil As String
nomfeuil = Workbooks("GESTION STOCK.xls").Sheets("Accueil").Range("L12")

Sheets(nomfeuil).Select
If Sheets(nomfeuil).Sheets("Accueil").Range("L12") = 0 Then End
End Sub
Merci de partager ton savoir.
Jelf

 

[Compte Supprimé 979]

Re : Bloquer le lancement d'une macro

Tout dépend ou tu veux bloquer ta macro, au tout début

Sub RechercheFacture()
[COLOR=blue]If Sheets(nomfeuil).Sheets("Accueil").Range("L12") = 0 Then Exit Sub
[/COLOR]'
ActiveSheet.Shapes("Button 10").Select
Sheets("Accueil").Select
Range("M19").Select
Application.Run ("'GESTION STOCK.xls'!Openarchives")
Windows("Archives.xls").Activate
Dim nomfeuil As String
nomfeuil = Workbooks("GESTION STOCK.xls").Sheets("Accueil").Range("L12")
Sheets(nomfeuil).Select
End Sub

Ou avant l'ouverture des archives

Sub RechercheFacture()
'
ActiveSheet.Shapes("Button 10").Select
Sheets("Accueil").Select
Range("M19").Select
[COLOR=#0000ff]If Sheets(nomfeuil).Sheets("Accueil").Range("L12") = 0 Then Exit Sub[/COLOR]
Application.Run ("'GESTION STOCK.xls'!Openarchives")
Windows("Archives.xls").Activate
Dim nomfeuil As String
nomfeuil = Workbooks("GESTION STOCK.xls").Sheets("Accueil").Range("L12")
Sheets(nomfeuil).Select
End Sub

Au passage, mieux vaut mettre un : Exit Sub
dans ton cas, c'est plus sûre et plus propre

 

[Jelf]

Re : Bloquer le lancement d'une macro

Re

Je te remercie pour toutes ces informations, j'ai essayé et ça marche (Je pense que tu n'en doutais pas).

Merci encore

Cordialement.

Jelf

 

[Compte Supprimé 979]

Re : Bloquer le lancement d'une macro

Re
Je te remercie pour toutes ces informations
Merci encoreJelf

For nothing, Jelf

, j'ai essayé et ça marche (Je pense que tu n'en doutais pas).

Tu sais je n'ai pas la science infuse
Ca aurait pu ne pas fonctionner

 

[dixit]

Re : Bloquer le lancement d'une macro

re
je reviens un peu tard ...
le problème est résolu ; bien vu Bruno
(le exit sub est plus élégant que le goto)
bye