Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel c'est quoi qui va pas ?

c'est quoi qui va pas ?

2 réponses
Avatar
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
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
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" wrote:
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


Avatar
patrick Leguet
Merci,
j'essaye de ce pas
cordialement

"JB" a écrit dans le message de news:

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" wrote:
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