Tutoriel Excel * Divers - Vos idées & projets

Bonjour Artemuse,

Pour Omega, je fais une programmation sixain par sixain, comme sur l'image ci-dessous.

Pour gagner du temps, serait-il possible qu'une modification dans le programme du premier sixain soit appliquée automatiquement aux autres sixains.

Actuellement, je fais du copier-coller

Autre chose. Existe-t-il une commande qui puisse "colorier" une case en fonction du nombre qui s'y trouve.

Par exemple, si une cellule contient le chiffre 1, l'ombrage est noir, si la cellule contient le chiffre 2, l'ombrage est rouge, etc.......

Merci d'avance

Mamas.

drgonzo a dit

bonjour,

suite à des cours ennuyants, j'ai décidé de noté la liste de numéro sortie sur dublin bet pour essayer de comprendre comment calculer les "hot numbers"?

donc voila les resultats des splins:

serie n1:
22
4
24
32
2
7
1
27
19
16
30
32
33
10
35
9
17
20
18
9
29
5
31
0
8
26
19
17
16
3
16
26
34
34
8
1
6
13
16
24
21
6
0
6
8
36
21
13
34
14
32
19
17
2
15
4
11
21
30
9
31
20
2
36
36
34
3
29
2
18
5
17
19
17
5
2
2
2
6
2
25
16
27
3
0
36
11
27
27
2
0
10
15
29
33
4
20
14
30
2
6
36
12
15
19
13
24
14
7
16
25
6
33
12
33
32
34
27
4
1
27
24
20
4
19
31
11
29
27
17
20
30
33
27
31
25
23
3
12
18
22
25
0
18
26
30
14
16
8
27
27

finalement je vous mets qu'une seul serie au sinon ça fera un poste trop long

donc je me demandai comment je peut mettre toute ces données dans un tableau pour voir leur pourcentage de sortie? par série de 50 et voir si il y a une stabilité de sortie merci

j'espere je me suis fait comprendre

ps: désolé pour les fautes d'orthographes, j'essaye de m'ameliorer

j'ai réédité ton méssage , car c'était le 4eme sujets sur excel , si vous n' organisez pas vos posts et vos demandes , dans une semaine se sera une pagaille énorme

RAMBO

mamas

pour répondre à ta question va sur "format">"mise en forme conditionnelle" et en suite tu complètes

petite question de combien sont les commissions lors des dépôts et retrait sur dublin bet? quel est le minimum que l'on peut déposer et retirer?

thks

ciuss

Merci pour ta reponse,

J'utilise Moneybookers : 2% de frais quand tu dépose et 2 euros quand tu retire.

Mamas.

le vla le bon sujet

je peut déplacer les sujets , mais je ne peut pas déplacer un méssage uniquement , sinon il me faut éditer , bof... le bordel c'est pas propre

Hey Arte, commence dont par donner des leçons de bases avant de parler de projets. Tu sais le genre de truc hyper con tel que "Hello World" avec 3 lignes de code.

Ensuite tu pourras toujours débuter un projet assez complexe à programmer mais simple à utiliser qui va compter et classer chaque boule d'une journée Wiesbaden comme ceci...

MErlin

ARTE, si j'attribue une valeur de +1 pour N et -1 pour R, comment faire apparaître la valeur de chaque séries de CS ?

Pour au final arriver à ça : (+ ou High = +1; - ou Low = -1; P = +1; I = -1; N = +1; R = -1)

le but : c'est une éventuelle possiblité d'extraire des cycles comme on peut le faire avec le Forex pour les exploiter.

Pour faire un compteur sans macros:

Salut à tous,

comme je suis nul en Excel je viens vous demandez votre aide

je cherche un petit tableau dans ce style

Il faudrait une case ou mettre le N° sortie et une case de validation
Un fois la validation faite le N° irait se mettre automatiquement dans la colonne de la cs qui le conserne
On devrait avoir au final 3 colonnes renseignées avec le dernier N° sortie.
pour le 0 on l'affiche dans les 6 colonnes.

Je ne sais pas si je suis bien clair ????

Tous les conseils sont les biens venus

Merci

ps: si l'un d'entre vous à déjà ça sous la main je suis preneur

Bonjour lypos33

Tu as trouvé la réponse à ta question ?

