XL 2016 problème de macro

pelerin65 · 6 Juillet 2022

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

vgendron · 6 Juillet 2022

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 · 6 Juillet 2022

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

taxi-essai.xlsb

Le service des pièces jointes, CJoint.com est un service de partage de fichier gratuit pour partager vos documents dans vos courriels, sur les forums ou dans vos petites annonces.

www.cjoint.com

XL 2016 problème de macro

pelerin65

XLDnaute Occasionnel

vgendron

XLDnaute Barbatruc

pelerin65

XLDnaute Occasionnel

taxi-essai.xlsb

Discussions similaires