Discussion :

[Antisthene]

Bonsoir à tous,

Je suis à la recherche d'une solution à mon "problème" qui je suis certains n'est pas si compliqué. Je manque juste de vocabulaire VBA

Comme mon titre le précise, j'aimerais en cliquant sur une cellule faire en sorte que la valeur de cette cellule soit dupliquée dans une autre cellule. J'ai mis un petit fichier excel avec un exemple pour que ce soit plus parlant.

EXEMPLE.xls/

J'imagine qu'il faut je définisse ma plage de période par exemple de (C4 a C6) que je fasse une condition du style :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
If ActiveCell in Worksheets("F1").Range("C4:C6") then Worksheets("F1").Cells(1,14).value= ActiveCell.Value
Else Worksheets("F1").Cells(1,14).value=Worksheets("F1").Cells(1,14).value

Je ne suis pas certains de la syntaxe, ni d'ailleurs comment le mettre en œuvre (module , fonction ...)

Êtes-vous en mesure de m'aider?

Merci d'avance pour vos contributions,

[casefayere]

Bonsoir,

un exemple à adapter, dans l'évènement "SelectionChange" de la feuille concernée

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 3 And Target.Row > 3 And Target.Row < 7 Then
  Range("A14") = Target.Value
End If
End Sub

[Antisthene]

Bonsoir Dominique,

Je me disais bien que ce n'était pas si compliqué
J'ai testé cette commande "Target" c'est convaincant. Ça fonctionne au delà de mes espérances.
Sinon juste comme ça, croyez-vous qu'en appliquant une méthode avec un activeCell comme je l'ai exposée auparavant le résultat aurais pu être atteint.

En tout cas merci pour votre réactivité et la qualité de votre réponse.

Bonsoir

[casefayere]

tant que j'y suis, ça revient au même en plus simple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("C4:C6")) Is Nothing Then
  Range("A14") = Target.Value
End If
End Sub

Sinon juste comme ça, croyez-vous qu'en appliquant une méthode avec un activeCell comme je l'ai exposée auparavant le résultat aurais pu être atteint.

trop confus pour moi