XL 2013 Afficher le Résultat d'un Msgbox dans Textbox

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 7 Novembre 2022

• #2

Bonjour Azerty,
Un essai en PJ avec deux variables publiques et la modif de code :

VB:

    With ActiveSheet.Shapes(Application.Caller)
        S = Split(.AlternativeText, "|")
        Ligne = S(2)
        Colonne = Chr(CInt(S(1)) + 65)
        [G1] = Colonne & " " & Ligne      ' Affichage pour essai des coordonnées
        'MsgBox "Clic sur la case ligne " & S(2) & " colonne " & S(1), , S(0)
    End With

Le Msgbox est mis en commentaire, les coordonnées sont affichées en G1.
Et pour l'userform :

Code:

Sub LanceUserform()
    UserForm1.TextBox1 = "Ligne : " & Ligne & vbCrLf & "Colonne : " & Colonne
    UserForm1.Show
End Sub

 

Pièces jointes

• Test Images userform quadrill.xlsm

  30 KB · Affichages: 1

Vote positif 0 Vote négatif

A

azerty129

XLDnaute Nouveau

• 7 Novembre 2022

• #3

Merci beaucoup sylvanu c'est ce que je voulais.
Est-il possible (avec userform) ouvert) que les lignes du textbox change en même temps que je clique sur une autre case ?

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 7 Novembre 2022

• #4

Il suffit de rendre non modal l'userform avec :

VB:

Sub LanceUserform()
    UserForm1.TextBox1 = "Ligne     : " & Ligne & vbCrLf & "Colonne : " & Colonne
    UserForm1.Show 0  ' Affichage userform non modal
    UserForm1.Move 550, 300
End Sub

 

Pièces jointes

• Test Images userform quadrill V2.xlsm

  28.8 KB · Affichages: 4

Vote positif 0 Vote négatif

A

azerty129

XLDnaute Nouveau

• 7 Novembre 2022

• #5

Super Merci beaucoup c'est génial

 

Vote positif 0 Vote négatif

A

azerty129

XLDnaute Nouveau

• 7 Novembre 2022

• #6

RE, j'ai remarqué que les colonnes commencé par B quel ligne de code faut-il modifier pour commencer par A.
Merci d'avance,
Cordialement,

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 7 Novembre 2022

• #7

Oups !

VB:

Colonne = Chr(CInt(S(1)) + 64)

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 7 Novembre 2022

• #8

Avec la PJ.

 

Pièces jointes

• Test Images userform quadrill V3.xlsm

  28.9 KB · Affichages: 4

Vote positif 0 Vote négatif

A

azerty129

XLDnaute Nouveau

• 8 Novembre 2022

• #9

Merci beaucoup pour votre aide

 

Vote positif 0 Vote négatif

p56

XLDnaute Occasionnel

• 8 Novembre 2022

• #10

Bonjour à tous,
Pour des images larges, il faut aussi prévoir si colonne > Z

Il est préférable d'utiliser celle proposée ici =>

XL 2013 - Diviser une image dans plusieurs cellule et interagir avec celle-ci

Bonjour, Je viens vers vous pour savoir si il était possible d'insérer une image cardier comme par exemple : Et que chaque case correspond à une cellule. pour ensuite interagir avec c'est à dire si je clique sur Z45 Il me mets FRANCE (peut être dans un userform?) Donc est-il possible de faire...

excel-downloads.com

 

Vote positif 0 Vote négatif