Affichage Celulle

[david45000]

Bonjour à toutes et tous,

J'ai un tableau avec des données et je souhaiterai que ces données soient visibles dans un autre celulle lorsque je clique sur dessus puis comment puis-je faire?

Merci

 

[Papou-net]

Re : Affichage Celulle

Bonjour David45000,

Voici ton fichier complété.

Dans l'événement SelectionChange de ta feuille de calcul, le code fonctionne ainsi :
- On teste si le numéro de ligne de la cellule sélectionnée est divisible par 3 (je suppose que tu ne veux pas afficher les lignes colorées qui elles ne doivent pas changer).
- Si la ligne n'est pas divisible par 3 ( If not ...), alors on affiche la valeur de la cellule sélectionnée dans le cadre, puis on copie le format de la cellule dans le cadre.
- Si la ligne est divisible par 3 (Else), on efface le cadre.
Dis-moi si celà te convient, STP.

Espérant avoir répondu.

Cordialement.

 

[david45000]

Re : Affichage Celulle

Bonjour David45000,

C'est simple à résoudre avec VBA. Sais-tu l'utiliser ?
D'autre part, quelle est la plage de données de ton tableau et dans quelle cellule veux-tu afficher le résultat ?

A te lire.

Cordialement.

Oui, je connais un peu le VBA.

Voici le modèle, es-ce je peux changer à tout moment la cellule que je veux afficher le résultat?

 

[Papou-net]

Re : Affichage Celulle

Bonjour david45000,

J'ai répondu à ton envoi, mais j'ai du faire une fausse manipulation.
Je te renvoie donc ton fichier, les explications sont dans mon précédent message ci-dessus (j'ai cru qu'en le modifiant, il remonterait dans ce topic mais ce n'est pas le cas).

Mille excuses.

Cordialement.

 

[david45000]

Re : Affichage Celulle

Un grand merci, ceci fonction très bien.

Es-ce que je peux faire la même chose pour pouvoir afficher le commentaire?

Merci d'avance.

 

[Papou-net]

Re : Affichage Celulle

Bien sûr,

Modifies ton code comme suit :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("Q46") = ActiveCell
Range("Q46").NumberFormat = ActiveCell.NumberFormat

End Sub

Cordialement.

 

[david45000]

Re : Affichage Celulle

Bien sûr,

Modifies ton code comme suit :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("Q46") = ActiveCell
Range("Q46").NumberFormat = ActiveCell.NumberFormat

End Sub

Cordialement.

Cela ne fonctionne pas!!!

 

[Papou-net]

Re : Affichage Celulle

Bonjour david45000,

Je pense que tu as fait une fausse manip ?

Sur le fichier joint, ça fonctionne, j'ai testé.

Cordialement.

 

[david45000]

Re : Affichage Celulle

Oui, cela fonctionne ou il y a une lettre ou autre chose.

Je voulais savoir si cela est possible de faire la même chose lorsqu'il y un commentaire d'ajouter dans une cellule avec un triangle rouge qui apparaît.

Merci d'avance.

 

[Papou-net]

Re : Affichage Celulle

Oui, c'est possible, la preuve sur le fichier joint.

Cordialement.

 

[david45000]

Re : Affichage Celulle

Merci beaucoup

 

[david45000]

Re : Affichage Celulle

Et, si je veux que le commentaire et le contenu de la cellule s'affiche en même temps comment dois-je faire?

Merci.

 

[Papou-net]

Re : Affichage Celulle

Bonsoir david45000,

Modifies ton code comme celà :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Not ActiveCell.Comment Is Nothing Then
    Range("Q46") = ActiveCell & " - " & ActiveCell.Comment.Text
    Exit Sub
  End If
  Range("Q46") = ActiveCell
  Range("Q46").NumberFormat = ActiveCell.NumberFormat
End Sub

Cordialement.

 

[david45000]

Re : Affichage Celulle

Et encore merci.

 

[david45000]

Re : Affichage Celulle

J'ai un petit soucis sur ce VBA:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not ActiveCell.Comment Is Nothing Then
Range("B50") = ActiveCell.Comment.Text
Exit Sub
End If
Range("B50") = ActiveCell
Range("B50").NumberFormat = ActiveCell.NumberFormat

End Sub

Lors d'un copier/coller d'une cellule avec un commentaire et lorsque je fais coller dans une cellule vide, je ne peux pas la coller.

Comment puis-je faire?