code : selectionner colonne specifique double click cellule userform se lance

carlitostyle

XLDnaute Junior
Bonjour à toute la communauté XLD.

Aujourd'hui j'ai un petit problème dans mon code. J'ai 14 cellule sur la meme ligne. (de A à M).

j'ai le code suivant:
Code:
Public Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 'au double-clic dans une cellule
If Target.Value = "" Then Exit Sub 'si la cellule double-cliquée est vide, sort de la procédure
If Target.Row = 1 Then Exit Sub 'si la ligne de la cellule double-clquée est la ligne 1, sort de la procédure
Cancel = True 'empêche le mode édition 'ié au double-clic
Module11.dblclic 'lance la procédure dblclic du module11
End Sub
Ce dernier me permet que lorsqu'une cellule est rempli lorsque je double click dessus l'userform se lance.

ok, mais je voudrai mettre deux condition supplémentaire et je ne sais pas comment ajotuer ces conditions dans le code :


- Si il y a marqué "OK" dans la colonne L

ET

- Le double click n'est possible SEULEMENT dans la cellule de la colonne L.



Si vous avez une petite piste ça serai super cool :)


Merci et bonne journée :)
 

JNP

XLDnaute Barbatruc
Re : code : selectionner colonne specifique double click cellule userform se lance

Bonjour CarlitoStyle :),
Pas très clair la question :rolleyes:...
A tester
Code:
If Range("L" & Target.Row) = "OK" And Target.Column <> 12 Then
Cancel = True
Exit Sub
End If
Bonne journée :cool:
 

carlitostyle

XLDnaute Junior
Re : code : selectionner colonne specifique double click cellule userform se lance

Bonjour CarlitoStyle :),
Pas très clair la question :rolleyes:...
A tester
Code:
If Range("L" & Target.Row) = "OK" And Target.Column <> 12 Then
Cancel = True
Exit Sub
End If
Bonne journée :cool:

bonjour JNP, j'éssaie avec ton code mais sans réussite. Malgrés que je pense que ton code est trés cohérant avec mes attentes je n'arrive pas a l'inserer correctement.

Le truc c'est que si il fait double click dans une autre colonne que la L. Le module11 ne se lance pas. Ce module est lié a l'ouverture d'un userform.

Et que si il fais dans la colonne L il faut qu'en plus il y est écrit "OK".

Sinon le module11 ne se lance pas.


Qu'est-ce que tu en penses ? merci de te pencher sur mon petit problème.
 

Si...

XLDnaute Barbatruc
Re : code : selectionner colonne specifique double click cellule userform se lance

salut Tous

Si... j'ai compris, essaie
Code:
Public Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Column <> 12 Or Target <> "OK" Then Exit Sub
    Cancel = True
    dblclic
End Sub
 

carlitostyle

XLDnaute Junior
Re : code : selectionner colonne specifique double click cellule userform se lance

salut Tous

Si... j'ai compris, essaie
Code:
Public Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Column <> 12 Or Target <> "OK" Then Exit Sub
    Cancel = True
    dblclic
End Sub

Merci SI ... c'est ce que je cherchais, le code fonctionne très bien. Merci encore et je te souhaite de passer une bonne journée :)

Bye
 

Discussions similaires


Haut Bas