Clic Cellule=action

wilfried_42

XLDnaute Barbatruc

• 2 Décembre 2006

• #2

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

Cliquez pour agrandir...

ce code tu l'as au niveau de la feuille

salutations

 

Vote positif 0 Vote négatif

SSP34

XLDnaute Junior

• 2 Décembre 2006

• #3

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.

 

Vote positif 0 Vote négatif

M

MichelXld

XLDnaute Barbatruc

• 2 Décembre 2006

• #4

Re : Clic Cellule=action

bonsoir Pablo, bonsoir Wilfried

tu peux tester

Code:

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

Bonne soirée
MichelXld

 

Vote positif 0 Vote négatif

SSP34

XLDnaute Junior

• 2 Décembre 2006

• #5

Re : Clic Cellule=action

Bonsoir Michel, Bonsoir Wilfried,

Impeccable!

Cela marche exactement comme je voulais.
Encore merci.

Pablo.

 

Vote positif 0 Vote négatif

Phillip

XLDnaute Occasionnel

• 28 Mars 2007

• #6

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 28 Mars 2007

• #7

Re : Clic Cellule=action

Bonjour Philippe

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

Code:

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

bon après midi
@+

 

Vote positif 0 Vote négatif