Bonjour,Ja'i trouvé un code aui permet de saisr " OK" en double cliquant sur
une cellule.
Ce code est écrit pour que cette action se situe dans les cellules [B2:B10].
moi je souhaite l'appliquer sur une zone nommée "zaza".
Comment doit être ecrit le code.
D'avance merci pour votre aide.
Georges
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
If Not Intersect([B2:B10], Target) Is Nothing Then Target.Value =
IIf(Target.Value = "", "ok", "")
Cancel = True
End Sub
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
LSteph
Bonjour,
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, _ Cancel As Boolean) If Not Intersect([zaza], Target) Is Nothing Then Target.Value = IIf(Target.Value = "", "ok", "") Cancel = True End If End Sub
'lSteph
Georges a écrit :
Bonjour,Ja'i trouvé un code aui permet de saisr " OK" en double cliquant sur une cellule. Ce code est écrit pour que cette action se situe dans les cellules [B2:B10]. moi je souhaite l'appliquer sur une zone nommée "zaza". Comment doit être ecrit le code. D'avance merci pour votre aide. Georges
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Not Intersect([B2:B10], Target) Is Nothing Then Target.Value = IIf(Target.Value = "", "ok", "") Cancel = True End Sub
Bonjour,
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, _
Cancel As Boolean)
If Not Intersect([zaza], Target) Is Nothing Then
Target.Value = IIf(Target.Value = "", "ok", "")
Cancel = True
End If
End Sub
'lSteph
Georges a écrit :
Bonjour,Ja'i trouvé un code aui permet de saisr " OK" en double cliquant sur
une cellule.
Ce code est écrit pour que cette action se situe dans les cellules [B2:B10].
moi je souhaite l'appliquer sur une zone nommée "zaza".
Comment doit être ecrit le code.
D'avance merci pour votre aide.
Georges
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
If Not Intersect([B2:B10], Target) Is Nothing Then Target.Value =
IIf(Target.Value = "", "ok", "")
Cancel = True
End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, _ Cancel As Boolean) If Not Intersect([zaza], Target) Is Nothing Then Target.Value = IIf(Target.Value = "", "ok", "") Cancel = True End If End Sub
'lSteph
Georges a écrit :
Bonjour,Ja'i trouvé un code aui permet de saisr " OK" en double cliquant sur une cellule. Ce code est écrit pour que cette action se situe dans les cellules [B2:B10]. moi je souhaite l'appliquer sur une zone nommée "zaza". Comment doit être ecrit le code. D'avance merci pour votre aide. Georges
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Not Intersect([B2:B10], Target) Is Nothing Then Target.Value = IIf(Target.Value = "", "ok", "") Cancel = True End Sub
Philippe.R
Bonjour, Il suffira de remplacer B2:B10 par zaza dans le code cité. -- Avec plaisir http://dj.joss.free.fr/trombine.htm http://jacxl.free.fr/mpfe/trombino.html Philippe.R Pour se connecter au forum : http://www.excelabo.net/mpfe/connexion.php News://news.microsoft.com/microsoft.public.fr.excel "Georges" a écrit dans le message de news:
Bonjour,Ja'i trouvé un code aui permet de saisr " OK" en double cliquant sur une cellule. Ce code est écrit pour que cette action se situe dans les cellules [B2:B10]. moi je souhaite l'appliquer sur une zone nommée "zaza". Comment doit être ecrit le code. D'avance merci pour votre aide. Georges
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Not Intersect([B2:B10], Target) Is Nothing Then Target.Value > IIf(Target.Value = "", "ok", "") Cancel = True End Sub
Bonjour,
Il suffira de remplacer B2:B10 par zaza dans le code cité.
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"Georges" <Georges@discussions.microsoft.com> a écrit dans le message de
news:690C6CD5-39F6-40EE-A647-3BB09C1C898B@microsoft.com...
Bonjour,Ja'i trouvé un code aui permet de saisr " OK" en double cliquant
sur
une cellule.
Ce code est écrit pour que cette action se situe dans les cellules
[B2:B10].
moi je souhaite l'appliquer sur une zone nommée "zaza".
Comment doit être ecrit le code.
D'avance merci pour votre aide.
Georges
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
If Not Intersect([B2:B10], Target) Is Nothing Then Target.Value > IIf(Target.Value = "", "ok", "")
Cancel = True
End Sub
Bonjour, Il suffira de remplacer B2:B10 par zaza dans le code cité. -- Avec plaisir http://dj.joss.free.fr/trombine.htm http://jacxl.free.fr/mpfe/trombino.html Philippe.R Pour se connecter au forum : http://www.excelabo.net/mpfe/connexion.php News://news.microsoft.com/microsoft.public.fr.excel "Georges" a écrit dans le message de news:
Bonjour,Ja'i trouvé un code aui permet de saisr " OK" en double cliquant sur une cellule. Ce code est écrit pour que cette action se situe dans les cellules [B2:B10]. moi je souhaite l'appliquer sur une zone nommée "zaza". Comment doit être ecrit le code. D'avance merci pour votre aide. Georges
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Not Intersect([B2:B10], Target) Is Nothing Then Target.Value > IIf(Target.Value = "", "ok", "") Cancel = True End Sub
Georges
Bonjour et merci vous deux pour vos réponses rapides et efficaces. Bonne journée Georges
"Philippe.R" a écrit :
Bonjour, Il suffira de remplacer B2:B10 par zaza dans le code cité. -- Avec plaisir http://dj.joss.free.fr/trombine.htm http://jacxl.free.fr/mpfe/trombino.html Philippe.R Pour se connecter au forum : http://www.excelabo.net/mpfe/connexion.php News://news.microsoft.com/microsoft.public.fr.excel "Georges" a écrit dans le message de news: > Bonjour,Ja'i trouvé un code aui permet de saisr " OK" en double cliquant > sur > une cellule. > Ce code est écrit pour que cette action se situe dans les cellules > [B2:B10]. > moi je souhaite l'appliquer sur une zone nommée "zaza". > Comment doit être ecrit le code. > D'avance merci pour votre aide. > Georges > > > Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As > Boolean) > If Not Intersect([B2:B10], Target) Is Nothing Then Target.Value > > IIf(Target.Value = "", "ok", "") > Cancel = True > End Sub
Bonjour et merci vous deux pour vos réponses rapides et efficaces.
Bonne journée
Georges
"Philippe.R" a écrit :
Bonjour,
Il suffira de remplacer B2:B10 par zaza dans le code cité.
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"Georges" <Georges@discussions.microsoft.com> a écrit dans le message de
news:690C6CD5-39F6-40EE-A647-3BB09C1C898B@microsoft.com...
> Bonjour,Ja'i trouvé un code aui permet de saisr " OK" en double cliquant
> sur
> une cellule.
> Ce code est écrit pour que cette action se situe dans les cellules
> [B2:B10].
> moi je souhaite l'appliquer sur une zone nommée "zaza".
> Comment doit être ecrit le code.
> D'avance merci pour votre aide.
> Georges
>
>
> Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
> Boolean)
> If Not Intersect([B2:B10], Target) Is Nothing Then Target.Value > > IIf(Target.Value = "", "ok", "")
> Cancel = True
> End Sub
Bonjour et merci vous deux pour vos réponses rapides et efficaces. Bonne journée Georges
"Philippe.R" a écrit :
Bonjour, Il suffira de remplacer B2:B10 par zaza dans le code cité. -- Avec plaisir http://dj.joss.free.fr/trombine.htm http://jacxl.free.fr/mpfe/trombino.html Philippe.R Pour se connecter au forum : http://www.excelabo.net/mpfe/connexion.php News://news.microsoft.com/microsoft.public.fr.excel "Georges" a écrit dans le message de news: > Bonjour,Ja'i trouvé un code aui permet de saisr " OK" en double cliquant > sur > une cellule. > Ce code est écrit pour que cette action se situe dans les cellules > [B2:B10]. > moi je souhaite l'appliquer sur une zone nommée "zaza". > Comment doit être ecrit le code. > D'avance merci pour votre aide. > Georges > > > Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As > Boolean) > If Not Intersect([B2:B10], Target) Is Nothing Then Target.Value > > IIf(Target.Value = "", "ok", "") > Cancel = True > End Sub