Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
Ok, Merci ! Pouvez-vous me valider la correction ?
Sub SupprFeuilles()
Dim Cel As Range
Application.DisplayAlerts = False
For Each Cel In Range("liste")
If Not IsEmpty(Cel.Value) Then
Sheets(CStr(Cel.Value)).Delete
End If
Next Cel
Application.DisplayAlerts = True
End Sub
Bien cordialement,
Merci, pour la solution, l'accompagnement et le cours ;)
Sub SupprFeuilles()
Dim Cel As Range
Application.DisplayAlerts = False
For Each Cel In Range("liste")
If Not IsEmpty(Cel.Value) Then
Sheets(CStr(Cel.Value)).Delete
End If
Next Cel
Application.DisplayAlerts = True
End Sub
Je n'y arrive pas .....
Sub SupprFeuilles()
Dim Cel As Range
Application.DisplayAlerts = False
If Not IsEmpty(Range("liste").Value) Then
For Each Cel In Range("liste")
Sheets(CStr(Cel.Value)).Delete
Next Cel
End If
Application.DisplayAlerts = True
End Sub
Si je met ma liste au format Texte, cela fonctionne.
liste = A2 à A11
A2 = 18 (au format texte)
A3 à A11 sont vides
La macro essaye ensuite de passer à la cellule A3 de la liste, qui est vide et elle plante !
Merci !
Lorsque je liste Feuil14, Feuil15.... cela fonctionne,
mais quand dans ma liste j'ai 18,19 (noms des autres onglets), cela ne fonctionne pas !
Je viens de tester avec un onglet nommé TOTO, cela fonctionne !
Cela ne fonctionne pas avec les onglets nommés avec du numérique, semble t'il...
Bien...
Bonjour,
Merci Dranreb !
A la ligne
Sheets(Cel.Value).Delete
Je rencontre une erreur : Erreur d'exécution '9'
l'indice n'appartient pas à la sélection
La Feuil14 a bien été supprimée, mais la suivante nommée 18 rencontre une erreur.
Bien cordialement,
Bonjour,
Je n'arrive pas à trouver comment supprimer les onglets d'un classeur listés dans les cellules (A2 à A12).
J'ai essayé ceci qui ne fonctionne pas...
Sub suppr_feuilles()
Dim nom As String, c As Range
Application.DisplayAlerts = False
For Each c In Range("liste")
nom = c.Value
If...
Bonjour,
Je coince sur le sujet. J'arrive à récupérer les éléments d'une bal personnelle ainsi que les mails dans éléments supprimés, envoyés et dans des sous-dossiers.
Mais quand il s'agit de bals génériques j'arrive à récupérer les mails dans la boite de réception, mais pas dans les...
Bonjour,
Je souhaite récupérer les mails de plusieurs bals génériques, pour comptabiliser les mails du jour. (par excel vba)
J'utilise le fichier de JB (Outlook.zip)😊, qui récupère les mails de ma boite de réception principale, ainsi que le calendrier, les contacts…..
Que faut il modifier...
Ce site utilise des cookies pour personnaliser le contenu, adapter votre expérience et vous garder connecté si vous vous enregistrez.
En continuant à utiliser ce site, vous consentez à notre utilisation de cookies.