Fenetre volante et annotation dans cellule

Bonjour,

J’ai récupéré sur le net un tableau qui m’intéresse beaucoup par ses qualités.

Je voudrais reprendre les éléments qu’il me faut pour créer mon propre planning

Le seul problème c’est que je me heurte à quelques soucis que je suis incapable de résoudre seul.

Le premier :

Comment faire pour créer une annotation sans que ce soit fait par insertion de commentaire.

La deuxième :

Comment réaliser la "cellule volante" (flèche) comme a l’image. Elle se superpose sur les feuilles ouvertes, et est déplaçable avec la souris.

Merci pour l’aide que vous pourrez m’apporter.

Polo

Bonsoir

Envoyer une image pour l'analyse d'un fichier Excel est déjà pas banal, mais, en plus, le faire dans un fichier Word est une provoc pour ce Forum.

Bien sur...je plaisante, on en verra surement d'autres.

Ceci pour te dire que sans le fichier Excel, personne ne pourra l'analyser.

je suppose que ces particularités intéressantes sont gérées par des macros que tu peux voir, si le fichier n'est pas protègé.

Cordialement

Salut le forum

Mytå

Bonsoir,

Pour répondre à Amadéus, je ne peux t'envoyer un fichier excel puisque l 'application est en .xls.exe

Le programme est exactement celui que mita propose au téléchargement.

Le seul Hic c'est qu'il ne correspond pas a ce que je veux faire te ai besoin.

Donc Amadeus si tu pouvais voir ce que je souhaite en exécutant le programme lié par mita, cela me dépanerait bien

merci

polo

Re le forum

Polo ta boite d'annotation est un boite de texte lancée par une macro sur la selectionne de la cellule,

et ta fenêtre volante est un UserForum.

Un exemple vite fait pour ta demande :

Mytå

re bonsoir Myta

Oui c'est bien ce que je voudrais réaliser

Peux tu me dire comment tu fais pour que le texte s'affiche dans la cellule alors qu il n'y a pas de macro d'écrites

et comment réaliser l'user form

merci

polo

Re le forum

Oui, il y a des macros regarde dans ThisWorkBook pour le UserForm et dans la Feuil1 pour la

boîte d'annotation.

Code de la feuille 1

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("B2:H7")) Is Nothing Then
TextBox1.Visible = True
Else
TextBox1.Visible = False
End If
End Sub

Regarde le lien : Un premier formulaire (userform) pas à pas

Mytå

Re Myta

Ok pour les cours pour l user form

Pour la macro ok j ai vu mais ou se trouve l endroit ou l on écrit le texte que l on veut atribuer aux cellules parcourues

ex cellules a1 h50 bonjour

cellules i1 z50 bonne nuit

merci

polo

Re le forum

Active le mode création sur la Feuille 1

Affichage > Barre d'outils > Boite à outlis contrôles

Clique sur la petite équerre, la TextBox va apparaitre.

Pour du texte variable joint un fichier cela va etre plus facile pour t'aider.

Mytå