c'est quoi qui va pas ?

Le
patrick Leguet
Bonjour,
windows xp, excel 2002
voici le bout de code que j'ai ecrit :

Sub feuillevide()
For Each Sheet In ThisWorkbook
If Range("b1") = "" Then ActiveSheet.Delete
Next
End Sub

il me dit :
erreur d'exécution'438'
proprieté ou méthode non gerée par cet objet
Si une âme charitable pouvait me dépanner.
d'avance merci
patrick
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
JB
Le #5159391
Bonjour,

Sub feuillevide()
Application.DisplayAlerts = False
For Each s In ThisWorkbook.Sheets
If s.[b1] = "" Then s.Delete
Next
End Sub

JB

On 9 fév, 17:51, "patrick Leguet"
Bonjour,
windows xp, excel 2002

Sub feuillevide()
For Each Sheet In ThisWorkbook
If Range("b1") = "" Then ActiveSheet.Delete
Next
End Sub

il me dit :
erreur d'exécution'438'
proprieté ou méthode non gerée par cet objet
Si une âme charitable pouvait me dépanner....
d'avance merci
patrick


patrick Leguet
Le #5159371
Merci,
j'essaye de ce pas
cordialement

"JB"
Bonjour,

Sub feuillevide()
Application.DisplayAlerts = False
For Each s In ThisWorkbook.Sheets
If s.[b1] = "" Then s.Delete
Next
End Sub

JB

On 9 fév, 17:51, "patrick Leguet"
Bonjour,
windows xp, excel 2002

Sub feuillevide()
For Each Sheet In ThisWorkbook
If Range("b1") = "" Then ActiveSheet.Delete
Next
End Sub

il me dit :
erreur d'exécution'438'
proprieté ou méthode non gerée par cet objet
Si une âme charitable pouvait me dépanner....
d'avance merci
patrick


Publicité
Poster une réponse
Anonyme