Création d'une macro "if"

[chnook]

Bonjour,
Pour projet en cours nous devons créer un programme suivant un theme. Le mien consiste à dimensionner les fondations profondes. Aucun problèmes pour le dimensionnement en tant que tel mais les macros me donnent, quant à elles, pas mal de fils à retordre. J’aurais besoin de créer une macro (logique if) qui devient active lorsque l’utilisateur clique sur un bouton.

Voici la logique de ma macro :
Si la valeur de ma cellule appellée « der_cou » est = 0
Alors le Public Sub derniere_couche_manquante () s’affiche
Sinon Sélectionner la feuille « Autres informations »

Le but est qu’elle s’active lorsque je clique sur un bouton.
Et pour informations supplémentaires (je ne sais pas si vous en avez besoin) :
La valeur de la cellule der_cou est rentrée par l’utilisateur
La logique du public sub est :

Public Sub derniere_couche_manquante()
MsgBox "Vous n'avez pas renseigné les indications de la dernière couche ..."
End Sub

En cherchant (un peu) sur le net j’ai trouvé quelques exemples mais aucun ne correspond à ce que je souhaite donc j’ai essayé de bidouiller un peu mais ce que j’ai fait ne semble pas du tout fonctionner, j’ai le message suivant :
Fehler beim Kompilieren :
Else ohne If
Ce qui signifie Erreur lors de la compilation :
Else sans If
(Sauf que j’ai mis un if)
Ma macro :

Sub verification_couche()
'Si la valeur der_cou = 0 alors derniere_couche_manquante
If Range("der_cou") <> 0 Then Call derniere_couche_manquante
Else
Sheets("Données géotechniques").Select
Range("A1").Select
End If
End Sub

Merci d’avance et en espérant avoir été suffisamment claire. Et je vous présente mes excuses si le vocabulaire utilisé n’est pas celui d’un informaticien.
Bonne journée

 

[tototiti2008]

Re : Création d'une macro "if"

Bonjour chnook,

Si tu mets l'action à réaliser directement derrière le Then, alors le Else devra également être sur la même ligne et tu n'auras pas besoin de End If

à tester

Sub verification_couche()
    'Si la valeur der_cou = 0 alors  derniere_couche_manquante
If Range("der_cou") <> 0 Then 
Call derniere_couche_manquante
Else
Sheets("Données géotechniques").Select
Range("A1").Select
End If
End Sub

 

[chnook]

Re : Création d'une macro "if"

Merci pour cette réponse mais en lancant la macro j'ai le message suivant qui s'affiche :
Laufzeitfehler
Die Methode 'Range' für das objekt ist fehlgeschlagen
Erreur de délai de validité
La méthode au 'rang' pour l'objet a échoué

 

[tototiti2008]

Re : Création d'une macro "if"

Re,

Quand tu écris

Range("der_cou") <> 0

ça sous-entend que dans la feuille active quand la macro est lancée, une plage de cellule ait le nom "der_cou"
Vérifie dans les noms de plages si un nom de ce type existe bien, et s'il est bien dans la feuille active

 

[chnook]

Re : Création d'une macro "if"

A bah oui, tout fonctionne nettement mieux maintenant. Merci beaucoup. Je n'ai pas du valider après avoir rentré le nom de la cellule.

 

[chnook]

Re : Création d'une macro "if"

Par contre je viens de m'apercevoir de quelque chose, cette macro s'active meme si je ne clique pas sur le bouton associé. Avez vous une idée de modification pour qu'elle ne s'active uniquement lorsque l'utilisateur clique sur le bouton ?
Merci

 

[tototiti2008]

Re : Création d'une macro "if"

Re,

avec les infos fournies, je ne sais pas ce qui lance ta macro verification_couche
Pour savoir où tu l'appelles, fait une recherche de son nom dans l'ensemble du code du classeur