XL 2016 problème de macro

pelerin65

XLDnaute Occasionnel
Bonjour le forum,
J'ai crée un fichier taxi et lorsque j'indique la ville en "G9" et la date en "I18" ceci renomme l'onglet.
J'ai crée une macro pour effacer l'ensemble de la feuille après utilisation.

Voici le code:

Sub SUPPRIME1()
' Touche de raccourci du clavier: Ctrl+e
Range("G9:J9").Select
Selection.ClearContents
Range("G13:J13").Select
Selection.ClearContents
Range("B18:C25").Select
Selection.ClearContents
Range("I18:L25").Select
Selection.ClearContents
Selection.ClearContents
Range("G9:J9").Select
Selection.ClearContents
Range("G9").Select
Selection.ClearContents
Feuil4.Name = "1"
End Sub

et le feuille voici le code

"Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.Name = ActiveSheet.Range("G9").Value & "-" & Format(ActiveSheet.Range("I18").Value, "DDMMYY")
End Sub"

ca marche super bien lorsqu'il n'y a qu'une feuille, des que je crée une copie ca bogue

Je suis pas assez calé pour trouver une solution lorsque que je dois crée plusieurs demandes de taxi.

je vous demande un petit coup de main




merci d'avance
 
Dernière édition:

vgendron

XLDnaute Barbatruc
Bonjour

1) supprimes immédiatement ton fichier: il contient des données personnelles avec numéros de téléphone
2) c'est une très mauvaise idée de mettre un code qui renomme une feuille à chaque fois que tu cliques dedans pour sélectionner une cellule
il vaut mieux avoir un modèle vide que tu utilises pour créer une nouvelle fiche

ex:
VB:
Nouveaunom=application.inputbox("Quel est le nouveau nom?")
NewDate=application.inputbox("Quelle est la date" ?")

sheets("Modèle").copy
activesheet.range("G9")=NouveauNom
activesheet.rabge("I18")=NewDate
activesheet.name=NouveauNom &"-" &format(Newdate,"DDMMYYYY")
 

pelerin65

XLDnaute Occasionnel
Merci Vgendron de m'avoir avertir.

Je comprends pas ton exemple
J'ai remis le fichier avec des noms fictifs et les adresses sont celles d'hôtels que l'on trouve sur le net

 

Discussions similaires

Statistiques des forums

Discussions
314 948
Messages
2 114 650
Membres
112 206
dernier inscrit
salah zabi