Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Microsoft 365 Bulle : affichage à droite de la cellule cliquée

Usine à gaz

XLDnaute Barbatruc
Bonjour à toutes et à tous,
Je vous souhaite un beau WE

Je fais appel à nos ténors pour un affichage que je ne sais pas faire.
Est-il possible :

Mes tests et recherches sont infructueuses.
Auriez-vous le bon code ?

Je joins un p'tit fichier test,
Et je continue à chercher.
Un grand merci, encore une fois,
Amicalement,
lionel
 

Pièces jointes

  • bulle_position.xlsm
    20.9 KB · Affichages: 9
Solution
Bonjour Lionel, le forum,

Oui ce n'est pas très facile, il faut repérer l'adresse de la cellule active :
VB: 
Private Sub Worksheet_SelectionChange(ByVal R As Range)
With Shapes("Bulle narrative : rectangle à coins arrondis 1")
    If Intersect(ActiveCell, Range("a2:a6")) Is Nothing Then .Visible = False: Exit Sub
    .Left = ActiveCell.Offset(, 1).Left
    .Top = ActiveCell.Top
    .Visible = CStr([adresse]) <> ActiveCell.Address Or .Visible = False
    ThisWorkbook.Names.Add "adresse", ActiveCell.Address 'repérage
    Application.EnableEvents = False
    [a1].Select
    Application.EnableEvents = True
End With
End Sub
A+
Trier par date Trier par votes
C

Collins

XLDnaute Occasionnel
Bonjour JM27, Usine à gaz, le forum

C'est super toutes ces solutions.
Hier comme je te l'ai dit Lionel j'ai réussi avec cette zone de texte ci-dessous donc je pense textbox comme le dit JM27.

Le seul regret c'est que la textbox s'adapte à la hauteur de la ligne. J'ai bien essayé de faire des modifications dans ses propriétés. Je l'ai bien agrandi en hauteur mais elle revient à la hauteur de la ligne.
Un grand merci à vous.
Bon dimanche
 
Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc
Bjr Collins

Pour modifier la hauteur de la textbox, il te faut activer le mode création dans l'onglet développeur.
Ta textbox va s'ouvrir et en cliquant droit dans ta textbox > "propriétés" tu auras accès aux modifications que tu souhaites faire.
Pour la hauteur de ligne, tu modifies "Height".
Ensuite, tu désactives le mode création et ça roule ...
vois :

Fichier test joint,
@+
lionel
 

Pièces jointes

  • cellule_TextBox_Affiche3_job.xlsm
    24.9 KB · Affichages: 6
Dernière édition:
Vote positif 0 Vote négatif
C

Collins

XLDnaute Occasionnel
Re

Lionel
Heureusement que tu as fais l'ajout dans la macro et me la copier, parce que je ne savais pas ce que voulait dire JM27 par rem.
J'arrive un tout tout petit peu à modifier une formule alors les macros et moi c'est autre chose . chaque jour suffit sa peine.
Merci encore à vous deux.
Bon après-midi
 
Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc
Re-bonjour,

Je souhaite augmenter la taille de la ComboBox.
J'ai tenté :
VB: 
Sub Laurent()
    Dim WS As Worksheet
    Set WS = ActiveSheet
    Dim tbl() As Variant
    tbl = Array("Metropole 33", "988 Nouvelle-Calédonie  687", "987 Polynésie française 689", _
    "974 La Réunion  262", "973 Guyane 594", "972 Martinique 596", "971 Guadeloupe 590", 0) '"",

    ' Les valeurs
    ReDim Preserve tbl(UBound(tbl) - 1)
    ' La Liste Box
    Dim oCombo As OLEObject
    Dim L As Single, T As Single, W As Single, H As Single, Z As Single
    L = ActiveCell.Offset(, 1).Left   '<-- position horizontale
    T = ActiveCell.Top  '<-- position verticale
    W = 202 '<-- largeur
    H = 1 '<-- hauteur
    Z = Zoom = 200
Mais je ne dois pas faire comme il convient lol (tu m'étonnes)
Auriez-vous la solution ?
Encore MERCI,
lionel
 
Vote positif 0 Vote négatif
J

JM27

XLDnaute Barbatruc
bonjour
dans la macro tu mets un rem ou tu supprimes la ligne correspondant au height de la shape ou de la textbox
ensuite pour la shape tu sélectionnes celle ci et tu la mets à la hauteur que tu souhaites
concernant la textbox tu vas dans les propriétés de celle ci et tu modifies la valeur du height
 

Pièces jointes

  • Test text box.xlsm
    20.2 KB · Affichages: 0
  • Test1 shape.xlsm
    24.3 KB · Affichages: 0
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

  • Question
XL 2021 [Résolu] : Désactiver la sélection d'une forme (Rectangle) sur une feuille
Réponses
2
Affichages
335
Zdz16
  • Résolu(e)
XL 2021 copier en B7 la valeur de la cellule active (Cells(ActiveCell.Row, 7)) de la feuille "Appels"
Réponses
12
Affichages
504
Usine à gaz
I
  • Résolu(e)
XL 2021 Compilation données par formules
Réponses
5
Affichages
253
Inri
I
  • Résolu(e)
XL 2021 Cellule vide : sélectionner et atteindre
2
Réponses
15
Affichages
1 K
Usine à gaz
  • Résolu(e)
XL 2021 Est-il possible d'activer ou désactiver un gif en vba ?
2 3
Réponses
39
Affichages
2 K
Dranreb
  • Résolu(e)
Microsoft 365 Coloration de ma bulle
Réponses
2
Affichages
379
Usine à gaz
C
  • Question
XL 2019 Attribuer un % en fonction de la place d'un ingrédient dans la compo de la formule
Réponses
7
Affichages
357
TooFatBoy
  • Résolu(e)
XL 2021 Sélectionner la 1ère cellule après filtrage
Réponses
2
Affichages
469
Usine à gaz
  • Question
XL 2021 Activer classeurs ouverts
2 3
Réponses
38
Affichages
2 K
Usine à gaz
  • Question
XL 2021 Formule compter les cellules vides lusqu'à la dernière ligne NON vide
Réponses
10
Affichages
567
Usine à gaz
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…