Libellé d'onglet automatisé.

[Rick@]

Bonjour,

un onglet qui prend le libéllé automatiquement selon un choix ...

Cela se peut il?

Voir fichier.

Merci🙂

 

[ROGER2327]

Re : Libellé d'onglet automatisé.

Re...

Bonsoir Roger

Je ne pense pas qu'elle fonction car
Set AD = Intersect(Target, .Precedents)
renvoi nothing quand il y a une formule dans la cellule.......

Voyez le classeur joint...
​

ROGER2327
#4366

Lundi 16 Haha 138 (Saint Vadrouille, emblème, SQ)
30 Vendémiaire An CCXIX
2010-W42-4T20:18:48Z

 

[eutrophisation]

Re : Libellé d'onglet automatisé.

Lorsque la feuille est protégée cela ne fonctionne pas

 

[ROGER2327]

Re : Libellé d'onglet automatisé.

Lorsque la feuille est protégée cela ne fonctionne pas

Heureusement ! Si une feuille protégée n'était pas protégée, que diriez-vous ?
Si vous ne voulez protéger que l'interface et permettre l'exécution du code VBA, limitez la protection :

[COLOR="DarkSlateGray"][B]Feuil1.Protect UserInterfaceOnly:=True[/B][/COLOR]

Et n'oubliez pas de placer ce code dans le module du classeur :

[COLOR="DarkSlateGray"][B]Private Sub Workbook_Open()
  Feuil1.Protect UserInterfaceOnly:=True
End Sub[/B][/COLOR]

car la variable UserInterfaceOnly est réinitialisée à la valeur False lors de l'enregistrement du classeur.​

ROGER2327
#4369

Mardi 17 Haha 138 (Saint Homais d'Aquin, prudhomme, SQ)
1er Brumaire An CCXIX
2010-W42-5T08:41:22Z

 

[eutrophisation]

Re : Libellé d'onglet automatisé.

Super cela fonctionne c'est ce que je cherchais

 

[tbft]

Re : Libellé d'onglet automatisé.

@Roger

Pardon et Merci pour la correction de ma bêtise..
Je pense que je vais pas tarder à l'utiliser...
Encore merci...

 

[ROGER2327]

Re : Libellé d'onglet automatisé.

Re...

@Roger

Pardon et Merci pour la correction de ma bêtise..
Je pense que je vais pas tarder à l'utiliser...
Encore merci...

Ne vous excusez pas ! Une légende tenace veut que l'évènement Worksheet_Change ne peut être exploité à partir d'une cellule contenant une formule.
C'est parfaitement faux, car la propriété Precedents renvoie la collection de toutes les cellules intervenant dans la formule d'une cellule qui en contient une. Encore faut-il connaître cette propriété d'usage assez rare. Et le nombre de propriétés des objets d'Excel est si grand qu'il n'y a pas de honte à en ignorer quelques unes. Si j'ai pu vous la faire découvrir, j'en suis heureux.
​

Cordialement,

ROGER2327
#4379

Mardi 17 Haha 138 (Saint Homais d'Aquin, prudhomme, SQ)
1er Brumaire An CCXIX
2010-W42-5T23:59:34Z

 

[eutrophisation]

Re : Libellé d'onglet automatisé.

BONJOUR
Je remercie votre générosité sans limite ROGER2327.
Je profite de cette opportunité pour vous soumettre ce probleme. Dans le cadre de notre travail nous sommes appellés souvent à saisir des valeurs plusieurs fois dans une meme cellule au minimum deux fois. Ma question est la suivante est il possible que chaque saisie (valeur) dans la cellule soit enregistrer quelque part comme par exemple dans un commentaire avec au départ leur date de saisie RESPECTIVE...La memoire de la cellule.

 

[DoubleZero]

Re : Libellé d'onglet automatisé.

Bonjour à toutes et à tous,

Cela peut-il aider ?

http://boisgontierjacques.free.fr/pages_site/commentaire.htm


Historique de saisie d'une cellule

Mémorise l'historique des cellules dans la zone commentaire des cellules.

-Commentaire Historique Cellule -

-Alt+F11
-Double clic sur Feuil1
-Choisir WorkSheet
-Choisir événement Change

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Column = 3 And Target.Count = 1 Then ' colonne 3 seulement
If Target.Comment Is Nothing Then Target.AddComment ' Création commentaire
Target.Comment.Text Text:=Target.Comment.Text & _
Format(Target.Value, "# ##0.00 €") & " Modifié par:" & Environ("UserName") & _
" Le " & Now & vbLf
Target.Comment.Shape.TextFrame.AutoSize = True
End If
Application.EnableEvents = True
End Sub

Cordialement,

00 / 🙂🙂

 

[eutrophisation]

Re : Libellé d'onglet automatisé.

Ce sont des nombres que je saisie sur les cellules . Les colonnes concernées sont P, R, T,V,X,Z,AB, AD, AF, AH, AJ, AL, AM, AN.
La plage concernée est p21:AN2020
merci pour la rapidité de la reponse.