Clic Cellule=action

[SSP34]

Bonsoir à tous les Xlnautes,

J'aimerais déclencher une macro lorsque une cellule donnée est selectionnée.
(déclencher une boîte de dialogue pour saisir des données)

Je sais qu'un code spécifique est à incérer sur la feuille : quand clic cellule déclenche code ou quelque chose comme çà.

Je sais ... ce n'est pas bien compliqué mais ma culture Xliènne est petite!

Par avance mille mercis!

Pablo.

 

[wilfried_42]

Re : Clic Cellule=action

Salut SPP34

voici le sub qui se déclenche à la selection d'une cellule

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$A$1" Then

traitement à effectuer pour la cellule A1

End If
End Sub

ce code tu l'as au niveau de la feuille

salutations

 

[SSP34]

Re : Clic Cellule=action

Merci Wilfrid cela fonctionne mais ...
j'ai mis
...
If Target.Address = "$B$7" Then
fmRowSource.Show
...

Le problème est que je souhaite déclencher ma boîte de dialogue lorsque je selectionne une cellule quelconque parmi la plage B7:B50

J'ai essayé
If Target.Address = "$B$7:$B$50" Then

Mais cela ne marche pas.

Merci pour ton aide.

Pablo.

 

[MichelXld]

Re : Clic Cellule=action

bonsoir Pablo, bonsoir Wilfried

tu peux tester

If Not Intersect(Target, Range("B7:B50")) Is Nothing Then

Bonne soirée
MichelXld

 

[SSP34]

Re : Clic Cellule=action

Bonsoir Michel, Bonsoir Wilfried,

Impeccable!

Cela marche exactement comme je voulais.
Encore merci.

Pablo.

 

[Phillip]

Re : Clic Cellule=action

Bonjour,

dans le même style, quelle est la syntaxe pour déclencher une action quand la cellule est remplie (non pas cliquée), et ne rien faire tant qu'elle est vide ??


merci

 

[Pierrot93]

Re : Clic Cellule=action

Bonjour Philippe

pour les changements dans les cellules, il faut utiliser l'évènement "change" comme ci dessous :

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Value <> "" Then
        'ton code
    End If
End Sub

bon après midi
@+