problème avec if..else..endif
Bonjour à tous;
Je sollicite votre aide pour résoudre un problème de macro;
en fait je souhaite réaliser une macro qui me permet de vérifier si le contenu de la feuil1 d'un classeur est vide si c'est le cas une deuxième macro s'exécute
si par contre le contenu de la feuil n'est pas vide, dans ce cas il faut le vider et exécuter la deuxième macro.
voici une macro que j'ai réalisé mais malheureusement pour moi elle marche pas
Code:
1 2 3 4 5 6 7 8 9 10 11
| Sub macro1()
Set ab = Range("a1:z100")
With ab.Value
If Not IsEmpty(ab.Value) Then
ab.ClearContents
ab.QueryTable.Delete
Macro2
Else: Macro2
End If
End With
End Sub |
En exécutant cette macro elle marche, mais le problème c'est que le "else' ne s'exécute pas.
Aidez moi svp
davance merci
Ps: la macro2 contient une requête c'est pour ça que j'ai mis querytable.delete. Pour supprimer tous les tables avant d'exécuter la dite macro.