Re : (Sans VBA) Infobulle définition d'un mot au survol d'une cellule qui contient ce
Bonjour,
Je commence par la fin (le plus important )*
C'est une macro
évènementielle qui est exécutée lors d'un
évènement particulier dans une feuille .
Dans "Private Sub Worksheet_SelectionChange(ByVal Target As Range)",
Target désigne une zone de
la feuille où est écrite la macro.
Dans la procédure , la feuille dans laquelle on pioche les renseignements est définie par son nom, ici With Sheets("Glossaire"), donc l'ordre n'a pas d'importance.
"If Target.Column
s <>
2 And Target.Row = 1 Then Exit Sub",
ligne fausse, est à remplacer par
"If Target.Column <>7 Or Target.Row = 1 Then Exit Sub".
Si le clic ne se fait pas en colonne "G" (7) ou se fait sur la ligne 1, on quitte sans ne rien faire.
On aura la même chose avec les touches de direction !
TB désigne le nom (abrégé pour simplifier l'écriture) du control Textbox .
Quand on insére un contrôle en Mode Création, son nom est prédéfini.
Pour le connaître, il suffit de cliquer dessus avec le bouton droit (toujours en Mode cCéation actif).
Ce nom apparaît tout à fait à gauche de la barre de formule.
Un clic dans ce cadre et on peut changer de dénomination après
validation.
On peut contrôler tout cela en choisissant l'option Propriétés du menu déroulant apparu lors duc clic droit.
Les variables
Dl (dernière ligne) et
C (cellule) étant bien déclarée, il ne doit pas y avoir de problème de ce côté.
Si tu ne t'en sors toujours pas, comme le suggère eriiiic
, donne nous une version allégée de ton fichier actuel .
* le problème le plus souvent rencontré provient de l'ignorance du précepte (intervenant
en premier ) :
"Dans quelle feuille suis-je ? Dans quelle feuille vais-je trouver les données utiles? Dans quelle feuille vais-je inscrire les résultats ?