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

azerty129

XLDnaute Nouveau
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,
 

Pièces jointes

  • Test Images userform quadrill.xlsm
    29.5 KB · Affichages: 6

sylvanu

XLDnaute Barbatruc
Supporter XLD
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

sylvanu

XLDnaute Barbatruc
Supporter XLD
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

p56

XLDnaute Occasionnel
Bonjour à tous,
Pour des images larges, il faut aussi prévoir si colonne > Z
Demo_Grille_img2.gif

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

Discussions similaires

Réponses
8
Affichages
448

Statistiques des forums

Discussions
311 724
Messages
2 081 937
Membres
101 844
dernier inscrit
pktla