XL 2019 Cellule selectionnée affiche MsgBox avec le contenu d'une autre cellule

[pat66]

Bonjour Le fourm

Est t'il possible qu'en sélectionnant une cellule dans la colonne BH (ex BH4), un message s'affiche en m'indiquant le contenu de la colonne CC (ex CC4) qui représente un plafond

je vous remercie pour votre aide

Patrick66

 

[M12]

Bonjour
Un test

 

[pat66]

Bonjour,

et merci pour votre aide
c'est presque cà sauf que cela fonctionne pour n'importe quelle cellule sélectionnée sur la ligne, hors je souhaiterai que cela le fasse uniquement sur les cellules de la colonne BH
BH4 MsgBox = contenu CC4
BH5 MsgBox = contenu CC5
BH6 MsgBox = contenu CC6
etc

merci

 

[pat66]

Bonjour le forum

dois je comprendre que cela n'est pas possible ?

merci

 

[M12]

Re

 

[pat66]

Bonjour

c'est exactement ce que je souhaitais

un grand merci

 

[Staple1600]

Bonjour le fil

J'ai pondu donc je poste 😉

Private Sub Worksheet_SelectionChange(ByVal T As Range)
If Not Intersect(T, Columns(60)) Is Nothing Then
If T.Count > 1 Then Exit Sub
If Len(T) Then
MsgBox T(, 22), vbInformation, "Valeur de la cellule: " & T(, 22).Address(0, 0)
End If
End If
End Sub

NB: C'est doute plus ou moins la même approche que M12 (que je salue au passage)
Mais comme je n'ai pas ouvert les PJ, je ne peux le dire 😉
(j'étais en plein petit déj)

 

[pat66]

Bien le bonjour Staple
Bonjour M12

juste pour info

La macro de M12 à l'avantage de m'indiquer le résultat simplement en la sélectionnant même si elle est vide, tandis que la tienne Staple si la cellule sélectionnée est vide ,elle ne m'indique rien

en tout cas un grand merci

Pat66

 

[Staple1600]

Re

Qu'a cela ne tienne, mon ami!

Private Sub Worksheet_SelectionChange(ByVal T As Range)
If Not Intersect(T, Columns(60)) Is Nothing Then
If T.Count > 1 Then Exit Sub
MsgBox T(, 22), vbInformation, "Valeur de la cellule: " & T(, 22).Address(0, 0)
End If
End Sub

Le vide n'est plus un problème désormais 😉

NB: Je te laisse trouver ce qui a changé entre ma première macro et la seconde 😉

 

[pat66]

Merci Staple

Toujours aussi efficace, impeccable même résultat que M12 avec en plus le nom de la cellule référente
J'ai buché 😉
La différence c'est If Len(T) Then =
Len qui renvoie le nombre de caractères d’une chaîne ou le nombre d’octets requis pour stocker une variable.
Donc en supprimant If Len(T) Then = , qu'elle soit vide ou remplie le résultat s'affiche quand même

j'en apprends tous les jours mais plus le temps passe et plus je sais que je n'en sais pas assez

bon dimanche à tous