bonjour,
voilà je souhaiterai changer une partie du code ci-dessous pour ne
selectionner qu'une plage de cellule pour laquelle ce code se ferait, par
exemple juste les cellules de A2 à J2
comment inscrire ça?!
Private Sub Worksheet_BeforeDoubleClick(ByVal _
Target As Excel.Range, Cancel As Boolean)
Randomize
ActiveCell = Int(49 * Rnd + 1)
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
JB
Bonjour,
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean) If Not Intersect([a2:J2], Target) Is Nothing Then Randomize ActiveCell = Int(49 * Rnd + 1) Cancel = True End If End Sub
JB
On 16 sep, 12:25, "charlyp" <jean- wrote:
bonjour, voilà je souhaiterai changer une partie du code ci-dessous pour ne selectionner qu'une plage de cellule pour laquelle ce code se ferait, par exemple juste les cellules de A2 à J2 comment inscrire ça?!
Private Sub Worksheet_BeforeDoubleClick(ByVal _ Target As Excel.Range, Cancel As Boolean) Randomize ActiveCell = Int(49 * Rnd + 1) End Sub
merci d'avance CharlyP
Bonjour,
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range,
Cancel As Boolean)
If Not Intersect([a2:J2], Target) Is Nothing Then
Randomize
ActiveCell = Int(49 * Rnd + 1)
Cancel = True
End If
End Sub
JB
On 16 sep, 12:25, "charlyp" <jean-
charles.prudhommeENLEVER...@wanadoo.fr> wrote:
bonjour,
voilà je souhaiterai changer une partie du code ci-dessous pour ne
selectionner qu'une plage de cellule pour laquelle ce code se ferait, par
exemple juste les cellules de A2 à J2
comment inscrire ça?!
Private Sub Worksheet_BeforeDoubleClick(ByVal _
Target As Excel.Range, Cancel As Boolean)
Randomize
ActiveCell = Int(49 * Rnd + 1)
End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean) If Not Intersect([a2:J2], Target) Is Nothing Then Randomize ActiveCell = Int(49 * Rnd + 1) Cancel = True End If End Sub
JB
On 16 sep, 12:25, "charlyp" <jean- wrote:
bonjour, voilà je souhaiterai changer une partie du code ci-dessous pour ne selectionner qu'une plage de cellule pour laquelle ce code se ferait, par exemple juste les cellules de A2 à J2 comment inscrire ça?!
Private Sub Worksheet_BeforeDoubleClick(ByVal _ Target As Excel.Range, Cancel As Boolean) Randomize ActiveCell = Int(49 * Rnd + 1) End Sub
merci d'avance CharlyP
charlyp
merci de la réponse JB? cependant j'ai collé ce code à la place de l'ancien et quand je doubleclic sur une des cellules A2 àJ2 rien ne se passe?!!
"JB" a écrit dans le message de news:
Bonjour,
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean) If Not Intersect([a2:J2], Target) Is Nothing Then Randomize ActiveCell = Int(49 * Rnd + 1) Cancel = True End If End Sub
JB
On 16 sep, 12:25, "charlyp" <jean- wrote:
bonjour, voilà je souhaiterai changer une partie du code ci-dessous pour ne selectionner qu'une plage de cellule pour laquelle ce code se ferait, par exemple juste les cellules de A2 à J2 comment inscrire ça?!
Private Sub Worksheet_BeforeDoubleClick(ByVal _ Target As Excel.Range, Cancel As Boolean) Randomize ActiveCell = Int(49 * Rnd + 1) End Sub
merci d'avance CharlyP
merci de la réponse JB?
cependant j'ai collé ce code à la place de l'ancien et quand je doubleclic
sur une des cellules A2 àJ2 rien ne se passe?!!
"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
1189938896.989795.203930@d55g2000hsg.googlegroups.com...
Bonjour,
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range,
Cancel As Boolean)
If Not Intersect([a2:J2], Target) Is Nothing Then
Randomize
ActiveCell = Int(49 * Rnd + 1)
Cancel = True
End If
End Sub
JB
On 16 sep, 12:25, "charlyp" <jean-
charles.prudhommeENLEVER...@wanadoo.fr> wrote:
bonjour,
voilà je souhaiterai changer une partie du code ci-dessous pour ne
selectionner qu'une plage de cellule pour laquelle ce code se ferait, par
exemple juste les cellules de A2 à J2
comment inscrire ça?!
Private Sub Worksheet_BeforeDoubleClick(ByVal _
Target As Excel.Range, Cancel As Boolean)
Randomize
ActiveCell = Int(49 * Rnd + 1)
End Sub
merci de la réponse JB? cependant j'ai collé ce code à la place de l'ancien et quand je doubleclic sur une des cellules A2 àJ2 rien ne se passe?!!
"JB" a écrit dans le message de news:
Bonjour,
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean) If Not Intersect([a2:J2], Target) Is Nothing Then Randomize ActiveCell = Int(49 * Rnd + 1) Cancel = True End If End Sub
JB
On 16 sep, 12:25, "charlyp" <jean- wrote:
bonjour, voilà je souhaiterai changer une partie du code ci-dessous pour ne selectionner qu'une plage de cellule pour laquelle ce code se ferait, par exemple juste les cellules de A2 à J2 comment inscrire ça?!
Private Sub Worksheet_BeforeDoubleClick(ByVal _ Target As Excel.Range, Cancel As Boolean) Randomize ActiveCell = Int(49 * Rnd + 1) End Sub
merci d'avance CharlyP
JB
http://cjoint.com/?jqogaKWRGg
JB
On 16 sep, 13:15, "charlyp" <jean- wrote:
merci de la réponse JB? cependant j'ai collé ce code à la place de l'ancien et quand je doubl eclic sur une des cellules A2 àJ2 rien ne se passe?!!
"JB" a écrit dans le message de news:
Bonjour,
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean) If Not Intersect([a2:J2], Target) Is Nothing Then Randomize ActiveCell = Int(49 * Rnd + 1) Cancel = True End If End Sub
JB
On 16 sep, 12:25, "charlyp" <jean-
wrote:
bonjour, voilà je souhaiterai changer une partie du code ci-dessous pour ne selectionner qu'une plage de cellule pour laquelle ce code se ferait, p ar exemple juste les cellules de A2 à J2 comment inscrire ça?!
Private Sub Worksheet_BeforeDoubleClick(ByVal _ Target As Excel.Range, Cancel As Boolean) Randomize ActiveCell = Int(49 * Rnd + 1) End Sub
merci d'avance CharlyP- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
http://cjoint.com/?jqogaKWRGg
JB
On 16 sep, 13:15, "charlyp" <jean-
charles.prudhommeENLEVER...@wanadoo.fr> wrote:
merci de la réponse JB?
cependant j'ai collé ce code à la place de l'ancien et quand je doubl eclic
sur une des cellules A2 àJ2 rien ne se passe?!!
"JB" <boisgont...@hotmail.com> a écrit dans le message de news:
1189938896.989795.203...@d55g2000hsg.googlegroups.com...
Bonjour,
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range,
Cancel As Boolean)
If Not Intersect([a2:J2], Target) Is Nothing Then
Randomize
ActiveCell = Int(49 * Rnd + 1)
Cancel = True
End If
End Sub
JB
On 16 sep, 12:25, "charlyp" <jean-
charles.prudhommeENLEVER...@wanadoo.fr> wrote:
bonjour,
voilà je souhaiterai changer une partie du code ci-dessous pour ne
selectionner qu'une plage de cellule pour laquelle ce code se ferait, p ar
exemple juste les cellules de A2 à J2
comment inscrire ça?!
Private Sub Worksheet_BeforeDoubleClick(ByVal _
Target As Excel.Range, Cancel As Boolean)
Randomize
ActiveCell = Int(49 * Rnd + 1)
End Sub
merci d'avance
CharlyP- Masquer le texte des messages précédents -
merci de la réponse JB? cependant j'ai collé ce code à la place de l'ancien et quand je doubl eclic sur une des cellules A2 àJ2 rien ne se passe?!!
"JB" a écrit dans le message de news:
Bonjour,
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean) If Not Intersect([a2:J2], Target) Is Nothing Then Randomize ActiveCell = Int(49 * Rnd + 1) Cancel = True End If End Sub
JB
On 16 sep, 12:25, "charlyp" <jean-
wrote:
bonjour, voilà je souhaiterai changer une partie du code ci-dessous pour ne selectionner qu'une plage de cellule pour laquelle ce code se ferait, p ar exemple juste les cellules de A2 à J2 comment inscrire ça?!
Private Sub Worksheet_BeforeDoubleClick(ByVal _ Target As Excel.Range, Cancel As Boolean) Randomize ActiveCell = Int(49 * Rnd + 1) End Sub
merci d'avance CharlyP- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
charlyp
OK merci JB , maintenant cela fonctionne bien avec la copie du classeur que tu as joins
"JB" a écrit dans le message de news:
http://cjoint.com/?jqogaKWRGg
JB
On 16 sep, 13:15, "charlyp" <jean- wrote:
merci de la réponse JB? cependant j'ai collé ce code à la place de l'ancien et quand je doubleclic sur une des cellules A2 àJ2 rien ne se passe?!!
"JB" a écrit dans le message de news:
Bonjour,
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean) If Not Intersect([a2:J2], Target) Is Nothing Then Randomize ActiveCell = Int(49 * Rnd + 1) Cancel = True End If End Sub
JB
On 16 sep, 12:25, "charlyp" <jean-
wrote:
bonjour, voilà je souhaiterai changer une partie du code ci-dessous pour ne selectionner qu'une plage de cellule pour laquelle ce code se ferait, par exemple juste les cellules de A2 à J2 comment inscrire ça?!
Private Sub Worksheet_BeforeDoubleClick(ByVal _ Target As Excel.Range, Cancel As Boolean) Randomize ActiveCell = Int(49 * Rnd + 1) End Sub
merci d'avance CharlyP- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
OK merci JB , maintenant cela fonctionne bien avec la copie du classeur que
tu as joins
"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
1189944386.939346.149630@y42g2000hsy.googlegroups.com...
http://cjoint.com/?jqogaKWRGg
JB
On 16 sep, 13:15, "charlyp" <jean-
charles.prudhommeENLEVER...@wanadoo.fr> wrote:
merci de la réponse JB?
cependant j'ai collé ce code à la place de l'ancien et quand je doubleclic
sur une des cellules A2 àJ2 rien ne se passe?!!
"JB" <boisgont...@hotmail.com> a écrit dans le message de news:
1189938896.989795.203...@d55g2000hsg.googlegroups.com...
Bonjour,
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range,
Cancel As Boolean)
If Not Intersect([a2:J2], Target) Is Nothing Then
Randomize
ActiveCell = Int(49 * Rnd + 1)
Cancel = True
End If
End Sub
JB
On 16 sep, 12:25, "charlyp" <jean-
charles.prudhommeENLEVER...@wanadoo.fr> wrote:
bonjour,
voilà je souhaiterai changer une partie du code ci-dessous pour ne
selectionner qu'une plage de cellule pour laquelle ce code se ferait,
par
exemple juste les cellules de A2 à J2
comment inscrire ça?!
Private Sub Worksheet_BeforeDoubleClick(ByVal _
Target As Excel.Range, Cancel As Boolean)
Randomize
ActiveCell = Int(49 * Rnd + 1)
End Sub
merci d'avance
CharlyP- Masquer le texte des messages précédents -
OK merci JB , maintenant cela fonctionne bien avec la copie du classeur que tu as joins
"JB" a écrit dans le message de news:
http://cjoint.com/?jqogaKWRGg
JB
On 16 sep, 13:15, "charlyp" <jean- wrote:
merci de la réponse JB? cependant j'ai collé ce code à la place de l'ancien et quand je doubleclic sur une des cellules A2 àJ2 rien ne se passe?!!
"JB" a écrit dans le message de news:
Bonjour,
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean) If Not Intersect([a2:J2], Target) Is Nothing Then Randomize ActiveCell = Int(49 * Rnd + 1) Cancel = True End If End Sub
JB
On 16 sep, 12:25, "charlyp" <jean-
wrote:
bonjour, voilà je souhaiterai changer une partie du code ci-dessous pour ne selectionner qu'une plage de cellule pour laquelle ce code se ferait, par exemple juste les cellules de A2 à J2 comment inscrire ça?!
Private Sub Worksheet_BeforeDoubleClick(ByVal _ Target As Excel.Range, Cancel As Boolean) Randomize ActiveCell = Int(49 * Rnd + 1) End Sub
merci d'avance CharlyP- Masquer le texte des messages précédents -