Afficher valeur cellule "jumelle" dans Msgbox

[2susy]

Bonjour à tous et bonne année,

Je cherche qu'en cliquant une fois sur une case, un msgbox s'affiche avec le contenu de la cellule "jumelle" contenue Feuil2.
Je rame un peu pour associer la cellule et également pour que le msgbox affiche le contenu d'une cellule...

merci de votre aide en tout cas !!
Susy

 

[PascalXLD]

Re : Afficher valeur cellule "jumelle" dans Msgbox

Bonjour

un essai sur double-clic comme tu étais parti

 

[2susy]

Re : Afficher valeur cellule "jumelle" dans Msgbox

Merci c'est parfait !!
bonne journée

 

[2susy]

Re : Afficher valeur cellule "jumelle" dans Msgbox

Je rajoute une question à mon sujet :

Comment obtenir le même résultat en remplaçant le msgbox par un Label.caption dans un UserForm?
et récupérer le texte tapé dans un Textbox dans la cellule "jumelle"?
j'ai tenté diverses combinaisons, mais mes connaissances sont trop faibles en vba,
merci d'avance à ceux que ça intéresse!
Susy

 

[PascalXLD]

Re : Afficher valeur cellule "jumelle" dans Msgbox

Re

ton fichier modifié

 

[2susy]

Re : Afficher valeur cellule "jumelle" dans Msgbox

Super ! Merci beaucoup !!

 

[2susy]

Re : Afficher valeur cellule "jumelle" dans Msgbox

Me revoilà, pour la dernière fois sur ce thème, c'est promis !

Je cherche à ce que pour toutes les cases situées feuil1 si la date d'une case correspond à celle d'aujourd'hui, le contenu reprenne celui de la cellule jumelle située Feuil3 ( Cette date est rentrée manuellement).

Encore une fois merci à ceux qui s'intéressent à mon cas et plus spécialement à PascalXLD !!
bon aprem,
Susy

 

[2susy]

Re : Afficher valeur cellule "jumelle" dans Msgbox

C'est bon j'ai trouvé :

For Nol = 1 To 50
    For Noc = 1 To 9
        If Cells(Nol, Noc) = Date Then
        Cells(Nol, Noc) = Sheets("Feuil3").Range(ActiveCell.Address)
        End If
      Next Noc
   Next Nol