popup visible en permanance

firechief

XLDnaute Junior
Bonjour à tous !
de façon à pouvoir identifier des informations rapidements dans un grand tableau Excel, j'ai utilisé un code couleur. par exemple les lignes en noir sont pour les clients actifs, les oranges pour les demandes en cours, les bleues pour les rappels, etc....
Comme je ne suis pas le seul à consulter ce tableau, je cherche un moyen de créer une petite fenêtre visible en permanace (qui se déplace avec la feuille) comportant ces codes couleur. J'utilise 6 codes en tout.
Avez-vous une idée ?
D'avance merci et bonne fin de journée
 

Catrice

XLDnaute Barbatruc
Re : popup visible en permanance

Bonjour,

ci-joint un exemple avec une Zone de Texte.
 

Pièces jointes

  • Classeur1.xls
    22 KB · Affichages: 105
  • Classeur1.xls
    22 KB · Affichages: 111
  • Classeur1.xls
    22 KB · Affichages: 111
Dernière édition:

firechief

XLDnaute Junior
Re : popup visible en permanance

Hello,
merci à BOISGONTIER et à Catrice. La solution de Catrice me convient bien. Mais comment arriver à un tel résultat, est surtout le coup du pavé qui suit la sélection de la cellule !!! Super :eek:
A +++
 

firechief

XLDnaute Junior
Re : popup visible en permanance

Hello Catrice, j'ai essayé d'étudier le VBA de ton fichier. :eek: J'ai créer une page excel et j'ai insérer une zone de texte, puis comparer les 2 VBA. Chez toi il y a un dossier de plus sous VBAProject, c'est un dossier "Modules". Quand je l'ouvre, il n'y a rien.:eek:
Désolé, mais mes compétences sont limitées en VBA, alors si tu peux m'éclairer ou me dire comment copier/coller sur ma feuille, je suis preneur.:p
Encore merci de prendre du temps et bonne journée
 

Catrice

XLDnaute Barbatruc
Re : popup visible en permanance

Bonjour firechief,

Pour simplifier, il te suffit de copier le code suivant dans la Feuil1.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With ActiveSheet.Shapes("Text Box 1")
.Top = ActiveCell.Offset(0, 1).Top
.Left = ActiveCell.Offset(0, 1).Left + 20
End With
End Sub


Pas à pas :
- Dans la feuille Excel, créer la Zone de Texte.
- Alt + F11 pour aller dans l'éditeur Vba.
- Choisir la feuille qui va contenir la Zone de Texte mobile.
- Double cliquer sur la feuille en question et coller le code ci-dessus (en modifiant le nom "Text Box 1" le cas échéant).
- Fermer l'éditeur VBA

Top et Left definissent les coordonnées (en haut à gauche) de la cellule et de l'objet.
Offset(0, 1) sert se positionner sur la cellule à G de la cellule active (pour eviter de mettre le Pop Up sur la cellule qu'on est en train de lire :D)
Le + 20, c'est pour ne pas etre collé à la cellule active.

J'ai mis une version modifié de mon fichier dans mon précédent Post.
 
Dernière édition:

JNP

XLDnaute Barbatruc
Re : popup visible en permanance

Bonjour Firechief, le forum :),
Catrice risquant de ne pas passer forcément tout de suite, je me permets de décomposer sa proposition (excellente, soit dit en passant, je n'y aurais pas pensé... :eek:).
1) Tu créer une zone de texte dont tu récupères le nom dans la case de référence (là où tu lis A1 par exemple.
2) Dans le projet de ton classeur (Alt + F11), tu fait un clic-droit sur le classeur et tu fait "Insérer un module"
3) Tu double-clic sur le Module1 que tu viens de créer. Dedans, tu colles le code de Catrice
Code:
Sub Test()
With ActiveSheet.Shapes("[COLOR=red][B]ZoneTexte 2[/B][/COLOR]")
    .Top = ActiveCell.Offset(0, 1).Top
    .Left = ActiveCell.Offset(0, 1).Left + 20
End With
End Sub
dans lequel tu modifie le nom du bloc texte de référence par le nom cité dans le 1).
4) Tu double-clic (toujours dans l'explorateur VBA) sur la feuille où tu veux utiliser ton TextBox (fait attention à ce que celui-ci soit bien sur la bonne feuille) et là, dans le code de feuille, tu colles l'autre code
Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Test
End Sub
qu'on appelle procédure événementielle et qui appelera la macro "test" à chaque changement de sélection.
Voilà, j'espère que tu auras tout compris, et bienvenu dans le monde du VBA :p.
Bonne journée :cool:
Ajout : Bonjour Catrice. Je ne pouvais pas savoir que tu arrivais... Si j'avions su...
 
Dernière édition:

firechief

XLDnaute Junior
Re : popup visible en permanance

Hello à tous,
j'y suis presque, je ne trouve pas le nom de la zone de texte, et c'est l'erreure qui apparait à chaque fois....!!! :mad:
Je n'ai pas bien compris
tu récupères le nom dans la case de référence (là où tu lis A1 par exemple.
je dois mettre le nom A1 ? mais ca ne marche pas.
Alors un dernier petit coup de pouce.. et un immense merci !;)
 

firechief

XLDnaute Junior
Re : RESOLUT popup visible en permanance

J'AI TROUVE !!!!!!:p:);)
Trop bien !!
Merci infiniment à tous et surtout à Catrice car ton code simplifié fonctionne à merveille.
Très bonne fin de journée à tous !

Je termine se poste ici car résolut.
 

Discussions similaires

Statistiques des forums

Discussions
311 723
Messages
2 081 932
Membres
101 844
dernier inscrit
pktla