Forums XLPages

Tous les messages (Mytå)

« 1 ... 15 16 17 18
Re: Analyse combinatoire
#171
Mytå
Accro XLPages

Inscription: 17/08/2007
De Québec, Canada

Messages: 180

Système d'exploitation:
PC
Version Excel utilisée:
Excel 2003, 2007 (FR) & MsProject 2003
Posté le : 01-07-2008 21h39

Salut le forum

Pour faire une liste sur une base de Ti_ pour les macros

Ici on parle de permutations au-lieu de combinaisons

Toujours aussi rapide les algorithmes de Ti_

Mytå




Pièce jointe:
xls AnalysePermutation.xls   [ Taille: 45.50 Ko - Téléchargements: 845 ]
Hors Ligne
 Rapport   Haut 

Re: Code VBA pour résoudre problème de vision
#172
Mytå
Accro XLPages

Inscription: 17/08/2007
De Québec, Canada

Messages: 180

Système d'exploitation:
PC
Version Excel utilisée:
Excel 2003, 2007 (FR) & MsProject 2003
Posté le : 01-07-2008 19h03
Salut le forum

Oxor, adapte cette partie de code sur tes deux macros
Next
MsgBox ("Le tarif de " & ActiveCell & " est de " & Cells(ActiveCell.Row, 31))
Else
MsgBox "clique sur le prénom", vbInformation, "Marie-Hélène"
Il te suffit d'ajouter la ligne MsgBox entre Next et Else.

Mytå
Hors Ligne
 Rapport   Haut 

Re: syntaxe VBA sur l'instruction application.ontime avec paramètres
#173
Mytå
Accro XLPages

Inscription: 17/08/2007
De Québec, Canada

Messages: 180

Système d'exploitation:
PC
Version Excel utilisée:
Excel 2003, 2007 (FR) & MsProject 2003
Posté le : 01-07-2008 15h38
Re Michel

Enlève les espaces que j'ai ajoutées

" ' Fermeture " & Time_Opening & " ' "

Garde un espace après Fermeture

Mytå

Edit : Fonctionne que pour une variable nombre et pas Texte ou Date

P.S. Que rajouter de plus sur Application.OnTime






Edité par Mytå le 04/07/2008 01:02:11
Hors Ligne
 Rapport   Haut 

Re: syntaxe VBA sur l'instruction application.ontime avec paramètres
#174
Mytå
Accro XLPages

Inscription: 17/08/2007
De Québec, Canada

Messages: 180

Système d'exploitation:
PC
Version Excel utilisée:
Excel 2003, 2007 (FR) & MsProject 2003
Posté le : 01-07-2008 15h27
Salut le forum

Michel, voilà un exemple avec passage de paramètres

Option Explicit
Public RunWhen As Variant

Sub LanceMessage()
'Départ du processus
RunWhen = TimeValue(Now + TimeSerial(0, 0, 15))
Application.OnTime RunWhen, "'Ma_Macro 100'"
End Sub

Sub StopMessage()
'Arret du processus
On Error Resume Next
Application.OnTime RunWhen, "'Ma_Macro 100'", , False
End Sub

Sub Ma_Macro(I As Integer)
MsgBox I
Call LanceMessage
End Sub

La syntaxe " ' Ta_Macro Ta_Variable ' "

Mytå
Hors Ligne
 Rapport   Haut 

Re: syntaxe VBA sur l'instruction application.ontime avec paramètres
#175
Mytå
Accro XLPages

Inscription: 17/08/2007
De Québec, Canada

Messages: 180

Système d'exploitation:
PC
Version Excel utilisée:
Excel 2003, 2007 (FR) & MsProject 2003
Posté le : 01-07-2008 02h26
Salut le forum

Une façon de travailler avec OnTime, ici la macro est lancée au 15 secondes.
Option Explicit
Public RunWhen As Variant

Sub LanceMessage()
'Départ du processus
RunWhen = TimeValue(Now + TimeSerial(0, 0, 15))
Application.OnTime RunWhen, "Ma_Macro"
End Sub

Sub StopMessage()
'Arret du processus
On Error Resume Next
Application.OnTime RunWhen, "Ma_Macro", , False
End Sub

Sub Ma_Macro()
MsgBox ("Hello")
Call LanceMessage
End Sub
Mytå

P.S. Bravo, Didier pour le nouveau "Design"
Hors Ligne
 Rapport   Haut 

Re: Analyse combinatoire
#176
Mytå
Accro XLPages

