Logo GNT
Actualités Tests & Guides Bons Plans
Gemini 3 Shein GTA 6 iPhone 17 Switch 2 ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel SUPRESSION DE FEUILLE ET COLAGE SPECIAL

SUPRESSION DE FEUILLE ET COLAGE SPECIAL

7 réponses
Avatar
Le Rital
Bonsoir,
J'ai besoin de 2 petites macro pour me facilit=E9 le travail
que j'associerai =E0 deux boutons :

1 - suppression de feuilles nomm=E9es d'un simple clic si=20
possible en =E9vitent la confirmation de suppression.

2 - colage sp=E9cial ( format et transpos=E9 ) d'un simple=20
clic si possible.

Merci pour le coup de main=20
Salutations
Signaler un problème avec ce contenu

7 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
GoThi
Salut,

Tunaka le faire en enregistrant en macro !!!
Outils / Macro / Nouvelle macro ... / OK

GoThi

"Le Rital" a écrit dans le message de
news: 00d301c39993$7c1d67d0$
Bonsoir,
J'ai besoin de 2 petites macro pour me facilité le travail
que j'associerai à deux boutons :

1 - suppression de feuilles nommées d'un simple clic si
possible en évitent la confirmation de suppression.

2 - colage spécial ( format et transposé ) d'un simple
clic si possible.

Merci pour le coup de main
Salutations
Avatar
Merci mais j'ai daja fais le test ca ne fonctionne pas

-----Message d'origine-----
Salut,

Tunaka le faire en enregistrant en macro !!!
Outils / Macro / Nouvelle macro ... / OK

GoThi

"Le Rital" a écrit
dans le message de

news: 00d301c39993$7c1d67d0$
Bonsoir,
J'ai besoin de 2 petites macro pour me facilité le travail
que j'associerai à deux boutons :

1 - suppression de feuilles nommées d'un simple clic si
possible en évitent la confirmation de suppression.

2 - colage spécial ( format et transposé ) d'un simple
clic si possible.

Merci pour le coup de main
Salutations


.



Avatar
ru-th
Salut

Pour le 1) éliminer toutes les feuilles commencant par Feuil
Sub TEST()
Application.DisplayAlerts = False
For Each f In Worksheets
If f.Name Like "Feuil*" Then f.Delete
Next
Application.DisplayAlerts = True
End Sub

--
a+
rural thierry
Veaux et Broutards d'Anjou
Wicasa on kin nape yapi inahni yo (à l'essai)

"Le Rital" a écrit dans le message de
news: 00d301c39993$7c1d67d0$
Bonsoir,
J'ai besoin de 2 petites macro pour me facilité le travail
que j'associerai à deux boutons :

1 - suppression de feuilles nommées d'un simple clic si
possible en évitent la confirmation de suppression.

2 - colage spécial ( format et transposé ) d'un simple
clic si possible.

Merci pour le coup de main
Salutations
Avatar
Merci pour ta solution mais j'arrive pas à la faire
fonctionner en fait mes onglet sont nommés
-----Message d'origine-----
Salut

Pour le 1) éliminer toutes les feuilles commencant par
Feuil

Sub TEST()
Application.DisplayAlerts = False
For Each f In Worksheets
If f.Name Like "Feuil*" Then f.Delete
Next
Application.DisplayAlerts = True
End Sub

--
a+
rural thierry
Veaux et Broutards d'Anjou
Wicasa on kin nape yapi inahni yo (à l'essai)

"Le Rital" a écrit
dans le message de

news: 00d301c39993$7c1d67d0$
Bonsoir,
J'ai besoin de 2 petites macro pour me facilité le travail
que j'associerai à deux boutons :

1 - suppression de feuilles nommées d'un simple clic si
possible en évitent la confirmation de suppression.

2 - colage spécial ( format et transposé ) d'un simple
clic si possible.

Merci pour le coup de main
Salutations


.



Avatar
ru-th
re-

c'est quoi tes onglets nommés ?
un exemple ?
a+
rural thierry

a écrit dans le message de news:
039501c399a4$f10fd9e0$
Merci pour ta solution mais j'arrive pas à la faire
fonctionner en fait mes onglet sont nommés
-----Message d'origine-----
Salut

Pour le 1) éliminer toutes les feuilles commencant par
Feuil

Sub TEST()
Application.DisplayAlerts = False
For Each f In Worksheets
If f.Name Like "Feuil*" Then f.Delete
Next
Application.DisplayAlerts = True
End Sub

--
a+
rural thierry
Veaux et Broutards d'Anjou
Wicasa on kin nape yapi inahni yo (à l'essai)

"Le Rital" a écrit
dans le message de

news: 00d301c39993$7c1d67d0$
Bonsoir,
J'ai besoin de 2 petites macro pour me facilité le travail
que j'associerai à deux boutons :

1 - suppression de feuilles nommées d'un simple clic si
possible en évitent la confirmation de suppression.

2 - colage spécial ( format et transposé ) d'un simple
clic si possible.

Merci pour le coup de main
Salutations


.



Avatar
Ritalou
Salut Le Rital
une idée pour le 2 :
macro a mettre sur un bouton
Sub aaaaaa()
On Error Resume Next 'au cas ou ya pas de selection
Selection.PasteSpecial Paste:=xlFormats, Transpose:=True
Application.CutCopyMode = False
End Sub
ciao
Ritalou
Excel2000-WinNT

"Le Rital" a écrit dans le message
news: 00d301c39993$7c1d67d0$
Bonsoir,
J'ai besoin de 2 petites macro pour me facilité le travail
que j'associerai à deux boutons :

1 - suppression de feuilles nommées d'un simple clic si
possible en évitent la confirmation de suppression.

2 - colage spécial ( format et transposé ) d'un simple
clic si possible.

Merci pour le coup de main
Salutations
Avatar
Frédéric Sigonneau
Bonjour,

Pour ta question 1, en adaptant les noms des feuilles à supprimer :

Sub SupprFeuilles()
Dim FeuillesADetruire
FeuillesADetruire = Array("Feuil2", "Feuil7", "Feuil8", "Feuil9")
Application.DisplayAlerts = False
Sheets(FeuillesADetruire).Delete
Application.DisplayAlerts = True
End Sub

FS
--
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://perso.wanadoo.fr/frederic.sigonneau
Si votre question sur Excel est urgente, évitez ma bal !


Bonsoir,
J'ai besoin de 2 petites macro pour me facilité le travail
que j'associerai à deux boutons :

1 - suppression de feuilles nommées d'un simple clic si
possible en évitent la confirmation de suppression.

2 - colage spécial ( format et transposé ) d'un simple
clic si possible.

Merci pour le coup de main
Salutations