Message suppression feuille Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
b
b.vincent
Membre habitué
Membre habitué
Messages : 134
Inscrit le : 3 septembre 2015
Version d'Excel : 2010

Message par b.vincent » 10 novembre 2017, 13:12

Bonjour dans mon application quand on va sur l'onglet intervention puis on clique sur APAVE cela nous fait tout un tas de traitement dont une suppression de feuille mais la il me demande de confirmer car elle contient des valeurs peut on forcer la confirmation?
Merci a vous
gmao_vba (1).xlsm
(184 Kio) Téléchargé 8 fois
Avatar du membre
Steelson
Fanatique d'Excel
Fanatique d'Excel
Messages : 13'205
Appréciations reçues : 735
Inscrit le : 13 octobre 2014
Version d'Excel : 2013 FR
Téléchargements : Mes applications

Message par Steelson » 10 novembre 2017, 13:19

Bonjour

Ajoute
 Application.DisplayAlerts = False

O.o°• ♪♪♫ °º¤ø,¸¸,ø¤º°`°º¤ø,¸ O.o°• ♪♪♫ °º¤ø,¸¸,ø¤º°`°º¤ø,¸
PI = 3.14159 26535 89793 23846 26433 83279 50288 41971 69399 37510 58209 74944 59230 78164 06286 20899 86280

( ͡• ͜ʖ ͡• )
b
b.vincent
Membre habitué
Membre habitué
Messages : 134
Inscrit le : 3 septembre 2015
Version d'Excel : 2010

Message par b.vincent » 10 novembre 2017, 13:24

non ca ne fonctionne pas je l'ai ajouté juste avant la suppression de la feuille

Sub copie_pour_mefa()
Sheets("List_Controle_APAVE").Delete
Application.DisplayAlerts = False
Sheets("Controle_APAVE").Select
Range("A3").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
Sheets.Add After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Select
ActiveSheet.Name = "List_Controle_APAVE"
ActiveSheet.Paste

Range("A1").Select
Selection.CurrentRegion.Select
ActiveWorkbook.Names.Add Name:="Liste_maj_apave", RefersToR1C1:= _
"=List_Controle_APAVE!R1C1:R22C7"
End Sub
Avatar du membre
Steelson
Fanatique d'Excel
Fanatique d'Excel
Messages : 13'205
Appréciations reçues : 735
Inscrit le : 13 octobre 2014
Version d'Excel : 2013 FR
Téléchargements : Mes applications

Message par Steelson » 10 novembre 2017, 16:27

b.vincent a écrit :non ca ne fonctionne pas je l'ai ajouté juste avant la suppression de la feuille
    Sheets("List_Controle_APAVE").Delete
    Application.DisplayAlerts = False
ben non, justement tu l'as mis juste après !!
n'oublie pas de remettre sa valeur à True

O.o°• ♪♪♫ °º¤ø,¸¸,ø¤º°`°º¤ø,¸ O.o°• ♪♪♫ °º¤ø,¸¸,ø¤º°`°º¤ø,¸
PI = 3.14159 26535 89793 23846 26433 83279 50288 41971 69399 37510 58209 74944 59230 78164 06286 20899 86280

( ͡• ͜ʖ ͡• )
b
b.vincent
Membre habitué
Membre habitué
Messages : 134
Inscrit le : 3 septembre 2015
Version d'Excel : 2010

Message par b.vincent » 10 novembre 2017, 19:15

a oui ca marche impeccablement merci a toi
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message