Il y a plusieurs façons d'automatiser ça, en utilisant les fonctions d'Excel, ou en codant une macro en Visuel Basic.

A mon avis, le plus souple et évolutif, c'est de coder, et d'associer ton code à un evènement pour l'exécuter automatiquement. Je n'ai pas très bien compris la raison d'être de ta case validation, est-ce qu'il s'agit d'une case qui déclencle le calcul d'analyse ? Si c'est ça, cette case n'est pas utile, il suffit d'utiliser l'evènement qui convient. J'explique.

Perso, pour mieux maîtriser la cellule active dans laquelle on vient de saisir la sortie à analyser, je prèfère neutraliser l'activation automatique de la cellule suivante (menu "Outils/Options", onglet "Modification", décocher la case "Déplacer la sélection après validation").

Ensuite, on passe au code. On affiche d'abord les fenêtres indispensables, fenêtre de code (menu "Affichage/code"), l'explorateur de projets (menu "Affichage/Explorateur de projets) et la fenêtre de propriétés ("Affichage/Fenêtre Propriétés").

Le plus simple est de créer un module dans l'éditeur Visual Basic, en passant par le menu "Insertion/Module". Le module 1 est crée dans la fenêtre de code.
Dans la fenêtre propriété, on peut changer le nom "Module 1" en tapant le nouveau nom par dessus l'ancien en face de la propriété (Name).

Dans le module 1, tu recopies le code des 3 procédures suivantes - A noter, pour que ça fonctionne, il faut donner le nom "Sorties" à la 1ère feuille du classeur.

Module 1
Dim nCompteurPair As Long
Dim nCompteurImpair As Long

Sub SortiesChancesSimples()
Dim cResult As String
Dim nCurValue As Integer
Dim oCurCell As Range
Dim nColonne As Integer
Dim nCompteur As Long

' Initialisation des compteurs
If nCompteurPair = Null Then
nCompteurPair = 0
nCompteurImpair = 0
End If

'Valeur de la cellule active (Sortie saisie)
nCurValue = ActiveCell.Value

'------------------------------
' Etude des chances Pair/Impair
'------------------------------
'On met le code I (impair) ou P(pair) dans la variable cResult
'grâce à l'appel de la procédure ChancesPairImpair
ChancesPairImpair cResult, nCurValue

'Numéro de colonne selon le résultat pair/impair
Select Case cResult
Case "P"
nColonne = 7
nCompteurPair = nCompteurPair + 1
nCompteur = nCompteurPair
Case "I"
nColonne = 8
nCompteurImpair = nCompteurImpair + 1
nCompteur = nCompteurImpair
Case Else
'c'est un 0 ou une erreur de saisie
End Select

'Comptage du nombre de sorties de la chance dans la colonne adéquate
Set oCurCell = Worksheets("Sorties").Cells(ActiveCell.Row, nColonne)
oCurCell.Value = nCompteur

'Si on veut afficher la valeur dans une couleur de police différence
'Ici, en rouge par ex (plus utile pour les chances rouge/noir !)
If cResult = "P" Then oCurCell.Font.ColorIndex = 3

'Si on veut colorer le fond de la cellule
'ici en orange par exemple
With oCurCell.Interior
.ColorIndex = 44
End With

'-------------------------------
' Etude des chances Passe/Manque
'-------------------------------
ChancesPasseManque cResult, nCurValue
' Ensuite, on fait la même chose que pour Pair/Impair
' en changeant les numéros de colonnes, les couleurs, ...

'-----------------------------
' Etude des chances Rouge/Noir
'-----------------------------
' A faire sur le même modèle que l'analyse des chances précédentes

'Avant de sortir de la macro et d'aller saisir le spin suivant
'activation de la cellule suivante
Set oCurCell = Worksheets("Sorties").Cells(ActiveCell.Row + 1, 1)
oCurCell.Select

End Sub

Module 1
Sub ChancesPasseManque(vcPasseManque, vnValue)

Select Case vnValue
Case 0
vcPasseManque = "0"
Case Is < 18
vcPasseManque = "M"
Case Is < 37
vcPasseManqe = "P"
Case Else
MsgBox ("Erreur")
End Select

End Sub

Module 1
Sub ChancesPairImpair(vcPairImpair, vnValue)
Dim nReste As Integer

Select Case vnValue
Case Is < 0
MsgBox ("Erreur")
vcPairImpair = "E"
Case Is > 36
MsgBox ("Erreur")
vcPairImpair = "E"
Case 0
vcPairImpair = "0"
Case 1
vcPairImpair = "I"
Case Else
nReste = (vnValue Mod 2)
If nReste = 0 Then
vcPairImpair = "P"
Else
vcPairImpair = "I"
End If
End Select
End Sub

Ensuite, il ne reste plus qu'à automatiser l'exécution de la macro au fur et à mesure des saisies. Dans l'explorateur de projet, il faut cliquer sur "ThisWorkBook", dans la liste Microsoft Excel Objets.
Dans la liste déroulante en haut à droite de la fenêtre de code, on choisit la méthode "SheetChange".

A l'intérieur de la procédure Workbook_SheetChange, on insère l'appel de la macro :

If Target.Column = 1 And Sh.Name = "Sorties" Then
SortiesChancesSimples()
End If

Voilà, c'est fini. Chez moi, ça marche très bien avec Excel 2003. Si tu as des problèmes pour l'utiliser ou des questions, n'hésite pas.

J'aimerais testé l'amlembert avec excel, avez vous une formule pour ca ?

Je sais utilisé quelque forumul "si" simple mais l'amlembert c'est un peux compliqué pour moi.

Je ne sais pas si quelqu'un d'autre aura le temps de te répondre... sinon, j'essaierai de prendre le temps ce week-end.

La méthode d'Alembert, c'est la méthode sur les chances simples ou tu doubles ta mise quand tu perd et tu la divises par 2 quand tu gagnes, c'est ça ?

c'est pas doublé c'est +1 / -1

c'est pas doublé c'est +1 / -1

Merci Melimelo. J'avoue que je suis plus à l'aise avec la programmation qu'avec la roulette (mais j'espère bien progresser !)

