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

[azerty129]

Bonjour,
Est-il possible d'afficher le résultat d'un Msgbox dans Textbox et de changer le nombre de "colonne" par les lettres de l'alphabet ?
par exemple 1=A 2=B, etc...
je mes ci-joint le fichier.
Merci par avance de votre aide
Cordialement,

 

[sylvanu]

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

    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 :

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

 

[azerty129]

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 ?

 

[sylvanu]

Il suffit de rendre non modal l'userform avec :

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

 

[azerty129]

Super Merci beaucoup c'est génial

 

[azerty129]

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,

 

[sylvanu]

Oups !

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

 

[sylvanu]

Avec la PJ.

 

[azerty129]

Merci beaucoup pour votre aide

 

[p56]

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