Bonjour a tous
Comment faire une Macro qui me donne un résultat de 7 chiffres de 1 a 50
A partir de ma base de données ? ( e3:e199 )
dans 7 cellules différentes.
Merci
Jimmy
Salut, Peut être ai-je mal compris, en tout cas voici de quoi commencer attention j'utilise la colonne A donc 2 rectifs à faire selon colonne Youky
Dim deja(200) As Boolean Randomize [A:A].ClearContents 'efface lig = 1 For k = 1 To 7 Do n = Int((196 * Rnd) + 3) If deja(n) = False Then Cells(lig, 1) = Cells(n, 5) '1 étant col A deja(n) = True: lig = lig + 1 Exit Do End If Loop Next
"Jimy" a écrit dans le message de news:
Bonjour a tous Comment faire une Macro qui me donne un résultat de 7 chiffres de 1 a 50 A partir de ma base de données ? ( e3:e199 ) dans 7 cellules différentes. Merci Jimmy
Salut,
Peut être ai-je mal compris, en tout cas voici de quoi commencer
attention j'utilise la colonne A donc 2 rectifs à faire selon colonne
Youky
Dim deja(200) As Boolean
Randomize
[A:A].ClearContents 'efface
lig = 1
For k = 1 To 7
Do
n = Int((196 * Rnd) + 3)
If deja(n) = False Then
Cells(lig, 1) = Cells(n, 5) '1 étant col A
deja(n) = True: lig = lig + 1
Exit Do
End If
Loop
Next
"Jimy" <outatime6@hotmail.comnospam> a écrit dans le message de news:
OdVvSowMIHA.2376@TK2MSFTNGP02.phx.gbl...
Bonjour a tous
Comment faire une Macro qui me donne un résultat de 7 chiffres de 1 a 50
A partir de ma base de données ? ( e3:e199 )
dans 7 cellules différentes.
Merci
Jimmy
Salut, Peut être ai-je mal compris, en tout cas voici de quoi commencer attention j'utilise la colonne A donc 2 rectifs à faire selon colonne Youky
Dim deja(200) As Boolean Randomize [A:A].ClearContents 'efface lig = 1 For k = 1 To 7 Do n = Int((196 * Rnd) + 3) If deja(n) = False Then Cells(lig, 1) = Cells(n, 5) '1 étant col A deja(n) = True: lig = lig + 1 Exit Do End If Loop Next
"Jimy" a écrit dans le message de news:
Bonjour a tous Comment faire une Macro qui me donne un résultat de 7 chiffres de 1 a 50 A partir de ma base de données ? ( e3:e199 ) dans 7 cellules différentes. Merci Jimmy
Ellimac
Bonjour,
Un début de solution. Les macros suivantes renvoient en M1:M7 une plage de valeurs entre 1 et 50.
Sub Aléa() Dim toto As Variant For cpt = 1 To 7 Range("m1").Offset(cpt - 1).Select retour: Action Range("f1") = Application.CountIf(Range(Range("m1"), ActiveCell), ActiveCell) While Range("f1") > 1 GoTo retour Wend Next Application.CutCopyMode = False End Sub
Sub Action() ActiveCell = "=ALEA.ENTRE.BORNES(1,50)" ActiveCell.Copy ActiveCell.PasteSpecial xlPasteValues End Sub
Camille
Bonjour a tous Comment faire une Macro qui me donne un résultat de 7 chiffres de 1 a 50 A partir de ma base de données ? ( e3:e199 ) dans 7 cellules différentes. Merci Jimmy
Bonjour,
Un début de solution. Les macros suivantes renvoient en M1:M7 une plage de
valeurs entre 1 et 50.
Sub Aléa()
Dim toto As Variant
For cpt = 1 To 7
Range("m1").Offset(cpt - 1).Select
retour: Action
Range("f1") = Application.CountIf(Range(Range("m1"), ActiveCell),
ActiveCell)
While Range("f1") > 1
GoTo retour
Wend
Next
Application.CutCopyMode = False
End Sub
Sub Action()
ActiveCell = "=ALEA.ENTRE.BORNES(1,50)"
ActiveCell.Copy
ActiveCell.PasteSpecial xlPasteValues
End Sub
Camille
Bonjour a tous
Comment faire une Macro qui me donne un résultat de 7 chiffres de 1 a 50
A partir de ma base de données ? ( e3:e199 )
dans 7 cellules différentes.
Merci
Jimmy
Un début de solution. Les macros suivantes renvoient en M1:M7 une plage de valeurs entre 1 et 50.
Sub Aléa() Dim toto As Variant For cpt = 1 To 7 Range("m1").Offset(cpt - 1).Select retour: Action Range("f1") = Application.CountIf(Range(Range("m1"), ActiveCell), ActiveCell) While Range("f1") > 1 GoTo retour Wend Next Application.CutCopyMode = False End Sub
Sub Action() ActiveCell = "=ALEA.ENTRE.BORNES(1,50)" ActiveCell.Copy ActiveCell.PasteSpecial xlPasteValues End Sub
Camille
Bonjour a tous Comment faire une Macro qui me donne un résultat de 7 chiffres de 1 a 50 A partir de ma base de données ? ( e3:e199 ) dans 7 cellules différentes. Merci Jimmy
Jimy
Merci Camille :) Je vais essayer tout de suite.... Bye Jimmy "Ellimac" a écrit dans le message de news:
Bonjour,
Un début de solution. Les macros suivantes renvoient en M1:M7 une plage de valeurs entre 1 et 50.
Sub Aléa() Dim toto As Variant For cpt = 1 To 7 Range("m1").Offset(cpt - 1).Select retour: Action Range("f1") = Application.CountIf(Range(Range("m1"), ActiveCell), ActiveCell) While Range("f1") > 1 GoTo retour Wend Next Application.CutCopyMode = False End Sub
Sub Action() ActiveCell = "=ALEA.ENTRE.BORNES(1,50)" ActiveCell.Copy ActiveCell.PasteSpecial xlPasteValues End Sub
Camille
Bonjour a tous Comment faire une Macro qui me donne un résultat de 7 chiffres de 1 a 50 A partir de ma base de données ? ( e3:e199 ) dans 7 cellules différentes. Merci Jimmy
Merci Camille :)
Je vais essayer tout de suite....
Bye
Jimmy
"Ellimac" <Ellimac@discussions.microsoft.com> a écrit dans le message de
news: 4EDA42BA-E651-419A-9114-D8FE00C96F11@microsoft.com...
Bonjour,
Un début de solution. Les macros suivantes renvoient en M1:M7 une plage de
valeurs entre 1 et 50.
Sub Aléa()
Dim toto As Variant
For cpt = 1 To 7
Range("m1").Offset(cpt - 1).Select
retour: Action
Range("f1") = Application.CountIf(Range(Range("m1"), ActiveCell),
ActiveCell)
While Range("f1") > 1
GoTo retour
Wend
Next
Application.CutCopyMode = False
End Sub
Sub Action()
ActiveCell = "=ALEA.ENTRE.BORNES(1,50)"
ActiveCell.Copy
ActiveCell.PasteSpecial xlPasteValues
End Sub
Camille
Bonjour a tous
Comment faire une Macro qui me donne un résultat de 7 chiffres de 1 a 50
A partir de ma base de données ? ( e3:e199 )
dans 7 cellules différentes.
Merci
Jimmy
Merci Camille :) Je vais essayer tout de suite.... Bye Jimmy "Ellimac" a écrit dans le message de news:
Bonjour,
Un début de solution. Les macros suivantes renvoient en M1:M7 une plage de valeurs entre 1 et 50.
Sub Aléa() Dim toto As Variant For cpt = 1 To 7 Range("m1").Offset(cpt - 1).Select retour: Action Range("f1") = Application.CountIf(Range(Range("m1"), ActiveCell), ActiveCell) While Range("f1") > 1 GoTo retour Wend Next Application.CutCopyMode = False End Sub
Sub Action() ActiveCell = "=ALEA.ENTRE.BORNES(1,50)" ActiveCell.Copy ActiveCell.PasteSpecial xlPasteValues End Sub
Camille
Bonjour a tous Comment faire une Macro qui me donne un résultat de 7 chiffres de 1 a 50 A partir de ma base de données ? ( e3:e199 ) dans 7 cellules différentes. Merci Jimmy
Jimy
Bonjour Youky Excuses moi mais je ne comprends pas ce que fait [A:A] clearContents efface ? cela va m'effacer la collonne A ? Merci Jimmy "Youky" a écrit dans le message de news:
Salut, Peut être ai-je mal compris, en tout cas voici de quoi commencer attention j'utilise la colonne A donc 2 rectifs à faire selon colonne Youky
Dim deja(200) As Boolean Randomize [A:A].ClearContents 'efface lig = 1 For k = 1 To 7 Do n = Int((196 * Rnd) + 3) If deja(n) = False Then Cells(lig, 1) = Cells(n, 5) '1 étant col A deja(n) = True: lig = lig + 1 Exit Do End If Loop Next
"Jimy" a écrit dans le message de news:
Bonjour a tous Comment faire une Macro qui me donne un résultat de 7 chiffres de 1 a 50 A partir de ma base de données ? ( e3:e199 ) dans 7 cellules différentes. Merci Jimmy
Bonjour Youky
Excuses moi mais je ne comprends pas ce que fait [A:A] clearContents efface
? cela va m'effacer la collonne A ?
Merci
Jimmy
"Youky" <nospam.bruno.jeune@wanadoo.fr> a écrit dans le message de news:
ex43h8yMIHA.280@TK2MSFTNGP03.phx.gbl...
Salut,
Peut être ai-je mal compris, en tout cas voici de quoi commencer
attention j'utilise la colonne A donc 2 rectifs à faire selon colonne
Youky
Dim deja(200) As Boolean
Randomize
[A:A].ClearContents 'efface
lig = 1
For k = 1 To 7
Do
n = Int((196 * Rnd) + 3)
If deja(n) = False Then
Cells(lig, 1) = Cells(n, 5) '1 étant col A
deja(n) = True: lig = lig + 1
Exit Do
End If
Loop
Next
"Jimy" <outatime6@hotmail.comnospam> a écrit dans le message de news:
OdVvSowMIHA.2376@TK2MSFTNGP02.phx.gbl...
Bonjour a tous
Comment faire une Macro qui me donne un résultat de 7 chiffres de 1 a 50
A partir de ma base de données ? ( e3:e199 )
dans 7 cellules différentes.
Merci
Jimmy
Bonjour Youky Excuses moi mais je ne comprends pas ce que fait [A:A] clearContents efface ? cela va m'effacer la collonne A ? Merci Jimmy "Youky" a écrit dans le message de news:
Salut, Peut être ai-je mal compris, en tout cas voici de quoi commencer attention j'utilise la colonne A donc 2 rectifs à faire selon colonne Youky
Dim deja(200) As Boolean Randomize [A:A].ClearContents 'efface lig = 1 For k = 1 To 7 Do n = Int((196 * Rnd) + 3) If deja(n) = False Then Cells(lig, 1) = Cells(n, 5) '1 étant col A deja(n) = True: lig = lig + 1 Exit Do End If Loop Next
"Jimy" a écrit dans le message de news:
Bonjour a tous Comment faire une Macro qui me donne un résultat de 7 chiffres de 1 a 50 A partir de ma base de données ? ( e3:e199 ) dans 7 cellules différentes. Merci Jimmy
Jimy
Bonjour Camille. Je viens d'essayer le code mais il me met : Erreur de compilation... Et je ne sais vraiment pas quoi modifier dans cette syntaxe :-s Merci de ton coup de main (treeees sympa ) Bye Jimmy "Ellimac" a écrit dans le message de news:
Bonjour,
Un début de solution. Les macros suivantes renvoient en M1:M7 une plage de valeurs entre 1 et 50.
Sub Aléa() Dim toto As Variant For cpt = 1 To 7 Range("m1").Offset(cpt - 1).Select retour: Action Range("f1") = Application.CountIf(Range(Range("m1"), ActiveCell), ActiveCell) While Range("f1") > 1 GoTo retour Wend Next Application.CutCopyMode = False End Sub
Sub Action() ActiveCell = "=ALEA.ENTRE.BORNES(1,50)" ActiveCell.Copy ActiveCell.PasteSpecial xlPasteValues End Sub
Camille
Bonjour a tous Comment faire une Macro qui me donne un résultat de 7 chiffres de 1 a 50 A partir de ma base de données ? ( e3:e199 ) dans 7 cellules différentes. Merci Jimmy
Bonjour Camille.
Je viens d'essayer le code mais il me met : Erreur de compilation...
Et je ne sais vraiment pas quoi modifier dans cette syntaxe :-s
Merci de ton coup de main (treeees sympa )
Bye
Jimmy
"Ellimac" <Ellimac@discussions.microsoft.com> a écrit dans le message de
news: 4EDA42BA-E651-419A-9114-D8FE00C96F11@microsoft.com...
Bonjour,
Un début de solution. Les macros suivantes renvoient en M1:M7 une plage de
valeurs entre 1 et 50.
Sub Aléa()
Dim toto As Variant
For cpt = 1 To 7
Range("m1").Offset(cpt - 1).Select
retour: Action
Range("f1") = Application.CountIf(Range(Range("m1"), ActiveCell),
ActiveCell)
While Range("f1") > 1
GoTo retour
Wend
Next
Application.CutCopyMode = False
End Sub
Sub Action()
ActiveCell = "=ALEA.ENTRE.BORNES(1,50)"
ActiveCell.Copy
ActiveCell.PasteSpecial xlPasteValues
End Sub
Camille
Bonjour a tous
Comment faire une Macro qui me donne un résultat de 7 chiffres de 1 a 50
A partir de ma base de données ? ( e3:e199 )
dans 7 cellules différentes.
Merci
Jimmy
Bonjour Camille. Je viens d'essayer le code mais il me met : Erreur de compilation... Et je ne sais vraiment pas quoi modifier dans cette syntaxe :-s Merci de ton coup de main (treeees sympa ) Bye Jimmy "Ellimac" a écrit dans le message de news:
Bonjour,
Un début de solution. Les macros suivantes renvoient en M1:M7 une plage de valeurs entre 1 et 50.
Sub Aléa() Dim toto As Variant For cpt = 1 To 7 Range("m1").Offset(cpt - 1).Select retour: Action Range("f1") = Application.CountIf(Range(Range("m1"), ActiveCell), ActiveCell) While Range("f1") > 1 GoTo retour Wend Next Application.CutCopyMode = False End Sub
Sub Action() ActiveCell = "=ALEA.ENTRE.BORNES(1,50)" ActiveCell.Copy ActiveCell.PasteSpecial xlPasteValues End Sub
Camille
Bonjour a tous Comment faire une Macro qui me donne un résultat de 7 chiffres de 1 a 50 A partir de ma base de données ? ( e3:e199 ) dans 7 cellules différentes. Merci Jimmy
Youky
Oui, exemple si tu veux tes données en col M tu mets [M:M].ClearContents ou [M1:M7].ClearContents ceci efface la col M ou la plage et on remets les nouvelles entrées à changer aussi Cells(lig, 1) = Cells(n, 5) '1 étant col A par Cells(lig, 13) = Cells(n, 5) '13 étant col M
La macro va tirer au hazard 7 N° de ligne compris entre 3 et 196 ceci sans doublons et mettre la valeur en col M sur cet exemple. Je n'ai pas pigé le....de 1 à 50 Youky
"Jimy" a écrit dans le message de news:
Bonjour Youky Excuses moi mais je ne comprends pas ce que fait [A:A] clearContents efface ? cela va m'effacer la collonne A ? Merci Jimmy "Youky" a écrit dans le message de news:
Salut, Peut être ai-je mal compris, en tout cas voici de quoi commencer attention j'utilise la colonne A donc 2 rectifs à faire selon colonne Youky
Dim deja(200) As Boolean Randomize [A:A].ClearContents 'efface lig = 1 For k = 1 To 7 Do n = Int((196 * Rnd) + 3) If deja(n) = False Then Cells(lig, 1) = Cells(n, 5) '1 étant col A deja(n) = True: lig = lig + 1 Exit Do End If Loop Next
"Jimy" a écrit dans le message de news:
Bonjour a tous Comment faire une Macro qui me donne un résultat de 7 chiffres de 1 a 50 A partir de ma base de données ? ( e3:e199 ) dans 7 cellules différentes. Merci Jimmy
Oui,
exemple si tu veux tes données en col M
tu mets [M:M].ClearContents
ou
[M1:M7].ClearContents
ceci efface la col M ou la plage et on remets les nouvelles entrées
à changer aussi
Cells(lig, 1) = Cells(n, 5) '1 étant col A
par
Cells(lig, 13) = Cells(n, 5) '13 étant col M
La macro va tirer au hazard 7 N° de ligne compris entre 3 et 196 ceci sans
doublons et mettre la valeur
en col M sur cet exemple.
Je n'ai pas pigé le....de 1 à 50
Youky
"Jimy" <outatime6@hotmail.comnospam> a écrit dans le message de news:
ejtrQ30MIHA.484@TK2MSFTNGP06.phx.gbl...
Bonjour Youky
Excuses moi mais je ne comprends pas ce que fait [A:A] clearContents
efface ? cela va m'effacer la collonne A ?
Merci
Jimmy
"Youky" <nospam.bruno.jeune@wanadoo.fr> a écrit dans le message de news:
ex43h8yMIHA.280@TK2MSFTNGP03.phx.gbl...
Salut,
Peut être ai-je mal compris, en tout cas voici de quoi commencer
attention j'utilise la colonne A donc 2 rectifs à faire selon colonne
Youky
Dim deja(200) As Boolean
Randomize
[A:A].ClearContents 'efface
lig = 1
For k = 1 To 7
Do
n = Int((196 * Rnd) + 3)
If deja(n) = False Then
Cells(lig, 1) = Cells(n, 5) '1 étant col A
deja(n) = True: lig = lig + 1
Exit Do
End If
Loop
Next
"Jimy" <outatime6@hotmail.comnospam> a écrit dans le message de news:
OdVvSowMIHA.2376@TK2MSFTNGP02.phx.gbl...
Bonjour a tous
Comment faire une Macro qui me donne un résultat de 7 chiffres de 1 a 50
A partir de ma base de données ? ( e3:e199 )
dans 7 cellules différentes.
Merci
Jimmy
Oui, exemple si tu veux tes données en col M tu mets [M:M].ClearContents ou [M1:M7].ClearContents ceci efface la col M ou la plage et on remets les nouvelles entrées à changer aussi Cells(lig, 1) = Cells(n, 5) '1 étant col A par Cells(lig, 13) = Cells(n, 5) '13 étant col M
La macro va tirer au hazard 7 N° de ligne compris entre 3 et 196 ceci sans doublons et mettre la valeur en col M sur cet exemple. Je n'ai pas pigé le....de 1 à 50 Youky
"Jimy" a écrit dans le message de news:
Bonjour Youky Excuses moi mais je ne comprends pas ce que fait [A:A] clearContents efface ? cela va m'effacer la collonne A ? Merci Jimmy "Youky" a écrit dans le message de news:
Salut, Peut être ai-je mal compris, en tout cas voici de quoi commencer attention j'utilise la colonne A donc 2 rectifs à faire selon colonne Youky
Dim deja(200) As Boolean Randomize [A:A].ClearContents 'efface lig = 1 For k = 1 To 7 Do n = Int((196 * Rnd) + 3) If deja(n) = False Then Cells(lig, 1) = Cells(n, 5) '1 étant col A deja(n) = True: lig = lig + 1 Exit Do End If Loop Next
"Jimy" a écrit dans le message de news:
Bonjour a tous Comment faire une Macro qui me donne un résultat de 7 chiffres de 1 a 50 A partir de ma base de données ? ( e3:e199 ) dans 7 cellules différentes. Merci Jimmy
Ellimac
Bonjour,
Sur quelle ligne le programme plante ?
Camille
Bonjour Camille. Je viens d'essayer le code mais il me met : Erreur de compilation... Et je ne sais vraiment pas quoi modifier dans cette syntaxe :-s Merci de ton coup de main (treeees sympa ) Bye Jimmy "Ellimac" a écrit dans le message de news:
Bonjour,
Un début de solution. Les macros suivantes renvoient en M1:M7 une plage de valeurs entre 1 et 50.
Sub Aléa() Dim toto As Variant For cpt = 1 To 7 Range("m1").Offset(cpt - 1).Select retour: Action Range("f1") = Application.CountIf(Range(Range("m1"), ActiveCell), ActiveCell) While Range("f1") > 1 GoTo retour Wend Next Application.CutCopyMode = False End Sub
Sub Action() ActiveCell = "=ALEA.ENTRE.BORNES(1,50)" ActiveCell.Copy ActiveCell.PasteSpecial xlPasteValues End Sub
Camille
Bonjour a tous Comment faire une Macro qui me donne un résultat de 7 chiffres de 1 a 50 A partir de ma base de données ? ( e3:e199 ) dans 7 cellules différentes. Merci Jimmy
Bonjour,
Sur quelle ligne le programme plante ?
Camille
Bonjour Camille.
Je viens d'essayer le code mais il me met : Erreur de compilation...
Et je ne sais vraiment pas quoi modifier dans cette syntaxe :-s
Merci de ton coup de main (treeees sympa )
Bye
Jimmy
"Ellimac" <Ellimac@discussions.microsoft.com> a écrit dans le message de
news: 4EDA42BA-E651-419A-9114-D8FE00C96F11@microsoft.com...
Bonjour,
Un début de solution. Les macros suivantes renvoient en M1:M7 une plage de
valeurs entre 1 et 50.
Sub Aléa()
Dim toto As Variant
For cpt = 1 To 7
Range("m1").Offset(cpt - 1).Select
retour: Action
Range("f1") = Application.CountIf(Range(Range("m1"), ActiveCell),
ActiveCell)
While Range("f1") > 1
GoTo retour
Wend
Next
Application.CutCopyMode = False
End Sub
Sub Action()
ActiveCell = "=ALEA.ENTRE.BORNES(1,50)"
ActiveCell.Copy
ActiveCell.PasteSpecial xlPasteValues
End Sub
Camille
Bonjour a tous
Comment faire une Macro qui me donne un résultat de 7 chiffres de 1 a 50
A partir de ma base de données ? ( e3:e199 )
dans 7 cellules différentes.
Merci
Jimmy
Bonjour Camille. Je viens d'essayer le code mais il me met : Erreur de compilation... Et je ne sais vraiment pas quoi modifier dans cette syntaxe :-s Merci de ton coup de main (treeees sympa ) Bye Jimmy "Ellimac" a écrit dans le message de news:
Bonjour,
Un début de solution. Les macros suivantes renvoient en M1:M7 une plage de valeurs entre 1 et 50.
Sub Aléa() Dim toto As Variant For cpt = 1 To 7 Range("m1").Offset(cpt - 1).Select retour: Action Range("f1") = Application.CountIf(Range(Range("m1"), ActiveCell), ActiveCell) While Range("f1") > 1 GoTo retour Wend Next Application.CutCopyMode = False End Sub
Sub Action() ActiveCell = "=ALEA.ENTRE.BORNES(1,50)" ActiveCell.Copy ActiveCell.PasteSpecial xlPasteValues End Sub
Camille
Bonjour a tous Comment faire une Macro qui me donne un résultat de 7 chiffres de 1 a 50 A partir de ma base de données ? ( e3:e199 ) dans 7 cellules différentes. Merci Jimmy
Ellimac
Re,
Je pense que le problème peut venir de la macro complémentaire Utilitaires d'analyse. Il faut aller dans Outils/Macros complémentaires et cocher Utilitaires d'analyse.
Camille
Bonjour Camille. Je viens d'essayer le code mais il me met : Erreur de compilation... Et je ne sais vraiment pas quoi modifier dans cette syntaxe :-s Merci de ton coup de main (treeees sympa ) Bye Jimmy "Ellimac" a écrit dans le message de news:
Bonjour,
Un début de solution. Les macros suivantes renvoient en M1:M7 une plage de valeurs entre 1 et 50.
Sub Aléa() Dim toto As Variant For cpt = 1 To 7 Range("m1").Offset(cpt - 1).Select retour: Action Range("f1") = Application.CountIf(Range(Range("m1"), ActiveCell), ActiveCell) While Range("f1") > 1 GoTo retour Wend Next Application.CutCopyMode = False End Sub
Sub Action() ActiveCell = "=ALEA.ENTRE.BORNES(1,50)" ActiveCell.Copy ActiveCell.PasteSpecial xlPasteValues End Sub
Camille
Bonjour a tous Comment faire une Macro qui me donne un résultat de 7 chiffres de 1 a 50 A partir de ma base de données ? ( e3:e199 ) dans 7 cellules différentes. Merci Jimmy
Re,
Je pense que le problème peut venir de la macro complémentaire Utilitaires
d'analyse.
Il faut aller dans Outils/Macros complémentaires et cocher Utilitaires
d'analyse.
Camille
Bonjour Camille.
Je viens d'essayer le code mais il me met : Erreur de compilation...
Et je ne sais vraiment pas quoi modifier dans cette syntaxe :-s
Merci de ton coup de main (treeees sympa )
Bye
Jimmy
"Ellimac" <Ellimac@discussions.microsoft.com> a écrit dans le message de
news: 4EDA42BA-E651-419A-9114-D8FE00C96F11@microsoft.com...
Bonjour,
Un début de solution. Les macros suivantes renvoient en M1:M7 une plage de
valeurs entre 1 et 50.
Sub Aléa()
Dim toto As Variant
For cpt = 1 To 7
Range("m1").Offset(cpt - 1).Select
retour: Action
Range("f1") = Application.CountIf(Range(Range("m1"), ActiveCell),
ActiveCell)
While Range("f1") > 1
GoTo retour
Wend
Next
Application.CutCopyMode = False
End Sub
Sub Action()
ActiveCell = "=ALEA.ENTRE.BORNES(1,50)"
ActiveCell.Copy
ActiveCell.PasteSpecial xlPasteValues
End Sub
Camille
Bonjour a tous
Comment faire une Macro qui me donne un résultat de 7 chiffres de 1 a 50
A partir de ma base de données ? ( e3:e199 )
dans 7 cellules différentes.
Merci
Jimmy
Je pense que le problème peut venir de la macro complémentaire Utilitaires d'analyse. Il faut aller dans Outils/Macros complémentaires et cocher Utilitaires d'analyse.
Camille
Bonjour Camille. Je viens d'essayer le code mais il me met : Erreur de compilation... Et je ne sais vraiment pas quoi modifier dans cette syntaxe :-s Merci de ton coup de main (treeees sympa ) Bye Jimmy "Ellimac" a écrit dans le message de news:
Bonjour,
Un début de solution. Les macros suivantes renvoient en M1:M7 une plage de valeurs entre 1 et 50.
Sub Aléa() Dim toto As Variant For cpt = 1 To 7 Range("m1").Offset(cpt - 1).Select retour: Action Range("f1") = Application.CountIf(Range(Range("m1"), ActiveCell), ActiveCell) While Range("f1") > 1 GoTo retour Wend Next Application.CutCopyMode = False End Sub
Sub Action() ActiveCell = "=ALEA.ENTRE.BORNES(1,50)" ActiveCell.Copy ActiveCell.PasteSpecial xlPasteValues End Sub
Camille
Bonjour a tous Comment faire une Macro qui me donne un résultat de 7 chiffres de 1 a 50 A partir de ma base de données ? ( e3:e199 ) dans 7 cellules différentes. Merci Jimmy
Jimy
Bonjour YoukY Le 1 à 50 c'est pour ne pas dépasser ces 2 limites ni inférieurs ni sup. ok, je vais essayer de taper la formule... Merci de ton aide... Jimmy "Youky" a écrit dans le message de news:
Oui, exemple si tu veux tes données en col M tu mets [M:M].ClearContents ou [M1:M7].ClearContents ceci efface la col M ou la plage et on remets les nouvelles entrées à changer aussi Cells(lig, 1) = Cells(n, 5) '1 étant col A par Cells(lig, 13) = Cells(n, 5) '13 étant col M
La macro va tirer au hazard 7 N° de ligne compris entre 3 et 196 ceci sans doublons et mettre la valeur en col M sur cet exemple. Je n'ai pas pigé le....de 1 à 50 Youky
"Jimy" a écrit dans le message de news:
Bonjour Youky Excuses moi mais je ne comprends pas ce que fait [A:A] clearContents efface ? cela va m'effacer la collonne A ? Merci Jimmy "Youky" a écrit dans le message de news:
Salut, Peut être ai-je mal compris, en tout cas voici de quoi commencer attention j'utilise la colonne A donc 2 rectifs à faire selon colonne Youky
Dim deja(200) As Boolean Randomize [A:A].ClearContents 'efface lig = 1 For k = 1 To 7 Do n = Int((196 * Rnd) + 3) If deja(n) = False Then Cells(lig, 1) = Cells(n, 5) '1 étant col A deja(n) = True: lig = lig + 1 Exit Do End If Loop Next
"Jimy" a écrit dans le message de news:
Bonjour a tous Comment faire une Macro qui me donne un résultat de 7 chiffres de 1 a 50 A partir de ma base de données ? ( e3:e199 ) dans 7 cellules différentes. Merci Jimmy
Bonjour YoukY
Le 1 à 50 c'est pour ne pas dépasser ces 2 limites ni inférieurs ni sup.
ok, je vais essayer de taper la formule...
Merci de ton aide...
Jimmy
"Youky" <nospam.bruno.jeune@wanadoo.fr> a écrit dans le message de news:
Ofu04B1MIHA.4684@TK2MSFTNGP06.phx.gbl...
Oui,
exemple si tu veux tes données en col M
tu mets [M:M].ClearContents
ou
[M1:M7].ClearContents
ceci efface la col M ou la plage et on remets les nouvelles entrées
à changer aussi
Cells(lig, 1) = Cells(n, 5) '1 étant col A
par
Cells(lig, 13) = Cells(n, 5) '13 étant col M
La macro va tirer au hazard 7 N° de ligne compris entre 3 et 196 ceci sans
doublons et mettre la valeur
en col M sur cet exemple.
Je n'ai pas pigé le....de 1 à 50
Youky
"Jimy" <outatime6@hotmail.comnospam> a écrit dans le message de news:
ejtrQ30MIHA.484@TK2MSFTNGP06.phx.gbl...
Bonjour Youky
Excuses moi mais je ne comprends pas ce que fait [A:A] clearContents
efface ? cela va m'effacer la collonne A ?
Merci
Jimmy
"Youky" <nospam.bruno.jeune@wanadoo.fr> a écrit dans le message de news:
ex43h8yMIHA.280@TK2MSFTNGP03.phx.gbl...
Salut,
Peut être ai-je mal compris, en tout cas voici de quoi commencer
attention j'utilise la colonne A donc 2 rectifs à faire selon colonne
Youky
Dim deja(200) As Boolean
Randomize
[A:A].ClearContents 'efface
lig = 1
For k = 1 To 7
Do
n = Int((196 * Rnd) + 3)
If deja(n) = False Then
Cells(lig, 1) = Cells(n, 5) '1 étant col A
deja(n) = True: lig = lig + 1
Exit Do
End If
Loop
Next
"Jimy" <outatime6@hotmail.comnospam> a écrit dans le message de news:
OdVvSowMIHA.2376@TK2MSFTNGP02.phx.gbl...
Bonjour a tous
Comment faire une Macro qui me donne un résultat de 7 chiffres de 1 a
50
A partir de ma base de données ? ( e3:e199 )
dans 7 cellules différentes.
Merci
Jimmy
Bonjour YoukY Le 1 à 50 c'est pour ne pas dépasser ces 2 limites ni inférieurs ni sup. ok, je vais essayer de taper la formule... Merci de ton aide... Jimmy "Youky" a écrit dans le message de news:
Oui, exemple si tu veux tes données en col M tu mets [M:M].ClearContents ou [M1:M7].ClearContents ceci efface la col M ou la plage et on remets les nouvelles entrées à changer aussi Cells(lig, 1) = Cells(n, 5) '1 étant col A par Cells(lig, 13) = Cells(n, 5) '13 étant col M
La macro va tirer au hazard 7 N° de ligne compris entre 3 et 196 ceci sans doublons et mettre la valeur en col M sur cet exemple. Je n'ai pas pigé le....de 1 à 50 Youky
"Jimy" a écrit dans le message de news:
Bonjour Youky Excuses moi mais je ne comprends pas ce que fait [A:A] clearContents efface ? cela va m'effacer la collonne A ? Merci Jimmy "Youky" a écrit dans le message de news:
Salut, Peut être ai-je mal compris, en tout cas voici de quoi commencer attention j'utilise la colonne A donc 2 rectifs à faire selon colonne Youky
Dim deja(200) As Boolean Randomize [A:A].ClearContents 'efface lig = 1 For k = 1 To 7 Do n = Int((196 * Rnd) + 3) If deja(n) = False Then Cells(lig, 1) = Cells(n, 5) '1 étant col A deja(n) = True: lig = lig + 1 Exit Do End If Loop Next
"Jimy" a écrit dans le message de news:
Bonjour a tous Comment faire une Macro qui me donne un résultat de 7 chiffres de 1 a 50 A partir de ma base de données ? ( e3:e199 ) dans 7 cellules différentes. Merci Jimmy
Jimy
Bonjour Camille (joli nom) :) La ligne qui est en rouge : Range("f1") = Application.CountIf(Range(Range("m1"), ActiveCell), ActiveCell) je suppose que celle la qui pose prob. Merci de ton aide Bye Jimmy "Ellimac" a écrit dans le message de news:
Bonjour,
Sur quelle ligne le programme plante ?
Camille
Bonjour Camille. Je viens d'essayer le code mais il me met : Erreur de compilation... Et je ne sais vraiment pas quoi modifier dans cette syntaxe :-s Merci de ton coup de main (treeees sympa ) Bye Jimmy "Ellimac" a écrit dans le message de news:
Bonjour,
Un début de solution. Les macros suivantes renvoient en M1:M7 une plage de valeurs entre 1 et 50.
Sub Aléa() Dim toto As Variant For cpt = 1 To 7 Range("m1").Offset(cpt - 1).Select retour: Action Range("f1") = Application.CountIf(Range(Range("m1"), ActiveCell), ActiveCell) While Range("f1") > 1 GoTo retour Wend Next Application.CutCopyMode = False End Sub
Sub Action() ActiveCell = "=ALEA.ENTRE.BORNES(1,50)" ActiveCell.Copy ActiveCell.PasteSpecial xlPasteValues End Sub
Camille
Bonjour a tous Comment faire une Macro qui me donne un résultat de 7 chiffres de 1 a 50 A partir de ma base de données ? ( e3:e199 ) dans 7 cellules différentes. Merci Jimmy
Bonjour Camille (joli nom) :)
La ligne qui est en rouge :
Range("f1") = Application.CountIf(Range(Range("m1"), ActiveCell),
ActiveCell)
je suppose que celle la qui pose prob.
Merci de ton aide
Bye
Jimmy
"Ellimac" <Ellimac@discussions.microsoft.com> a écrit dans le message de
news: 6B3BB7BE-C0EF-41DC-AC07-CD78302A01E3@microsoft.com...
Bonjour,
Sur quelle ligne le programme plante ?
Camille
Bonjour Camille.
Je viens d'essayer le code mais il me met : Erreur de compilation...
Et je ne sais vraiment pas quoi modifier dans cette syntaxe :-s
Merci de ton coup de main (treeees sympa )
Bye
Jimmy
"Ellimac" <Ellimac@discussions.microsoft.com> a écrit dans le message de
news: 4EDA42BA-E651-419A-9114-D8FE00C96F11@microsoft.com...
Bonjour,
Un début de solution. Les macros suivantes renvoient en M1:M7 une plage
de
valeurs entre 1 et 50.
Sub Aléa()
Dim toto As Variant
For cpt = 1 To 7
Range("m1").Offset(cpt - 1).Select
retour: Action
Range("f1") = Application.CountIf(Range(Range("m1"), ActiveCell),
ActiveCell)
While Range("f1") > 1
GoTo retour
Wend
Next
Application.CutCopyMode = False
End Sub
Sub Action()
ActiveCell = "=ALEA.ENTRE.BORNES(1,50)"
ActiveCell.Copy
ActiveCell.PasteSpecial xlPasteValues
End Sub
Camille
Bonjour a tous
Comment faire une Macro qui me donne un résultat de 7 chiffres de 1 a
50
A partir de ma base de données ? ( e3:e199 )
dans 7 cellules différentes.
Merci
Jimmy
Bonjour Camille (joli nom) :) La ligne qui est en rouge : Range("f1") = Application.CountIf(Range(Range("m1"), ActiveCell), ActiveCell) je suppose que celle la qui pose prob. Merci de ton aide Bye Jimmy "Ellimac" a écrit dans le message de news:
Bonjour,
Sur quelle ligne le programme plante ?
Camille
Bonjour Camille. Je viens d'essayer le code mais il me met : Erreur de compilation... Et je ne sais vraiment pas quoi modifier dans cette syntaxe :-s Merci de ton coup de main (treeees sympa ) Bye Jimmy "Ellimac" a écrit dans le message de news:
Bonjour,
Un début de solution. Les macros suivantes renvoient en M1:M7 une plage de valeurs entre 1 et 50.
Sub Aléa() Dim toto As Variant For cpt = 1 To 7 Range("m1").Offset(cpt - 1).Select retour: Action Range("f1") = Application.CountIf(Range(Range("m1"), ActiveCell), ActiveCell) While Range("f1") > 1 GoTo retour Wend Next Application.CutCopyMode = False End Sub
Sub Action() ActiveCell = "=ALEA.ENTRE.BORNES(1,50)" ActiveCell.Copy ActiveCell.PasteSpecial xlPasteValues End Sub
Camille
Bonjour a tous Comment faire une Macro qui me donne un résultat de 7 chiffres de 1 a 50 A partir de ma base de données ? ( e3:e199 ) dans 7 cellules différentes. Merci Jimmy