Merci c'est sympa.

En effet l'Alembert consiste a augmenter sa mise d'une unité apres une perte et de la reduire d'une apres un gain jusqu'a obtenir un benefice.

J'utilise se genre de formule:
=SI(OU(A1=1;A1=2;A1=3;A1=4;A1=5;A1=6;A1=7;A1=8;A1=9;A1=10;A1=11;A1=12;A1=13;A1=14;A1=15;A1=16;A1=17;A1=18;A1=0);-1;1)

Mais comment je dois faire pour que le resultat au lieu d'etre 1 ou -1 soit la somme de ces 1 et -1 ??

Bon, désolée, j'ai pas eu le temps de m'occuper de ta question ce WE.

J'essaierai ce soir (pas sûr, je suis de corvée mise sous pli des bulletins d'élections parents d'élèves au collège ).

Pour ta dernière question, déjà, tu peux simplifier ta formule en remplaçant par "=SI(A1 < 19;-1;1)".

Je ne sais pas si tu connais une formule simple pour les pairs/impairs, sinon, tu peux faire comme ça : "=SI(OU(A1=0;MOD(A1;2)<>0);-1;1)" pour affecter -1 aux impairs et 0, 1 aux pairs.

Pour cumuler le résultat, il suffit d'avoir une colonne à côté dans laquelle tu cumules ta cellule du dessus avec le dernier résultat.

Par exemple, avec 3 colonnes, tu pourrais avoir un truc qui ressemble à ça :
(l'éditeur de texte enlève tous les espaces séparateurs, c'est la raison pour laquelle j'ai mis des séries de points, j'espère que ça reste lisible comme ça).

Vision Formules
"Sortie"....."Résultat"............"Cumul"
18...........SI(A1<19;-1;1).........= B1
4............SI(A2<19;-1;1).........= C1 + B2
25..........SI(A3<19;-1;1)..........= C2 + B3

A partir de la 3ème ligne, il suffit de faire un copier/coller de la formule "=C1+B2" dans les lignes suivantes.

Vision valeurs
"Sortie"..."Résultat"..."Cumul"
18...........-1.............-1
4............-1.............-2
25............1.............-1

J'espère que ma réponse répond bien à ta question.

Je suis arrivé a faire a peu pres ce que je voulais, j'utilise ca pour le cumul =SOMME($B$2:B1)

Quelqu'un aurait des permanences reels sur excel à m'envoyer ?

Alors Gilloux, t'as avancé dans tes tests ?