Lancer une macro si cellule non vide

DJ333 Messages postés 5 Date d'inscription Statut Membre Dernière intervention -
DJ333 Messages postés 5 Date d'inscription Statut Membre Dernière intervention - 26 mars 2019 à 09:39

Bonjour
Je débute en macro... Je veux que en cliquant sur un bouton, les macros s'exécutent seulement si une cellule indiquée est renseignée. Mais mon code ne fonctionne pas, cela répond "manque une condition if...
Comment faire ? Par avance merci!

Sub crefeuille1()
' crefeuille1 Macro
If Range("C2") = "" Then
Sheets("Revue type").Select
Sheets("Revue type").Copy After:=Sheets(2)
Set MySheet = ActiveSheet
With MySheet
.Name = Worksheets("Trame").Range("e2")
End If
End With
End Sub
Sub crefeuille2()
'
' crefeuille2 Macro
'
If Range("C3") = "" Then
Sheets("Revue type").Select
Sheets("Revue type").Copy After:=Sheets(2)
Set MySheet = ActiveSheet
With MySheet
.Name = Worksheets("Trame").Range("e3")
End If
End With
End Sub

A voir également:

Vba cellule non vide
Formate pour taxer client frigo vide ✓ - Forum Vos droits sur internet
Supprimer page word vide - Guide
Formule excel si cellule non vide alors couleur ✓ - Forum Excel
Internat nourriture - Forum Loisirs / Divertissements
Excel compter cellule couleur sans vba - Guide

3 réponses

Réponse 1 / 3

via55 Messages postés 14512 Date d'inscription Statut Membre Dernière intervention 2 746

Bonsoir

1° ta macro ne s'exécute que si la cellule C2 est vide
si tu veux qu'elle ne s'exécute que lorsque C2 est remplie il faut écrire If Range("C2") <>"" Then

2° Le End if devrait se trouver après le End with

3° With n'est utile que lorsqu'il y a plusieurs instructions à appliquer à la même plage pour éviter d'avoir à répéter, ici tu n'as qu'une instruction tu peux donc simplifier en remplaçant
With MySheet
.Name = Worksheets("Trame").Range("e2")
End with
par
ActiveSheet.Name = Worksheets("Trame").Range("e2")

Cdlmnt
Via

Réponse 3 / 3

michel_m Messages postés 16602 Date d'inscription Statut Contributeur Dernière intervention 3 314

Bonjour,

Si tu teste C2 apparement vide , tu écris une formule dans un coin de la feuille :
=estvide(C2), si elle retourne "faux" <=> C2 contient un espace
d'où ta remarque:
"un espace est ajouté à la fin du nom de la feuille"

Ton souci est donc de trouver pourquoi il y a un espace dans C2 (C2 est une formule ? si oui ,voir les antécédents)

DJ333 Messages postés 5 Date d'inscription Statut Membre Dernière intervention

Merci Michel, j'ai compris et fait la modif. Maintenant cela fonctionne bien !

Discussions similaires

Erreur 1004 Erreur définie par l'application ou par l'objet

erreur de compilation: attendu : séparateur de liste ou ) [Access/Vba]

Copier des cellules d'un fichier excel vers un autre (vba)

VBA excel - Récupérer une valeur contenue dans une cellule fusionnée

Selectionner première cellule vide d'une colonne

RECHERCHEV sur une autre feuille

Votre réponse

Discussions similaires