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

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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

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

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 =>
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
XL 2013 VBA Excel
Réponses
2
Affichages
575
  • Question Question
Microsoft 365 Contrôle sur date
Réponses
8
Affichages
89
Retour