Discussion :

[casavba]

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 :

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

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.

[ced600]

Met les balises de codes lorsque tu poste du code.
L'utilisation du with me parait errone.
"Else:" es tu sur pour les : ?

Code :

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

1
2
3
4
5
6
7
8
9
 
Sub macro1()
     Set ab = Range("a1:z100")
     If Not IsEmpty(ab.Value) Then
        ab.ClearContents
        ab.QueryTable.Delete
     End If
     Macro2
End Sub

J'aurais plus fait cela.

[casavba]

Met les balises de codes lorsque tu poste du code.
L'utilisation du with me parait errone.
"Else:" es tu sur pour les : ?

Code :

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

1
2
3
4
5
6
7
8
9
 
Sub macro1()
     Set ab = Range("a1:z100")
     If Not IsEmpty(ab.Value) Then
        ab.ClearContents
        ab.QueryTable.Delete
     End If
     Macro2
End Sub

J'aurais plus fait cela.

Merci ced600 de votre aide ça marche

Merci ced600
maintenant mon code marche à merveille.

[ced600]

De rien, l'essentiel c'est que cela marche.