Attribuer le même nom de champs sur une copie d'onglet

[Eloria]

Bonjour,

Comment faire en sorte de ne plus avoir à confronter ce message d"erreur?

J'ai une macro qui copie mon onglet et en créer un autre mais j'ai plein de champs que j'ai du nommé pour des listes déroulantes entre autre.

Merci beaucoup d'avance

 

[youky(BJ)]

Re : Attribuer le même nom de champs sur une copie d'onglet

Bonjour Eloria,
Sans connaitre une ligne de ton code !!!
Peut être ...
Application.DisplayAlerts = False
'ta copie d'onglet
Application.DisplayAlerts = True
Bruno

 

[Eloria]

Re : Attribuer le même nom de champs sur une copie d'onglet

Mon code n'est pas trop complexe, je ne pense pas qu'il est à voir avec ce problème. Le problème vient plus de la feuille sur laquelle j'ai mes champs définis.


ActiveSheet.Buttons.Select
Selection.OnAction = "new_formulaire"
Sheets(ThisWorkbook.Sheets.Count).Copy After:=Sheets(ThisWorkbook.Sheets.Count)
Range("B1:I1").Select
Selection.ClearContents
Range("C3:E3").Select
Selection.ClearContents
Range("C2").Select
Selection.ClearContents
Range("C4:E4").Select
Selection.ClearContents
Range("C5:E5").Select
Selection.ClearContents
Range("C6").Select
Selection.ClearContents
Range("E6").Select
Selection.ClearContents
Range("C7").Select
Selection.ClearContents
Range("E7").Select
Selection.ClearContents
Range("G3").Select
Selection.ClearContents
Range("I3").Select
Selection.ClearContents
Range("G4").Select
Selection.ClearContents
Range("I4").Select
Selection.ClearContents
Range("G5").Select
Selection.ClearContents
Range("I5").Select
Selection.ClearContents
Range("G6:I6").Select
Selection.ClearContents
Range("G7").Select
Selection.ClearContents
Range("I7").Select
Selection.ClearContents
Range("G9").Select
Selection.ClearContents
Range("H9:H10").Select
Selection.ClearContents
Range("I9:I10").Select
Selection.ClearContents
Range("C9").Select
Selection.ClearContents
Range("E9").Select
Selection.ClearContents
ActiveWindow.SmallScroll Down:=6
Range("C13").Select
Selection.ClearContents
Range("G13").Select
Selection.ClearContents
Range("C16").Select
Selection.ClearContents
Range("E16").Select
Selection.ClearContents
Range("C18").Select
Selection.ClearContents
Range("E18").Select
Selection.ClearContents
Range("C19").Select
Selection.ClearContents
Range("E19").Select
Selection.ClearContents
Range("C20").Select
Selection.ClearContents
Range("E20").Select
Selection.ClearContents
Range("C21").Select
Selection.ClearContents
Range("E21").Select
Selection.ClearContents
Range("I18").Select
Selection.ClearContents
Range("K18").Select
Selection.ClearContents
Range("I19").Select
Selection.ClearContents
Range("K19").Select
Selection.ClearContents
Range("I20").Select
Selection.ClearContents
Range("K20").Select
Selection.ClearContents
Range("I21").Select
Selection.ClearContents
Range("K21").Select
Selection.ClearContents
ActiveWindow.SmallScroll Down:=15
Range("C25").Select
Selection.ClearContents
Range("C27:E29").Select
Selection.ClearContents
Range("C33").Select
Selection.ClearContents
Range("E33").Select
Selection.ClearContents
Range("C34").Select
Selection.ClearContents
Range("E34").Select
Selection.ClearContents
Range("C35").Select
Selection.ClearContents
Range("E35").Select
Selection.ClearContents
Range("C36").Select
Selection.ClearContents
Range("E36").Select
Selection.ClearContents
ActiveWindow.SmallScroll Down:=18
Range("C45").Select
Selection.ClearContents
Range("C44").Select
Selection.ClearContents
Range("F48:H56").Select
Selection.ClearContents
ActiveWindow.SmallScroll Down:=15
Range("F59:H72").Select
Selection.ClearContents
ActiveWindow.SmallScroll Down:=18
Range("F75:H84").Select
Selection.ClearContents
Range("B1:I1").Select
Range("B1:I1") = "Nom de la Crèche"

Bon c'est vrai je pourrai le simplifié mais je n'ai pas encore pris le temps.

 

[Eloria]

Re : Attribuer le même nom de champs sur une copie d'onglet

L'autre soucis c'est que le nom de l'onglet varie en fonction de là où ma macro est activée