Worksheet_SelectionChange

Fermé

GermPeru Messages postés 172 Date d'inscription mercredi 7 décembre 2016 Statut Membre Dernière intervention 27 mars 2018 - 24 janv. 2017 à 15:34
ThauTheme Messages postés 1442 Date d'inscription mardi 21 octobre 2014 Statut Membre Dernière intervention 29 juillet 2022 - 24 janv. 2017 à 15:57

Bonjour a tous,

Je suis en train de travailler a partir d'un code d'un internaute et sur chacune de ses feuilles il a mis le code suivant, est ce que quelqu'un pourrati m'expliquer lóbjectif de ce bout de code et son utilité:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveSheet.Name <> "Hoja1" Then
    ActiveSheet.Name = "Hoja1"
End If
End Sub

Merci dávance

1 réponse

Réponse 1 / 1

ThauTheme Messages postés 1442 Date d'inscription mardi 21 octobre 2014 Statut Membre Dernière intervention 29 juillet 2022 160
24 janv. 2017 à 15:57

Bonjour GermPeru, bonjour le forum,

Ce code est plus que bizarre. Dans l'onglet dans lequel il se trouve, chaque fois que tu vas sélectionner autre une cellule (n'importe laquelle) il va faire la vérification suivante :
Si l'onglet ne se nomme pas "Hoja1" (Feuil1 en espagnol) alors nommer l'onglet "Hoja1".
Ce genre de code va planter si d'aventure le classeur possède déjà un onglet nommé "Hoja1". Il devrait, au préalable, faire un boucle sur tous les onglets pour vérifier si il n'en existe déjà pas un avec ce nom là. Il est donc peu fiable pour un seul onglet.

Mais si en plus, tu dit qu'il est sur tous les onglets d'un classeur, il est évident que dès qu'il aura agit sur le premier onglet, il plantera sur le second...

Discussions similaires

pb private sub worksheet_selectionchange

worksheet_SelectionChange

Faire un appel à Worksheet_SelectionChange cellule active

Discussions similaires

Newsletters