Ouvrir fichier en cliquant sur une cellule avec condition

[billouu]

Bonjou,

Je souhaiterai ouvrir un dossier (shell explorer), en cliquant sur une cellule de ma colonne 6 et à condition que cette cellule soit égale à "Oui".
Pour l'ouverture cela est bon, mais je bloque pour écrir ma condition.

Merci par avance,

Billouu

 

[kjin]

Re : Ouvrir fichier en cliquant sur une cellule avec condition

Bonjour,
Dans le module de ta feuille, si ta cellule est B6 par exemple

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$6" And Target = "Oui" Then
'...ta macro
End Sub

A+
kjin

 

[billouu]

Re : Ouvrir fichier en cliquant sur une cellule avec condition

Merci, mais jvoulais que cela fonctionne pour toutes les cellules de la colonne et non que pour la cellule B6

 

[kjin]

Re : Ouvrir fichier en cliquant sur une cellule avec condition

Bonjour,
Alors comme ça

Private Sub Worksheet_SelectionChange(ByVal Target As Range) 'A voir ?!
If Target.count > 1 Then Exit Sub
If Target.Column = 6 And Target = "Oui" Then
'...ta macro
End Sub

A+
kjin

 

[billouu]

Re : Ouvrir fichier en cliquant sur une cellule avec condition

Excelllent c'est parfait.
J'ai une dernière requête maintenant que cela fonctionne, il faudrait seulement que je puisse récupérer le numéro de la ligne de la cellule cible.
J'ai essayer avec:
Target.Cells.Rows.Value = x

Des idées???
Encore merci,

Billouu

 

[billouu]

Re : Ouvrir fichier en cliquant sur une cellule avec condition

Tout est bon Kjin merci encore,
Un simple activecell.row a suffi

Billouu

 

[kjin]

Re : Ouvrir fichier en cliquant sur une cellule avec condition

Re,
Ou

x = Target.Row

A+
kjin