Discussion :

[rousskoff]

Bonsoir, voici ma question est-il possible avec VBA de sélectionner une cellule avec un seul clic, dans l'exemple C10 et recopier son contenu dans une plage de cellule en cliquant une seule fois sur les cellules composant cette plage.
j’espère avoir était assez clair.
Merci d'avance pour vos réponses.

[Nicopilami]

Bonjour, il suffit de mettre dans le onChange de ta page le code suivant :

Code :

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

1
2
3
4
5
6
7
8
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
    If Target = "" Then
        Target.PasteSpecial xlValue
    Else
        Target.Copy
        End If
    End Sub

Cela te copiera la cellule si la case est déjà remplie, et collera le contenu du presse papier si la case est vide


PS n'oublie pas d'enregistrer ton fichier en xlsm pour activer les macros & evenements comme le SelectionChange


++
Nico

[patricktoulon]

bonjour
un exemple

Code :

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

1
2
3
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Target.Address = "$D$1" Then Range("a1:a20") = Target.value
End Sub

si tu selectionne la d1 toute les cellules de "a1" a "a20" auront la meme valeur

au plaisir