Copier Valeur Cellule selectionné

Bonjour,

J'aimerai copier le contenu d'une cellule présente dans une plage (C1:O23) de cellule dans une autre cellule (CB4) lors ce que je la selectionne.

J'aimerai aussi la colorier en rouge en la sélectionnant mais aussi la recolirier en blanc lors ce que je selectionné un autre cellule (qui elle sera colorier en rouge).

Voici ma macro actuelle. Elle ne fonctionne pas correctement. Je dois faire un double clic puis touche Entré pour que cela fonctionne.

If Not Intersect(Target, [c11:o23]) Is Nothing Then [cb4] = Target.Value 

Pouvez vous m'aider ?

Merci

Bonjour bramavalos,

Ce serait plus facile avec ton fichier.

Néanmoins, je pense qu'il faut changer de procédure worksheet et choisir selectionchange au lieu de doubleclick

Cdt

Hello,

Ci-joint le fichier

Je te remercie

Re,

Tout est juste.

Mais je pense que tu veux la valeur en AB4

Cdt

ok donc le problème vient d'ailleurs;

Je suis toujours obligé de double cliqué sur ma cellule (comme si je voulais modifier le contenu) et appuyer sur Entrée pour voir apparaître le contenu de ma cellule dans AB4.

Une idée? Un réglage dans Option?

En pour colorier ma cellule sélectionnée, peux tu aussi m"aider ? Je ne trouve pas d'exemple pour la colorier puis la de colorier quand j'en sélectionne une autre

Je te remercie

Pas normal !

Si tu entres une nouvelle valeur dans la plage C11:C23 et que tu fasses entrée, tu dois retrouver la valeur de la cellule en AB4.

Va dans fichier/option/formules/mode de calcul et mets en automatique si tu n'y es pas.

cdt

Je suis bien en automatique.

Mais je ne suis pas certain de m'etre bien expliqué.

Je souhaite cliquer simplement sur une cellule (dans ma plage), ce qui la sélectionne et que le contenu de la cellule s'affiche en AB4.

La on est d'accord que quand tu clic simplement sur la cellule pour la sélectionner, rien ne se passe ? c'est bien ca?

Pour que la macro fonctionne il faut faire un double clic puis entré ? C 'est bien ca ?

C'est ce que je te disais au début. Il faut partir sur une selectionchange.

Voici le code et le fichier modifié.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Valeur As String
If Not Intersect(Target, [c11:o23]) Is Nothing Then [AB4] = Target.Value
End Sub

cdt

C'est parfait

Derniere question, je dois faire fonctionne ces deux macro sur la meme page :

Macro 1 :

Sub Worksheet_Change(ByVal Target As Range)
Dim Valeur As String, Plage As Range

    If Not Intersect(Target, Me.Range("$BY$4:$CB$4")) Is Nothing And Target.Count = 1 Then
        Valeur = Me.Range("CC4")
        With [P1.1].ListObject.DataBodyRange
            Set Plage = .Find(Valeur)
             If Not Plage Is Nothing Then Me.[Rounded Rectangle 90].Text = Worksheets("DATA").Range(.Cells(Plage.Row - .Row + 1, 2)).Value
        End With
    End If

end sub

Macro 2 :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Valeur As String
If Not Intersect(Target, [c11:o23]) Is Nothing Then [AB4] = Target.Value
End Sub

Comment puis je faire ?

re,

Normalement elles ne fonctionnent pas sur les mêmes plages de cellules. Ca ne devrait pas poser problème.

Tu dois avoir un tableau dynamique qui s'appelle P1.1

Là ma compétence s'arrête. je ne travaille pas avec les Listobjects. Je le regrette.

Si tu dois relancer un fil, fais apparaitre dans le titre Listobject. Tu as des spécialistes qui devraient répondre.

Bonne suite

Cdt

Ca fonctionne

Je te remercie pour tout