Inscription: 17/08/2007
De Québec, Canada

Messages: 180

Système d'exploitation:
PC
Version Excel utilisée:
Excel 2003, 2007 (FR) & MsProject 2003
Posté le : 30-06-2008 23h53
Salut le forum

Macro57, je ne suis absolument pas choqué

Ton code calcule les Permutations
=PERMUTATION(26;6) soit 165 765 600 possibilités

Tandis que le mien calcul les Combinaisions
=COMBIN(26;6) soit 230 230 possibilités

Deux codes différents, mais avec la même approche.

Amicalement
Mytå
Hors Ligne
 Rapport   Haut 

Re: Analyse combinatoire
#177
Mytå
Accro XLPages

Inscription: 17/08/2007
De Québec, Canada

Messages: 180

Système d'exploitation:
PC
Version Excel utilisée:
Excel 2003, 2007 (FR) & MsProject 2003
Posté le : 30-06-2008 15h09
Salut le forum

J'avais déjà fournit un code similaire sur un autre forum.

Sub Combinaisons()

Dim Num1 As Byte
Dim Num2 As Byte
Dim Num3 As Byte
Dim Num4 As Byte
Dim Num5 As Byte
Dim Num6 As Byte
Dim NbreNum As Byte
Dim L As Long, C As Byte

L = 1
C = 0

NbreNum = 26

For Num1 = 1 To NbreNum
 For Num2 = Num1 + 1 To NbreNum
  For Num3 = Num2 + 1 To NbreNum
   For Num4 = Num3 + 1 To NbreNum
    For Num5 = Num4 + 1 To NbreNum
     For Num6 = Num5 + 1 To NbreNum
     
Cells(L, 1 + C) = Chr$(64 + Num1) & ";" & Chr$(64 + Num2) & ";" & Chr$(64 + Num3) _
                    & ";" & Chr$(64 + Num4) & ";" & Chr$(64 + Num5) & ";" & Chr$(64 + Num6)
L = L + 1
If L = 65001 Then
C = C + 1
L = 1
End If

     Next Num6
    Next Num5
   Next Num4
  Next Num3
 Next Num2
Next Num1

End Sub
Mytå
Merci, de donner un retour à votre question, nous ne sommes pas des robots. [GMT - 5]
Le travail d'équipe est essentiel. En cas d'erreur, ça permet d'accuser quelqu'un d'autre.
Hors Ligne
 Rapport   Haut 

Re: recherche automatique.......
#178
Mytå
Accro XLPages

Inscription: 17/08/2007
De Québec, Canada

Messages: 180

Système d'exploitation:
PC
Version Excel utilisée:
Excel 2003, 2007 (FR) & MsProject 2003
Posté le : 25-06-2008 01h24
Salut le forum

Définition du verbe solder
1° faire apparaître le solde d'un compte.
2° payer ce qui reste dû.
3° mettre un article en solde.

Pas sur Didier, de l'expression employée.

Mytå
Hors Ligne
 Rapport   Haut 

Re: Analyse combinatoire
#179
Mytå
Accro XLPages

Inscription: 17/08/2007
De Québec, Canada

Messages: 180

Système d'exploitation:
PC
Version Excel utilisée:
Excel 2003, 2007 (FR) & MsProject 2003
Posté le : 22-06-2008 23h58
Salut le forum

JCGL, ca fait un bout que je suis enregistré, mais le manque de
temps ne permettait pas bien souvent de répondre aux questions.

J'espère que Lotus27 à Excel2007, car 230 230 combinaisons
sans doublons. Sinon 5 tableaux de 46046 lignes :)

Attention au temps de recalcul des matricielles....

Mytå
Hors Ligne
 Rapport   Haut 

Re: Analyse combinatoire
#180
Mytå
Accro XLPages

Inscription: 17/08/2007
De Québec, Canada

Messages: 180

Système d'exploitation:
PC
Version Excel utilisée:
Excel 2003, 2007 (FR) & MsProject 2003
Posté le : 22-06-2008 01h13
Salut le forum

Pour faire une liste sur une base de Ti_ pour les macros

Mytå
Pièce jointe:
xls AnalyseCombinatoire.xls   [ Taille: 46.00 Ko - Téléchargements: 937 ]
Merci, de donner un retour à votre question, nous ne sommes pas des robots. [GMT - 5]
Le travail d'équipe est essentiel. En cas d'erreur, ça permet d'accuser quelqu'un d'autre.
Hors Ligne
 Rapport   Haut 

« 1 ... 15 16 17 18