bonjour, j'ai ce code dans une feuille :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel
As Boolean)
If Not Intersect([a2:e2], Target) Is Nothing Then
Randomize
ActiveCell = Int(50 * Rnd + 1)
Cancel = True
End If
End Sub
qui me permet d'obtenir des numéro aléatoire allant de 1 à 50 dans chaque
cellule A2, B2,C2,D2,E2.
Maintenant EN PLUS de ça, dans la meme feuille je souhaiterai quand je
double clic dans la cellule F2 Ou G2, cela me donne un numéro aléatoire
allant de 1 à 9
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 CharlyP,
Private Sub Worksheet_BeforeDoubleClick(ByVal _ Target As Excel.Range, Cancel As Boolean)
Randomize If Not Intersect([a2:e2], Target) Is Nothing Then Target = Int(50 * Rnd + 1) Cancel = True End If Select case target.address Case "$F$2","$G$2 Target = Int(9 * Rnd + 1) Cancel = True End select End Sub
'lSteph
bonjour, j'ai ce code dans une feuille : Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean) If Not Intersect([a2:e2], Target) Is Nothing Then Randomize ActiveCell = Int(50 * Rnd + 1) Cancel = True End If End Sub
qui me permet d'obtenir des numéro aléatoire allant de 1 à 50 dans chaque cellule A2, B2,C2,D2,E2. Maintenant EN PLUS de ça, dans la meme feuille je souhaiterai quand je double clic dans la cellule F2 Ou G2, cela me donne un numéro aléatoire allant de 1 à 9
merci d'avance CHARLYP
Bonjour CharlyP,
Private Sub Worksheet_BeforeDoubleClick(ByVal _
Target As Excel.Range, Cancel As Boolean)
Randomize
If Not Intersect([a2:e2], Target) Is Nothing Then
Target = Int(50 * Rnd + 1)
Cancel = True
End If
Select case target.address
Case "$F$2","$G$2
Target = Int(9 * Rnd + 1)
Cancel = True
End select
End Sub
'lSteph
bonjour, j'ai ce code dans une feuille :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel
As Boolean)
If Not Intersect([a2:e2], Target) Is Nothing Then
Randomize
ActiveCell = Int(50 * Rnd + 1)
Cancel = True
End If
End Sub
qui me permet d'obtenir des numéro aléatoire allant de 1 à 50 dans chaque
cellule A2, B2,C2,D2,E2.
Maintenant EN PLUS de ça, dans la meme feuille je souhaiterai quand je
double clic dans la cellule F2 Ou G2, cela me donne un numéro aléatoire
allant de 1 à 9
Private Sub Worksheet_BeforeDoubleClick(ByVal _ Target As Excel.Range, Cancel As Boolean)
Randomize If Not Intersect([a2:e2], Target) Is Nothing Then Target = Int(50 * Rnd + 1) Cancel = True End If Select case target.address Case "$F$2","$G$2 Target = Int(9 * Rnd + 1) Cancel = True End select End Sub
'lSteph
bonjour, j'ai ce code dans une feuille : Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean) If Not Intersect([a2:e2], Target) Is Nothing Then Randomize ActiveCell = Int(50 * Rnd + 1) Cancel = True End If End Sub
qui me permet d'obtenir des numéro aléatoire allant de 1 à 50 dans chaque cellule A2, B2,C2,D2,E2. Maintenant EN PLUS de ça, dans la meme feuille je souhaiterai quand je double clic dans la cellule F2 Ou G2, cela me donne un numéro aléatoire allant de 1 à 9
merci d'avance CHARLYP
charlyp
Merci L.STEPH, cependant je souhaiterai aussi :), que si un numéro par exemple trois est sorti dans la cellule F2, et bien il ne puisse pas sortir en G2 CHARLYP
"LSteph" a écrit dans le message de news: uNsxuVI%
Bonjour CharlyP,
Private Sub Worksheet_BeforeDoubleClick(ByVal _ Target As Excel.Range, Cancel As Boolean)
Randomize If Not Intersect([a2:e2], Target) Is Nothing Then Target = Int(50 * Rnd + 1) Cancel = True End If Select case target.address Case "$F$2","$G$2 Target = Int(9 * Rnd + 1) Cancel = True End select End Sub
'lSteph
bonjour, j'ai ce code dans une feuille : Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean) If Not Intersect([a2:e2], Target) Is Nothing Then Randomize ActiveCell = Int(50 * Rnd + 1) Cancel = True End If End Sub
qui me permet d'obtenir des numéro aléatoire allant de 1 à 50 dans chaque cellule A2, B2,C2,D2,E2. Maintenant EN PLUS de ça, dans la meme feuille je souhaiterai quand je double clic dans la cellule F2 Ou G2, cela me donne un numéro aléatoire allant de 1 à 9
merci d'avance CHARLYP
Merci L.STEPH, cependant je souhaiterai aussi :), que si un numéro par
exemple trois est sorti dans la cellule F2, et bien il ne puisse pas sortir
en G2
CHARLYP
"LSteph" <lecocosteph@frite.fr> a écrit dans le message de news:
uNsxuVI%23HHA.464@TK2MSFTNGP02.phx.gbl...
Bonjour CharlyP,
Private Sub Worksheet_BeforeDoubleClick(ByVal _
Target As Excel.Range, Cancel As Boolean)
Randomize
If Not Intersect([a2:e2], Target) Is Nothing Then
Target = Int(50 * Rnd + 1)
Cancel = True
End If
Select case target.address
Case "$F$2","$G$2
Target = Int(9 * Rnd + 1)
Cancel = True
End select
End Sub
'lSteph
bonjour, j'ai ce code dans une feuille :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range,
Cancel As Boolean)
If Not Intersect([a2:e2], Target) Is Nothing Then
Randomize
ActiveCell = Int(50 * Rnd + 1)
Cancel = True
End If
End Sub
qui me permet d'obtenir des numéro aléatoire allant de 1 à 50 dans chaque
cellule A2, B2,C2,D2,E2.
Maintenant EN PLUS de ça, dans la meme feuille je souhaiterai quand je
double clic dans la cellule F2 Ou G2, cela me donne un numéro aléatoire
allant de 1 à 9
Merci L.STEPH, cependant je souhaiterai aussi :), que si un numéro par exemple trois est sorti dans la cellule F2, et bien il ne puisse pas sortir en G2 CHARLYP
"LSteph" a écrit dans le message de news: uNsxuVI%
Bonjour CharlyP,
Private Sub Worksheet_BeforeDoubleClick(ByVal _ Target As Excel.Range, Cancel As Boolean)
Randomize If Not Intersect([a2:e2], Target) Is Nothing Then Target = Int(50 * Rnd + 1) Cancel = True End If Select case target.address Case "$F$2","$G$2 Target = Int(9 * Rnd + 1) Cancel = True End select End Sub
'lSteph
bonjour, j'ai ce code dans une feuille : Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean) If Not Intersect([a2:e2], Target) Is Nothing Then Randomize ActiveCell = Int(50 * Rnd + 1) Cancel = True End If End Sub
qui me permet d'obtenir des numéro aléatoire allant de 1 à 50 dans chaque cellule A2, B2,C2,D2,E2. Maintenant EN PLUS de ça, dans la meme feuille je souhaiterai quand je double clic dans la cellule F2 Ou G2, cela me donne un numéro aléatoire allant de 1 à 9
merci d'avance CHARLYP
LSteph
Private Sub Worksheet_BeforeDoubleClick(ByVal _ Target As Excel.Range, Cancel As Boolean)
Randomize If Not Intersect([a2:e2], Target) Is Nothing Then Target = Int(50 * Rnd + 1) Cancel = True End If Select Case Target.Address Case "$F$2", "$G$2" Do Target = Int(9 * Rnd + 1) Loop While [F2] = [G2] Cancel = True End Select End Sub
'lSteph
Merci L.STEPH, cependant je souhaiterai aussi :), que si un numéro par exemple trois est sorti dans la cellule F2, et bien il ne puisse pas sortir en G2 CHARLYP
Private Sub Worksheet_BeforeDoubleClick(ByVal _
Target As Excel.Range, Cancel As Boolean)
Randomize
If Not Intersect([a2:e2], Target) Is Nothing Then
Target = Int(50 * Rnd + 1)
Cancel = True
End If
Select Case Target.Address
Case "$F$2", "$G$2"
Do
Target = Int(9 * Rnd + 1)
Loop While [F2] = [G2]
Cancel = True
End Select
End Sub
'lSteph
Merci L.STEPH, cependant je souhaiterai aussi :), que si un numéro par
exemple trois est sorti dans la cellule F2, et bien il ne puisse pas sortir
en G2
CHARLYP
Private Sub Worksheet_BeforeDoubleClick(ByVal _ Target As Excel.Range, Cancel As Boolean)
Randomize If Not Intersect([a2:e2], Target) Is Nothing Then Target = Int(50 * Rnd + 1) Cancel = True End If Select Case Target.Address Case "$F$2", "$G$2" Do Target = Int(9 * Rnd + 1) Loop While [F2] = [G2] Cancel = True End Select End Sub
'lSteph
Merci L.STEPH, cependant je souhaiterai aussi :), que si un numéro par exemple trois est sorti dans la cellule F2, et bien il ne puisse pas sortir en G2 CHARLYP
charlyp
Merci beaucoup bonne soirée
"LSteph" a écrit dans le message de news: O$rCynI%
Private Sub Worksheet_BeforeDoubleClick(ByVal _ Target As Excel.Range, Cancel As Boolean)
Randomize If Not Intersect([a2:e2], Target) Is Nothing Then Target = Int(50 * Rnd + 1) Cancel = True End If Select Case Target.Address Case "$F$2", "$G$2" Do Target = Int(9 * Rnd + 1) Loop While [F2] = [G2] Cancel = True End Select End Sub
'lSteph
Merci L.STEPH, cependant je souhaiterai aussi :), que si un numéro par exemple trois est sorti dans la cellule F2, et bien il ne puisse pas sortir en G2 CHARLYP
Merci beaucoup
bonne soirée
"LSteph" <lecocosteph@frite.fr> a écrit dans le message de news:
O$rCynI%23HHA.2140@TK2MSFTNGP06.phx.gbl...
Private Sub Worksheet_BeforeDoubleClick(ByVal _
Target As Excel.Range, Cancel As Boolean)
Randomize
If Not Intersect([a2:e2], Target) Is Nothing Then
Target = Int(50 * Rnd + 1)
Cancel = True
End If
Select Case Target.Address
Case "$F$2", "$G$2"
Do
Target = Int(9 * Rnd + 1)
Loop While [F2] = [G2]
Cancel = True
End Select
End Sub
'lSteph
Merci L.STEPH, cependant je souhaiterai aussi :), que si un numéro par
exemple trois est sorti dans la cellule F2, et bien il ne puisse pas
sortir en G2
CHARLYP
"LSteph" a écrit dans le message de news: O$rCynI%
Private Sub Worksheet_BeforeDoubleClick(ByVal _ Target As Excel.Range, Cancel As Boolean)
Randomize If Not Intersect([a2:e2], Target) Is Nothing Then Target = Int(50 * Rnd + 1) Cancel = True End If Select Case Target.Address Case "$F$2", "$G$2" Do Target = Int(9 * Rnd + 1) Loop While [F2] = [G2] Cancel = True End Select End Sub
'lSteph
Merci L.STEPH, cependant je souhaiterai aussi :), que si un numéro par exemple trois est sorti dans la cellule F2, et bien il ne puisse pas sortir en G2 CHARLYP