Renvoyer vers une valeur par un clic

[chris6999]

Bonjour,

Cette question est une variante de celle précédemment posée.

Je me demandais comment faire apparaitre une valeur dans une cellule en double cliquant dessus. Il s'agirait de renvoyer vers une valeur saisie dans une cellule de la même colonne (toujours la même)
La difficulté serait de ne faire apparaître qu'une seule valeur par ligne

Exemple je positionne en A1 la valeur 0
en B1 la valeur 3
en C1 la valeur 20
Lorsque je clique sur la cellule A2 la valeur 0 s'affiche. Si je clique sur C2 la valeur 0 dans A2 disparait alors que la valeur 20 s'affiche en C2.

Cette macro devrait fonctionner pour toutes les lignes au dessous de la ligne N°1.

Pensez-vous que ce serait possible?

Merci de m'apporter vos lumières
Cordialement

 

[James007]

Re : Renvoyer vers une valeur par un clic

Je ne suis pas sûr d'avoir bien compris ...

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, _
    Cancel As Boolean)
    With Target
        If .Cells.Count > 1 Then Exit Sub
        If Intersect(.Cells, Me.Range("A:C")) Is Nothing Then Exit Sub
        .Value = Cells(1, .Column)
        Cancel = True
    End With
End Sub

Mais c'est un point de départ ...

 

[Softmama]

Re : Renvoyer vers une valeur par un clic

Bonjour,

Si j'ai bien compris, tu peux placer ça, dans le module de ta feuille :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
[2:65536].ClearContents
[1:1].Copy Destination:=Target.EntireRow
End Sub

 

[Softmama]

Re : Renvoyer vers une valeur par un clic

re,
il me semblait bien ne pas avoir bien compris^^

Essaie ceci sinon :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
cells(Target.row,1).resize(1,3).ClearContents
cells(1,Target.column).Copy Destination:=Target
End Sub

 

[Banzai64]

Re : Renvoyer vers une valeur par un clic

Re

une adaptation du code de Softmama

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  If Target.Column < 4 And Target.Row > 1 Then
    Cells(Target.Row, 1).Resize(1, 3).ClearContents
    Target = Cells(1, Target.Column)
    Cancel = True
  End If
End Sub

 

[chris6999]

Re : Renvoyer vers une valeur par un clic

Merci à tous pour vos propositions, je vais les tester.
Maintenant le problème qui se pose c'est d'enregistrer ces macros sur la feuille active. Ce que je n'arrive plus à faire.
Lorsque j'ouvre la fenêtre de VISUAL BASIC je tombe systématiquement sur la feuille générale. Comment faire pour enregistrer la macro sur la "worksheet"...
C'est sûrement du BABA pour vous mais pour moi c'est un vrai casse tête..
Si quelqu'un peut me guider ce sera avec plaisir

Bonne fin de journée

 

[Banzai64]

Re : Renvoyer vers une valeur par un clic

Re

quand tu ouvres le VBA

DoubleClick sur le nom de la feuille
Et la tu copies la macro

 

[chris6999]

Re : Renvoyer vers une valeur par un clic

Ca y est je me suis enfin dépatouillé avec ma feuille active.

Banzai ta macro fonctionne.
Aurais tu par contre la gentillesse de me commenter les lignes de la macro afin que je puisse l'adapter.

J'ai compris notamment que :
Target = Cells(4, Target.Column) renvoyait vers la ligne où se trouve la valeur de référence

Par contre je m'interroge sur :

If Target.Column < 4 And Target.Row > 1 Then
&
Cells(Target.Row, 1).Resize(1, 3).ClearContents

Si quelqu'un peut m'apporter ses lumières

Bonne soirée à tous

 

[Banzai64]

Re : Renvoyer vers une valeur par un clic

Re

If Target.Column < 4 And Target.Row > 1 Then

Si la colonne du DoubleClick est plus petite que 4 (Cad colonnes 1 à 3) et que la ligne du DoubleClick est après la ligne 1 alors on exécute le code suivant

Cells(Target.Row, 1).Resize(1, 3).ClearContents

Cells(Target.Row, 1) sélectionne la première cellule de la zone concernée (Cad cellule A et ligne du DoubleClick) ensuite Resize(1,3) redimensionne pour englober toute la zone du DoubleClick ClearContents efface la zone

 

[chris6999]

Re : Renvoyer vers une valeur par un clic

Merci à BANZAI et à tous ceux qui m'ont aidé.