DE PETITES ANNONCES GRATUITES |
| PASSER UNE ANNONCE GRATUITEMENT |
| CONSULTEZ LES ANNONCES |
Comment programmer en excel un carré de 6 X 6 cases contenant tous les chiffres du 1 au 36 en ordre aleatoire, Et que je puisse generer des carrés differents chaque fois, sans avoir a reprogrammer, ou le moins possible.
Merci aux specialistes.
Voilà , si tu sais faire des macro... j'ai concocté un bout de code qui fait exactement ce que tu veux. C'est certes perfectible mais efficace :
J'espèe que mon investissement sera gratifié d'une bonne de la meilleur réponse ;-)
Sub Carré6x6()
Dim v_tabValues(36)
Randomize
For i = 0 To 35
v_tabValues(i) = -1
Range(GetCell(i)).Formula = -(i + 1)
Next
For i = 0 To 35
Call GetValue(v_tabValues, i)
GetCellValue (i)
Next
End Sub
Function GetCell(pIndex)
Select Case (pIndex 6)
Case 0: GetCell = "A" & (pIndex Mod 6 + 1)
Case 1: GetCell = "B" & (pIndex Mod 6 + 1)
Case 2: GetCell = "C" & (pIndex Mod 6 + 1)
Case 3: GetCell = "D" & (pIndex Mod 6 + 1)
Case 4: GetCell = "E" & (pIndex Mod 6 + 1)
Case 5: GetCell = "F" & (pIndex Mod 6 + 1)
End Select
End Function
Sub GetValue(ByRef pTabValues, i)
randomIndex = Rand(LBound(pTabValues), UBound(pTabValues))
If (pTabValues(randomIndex) <> -1) Then
Call GetValue(pTabValues, i)
Else
pTabValues(randomIndex) = pTabValues(i)
End If
End Sub
Sub GetCellValue(pValue)
randomIndex = Rand(0, 35)
If (Range(GetCell(randomIndex)).Formula > 0) Then
Call GetCellValue(pValue)
Else
Range(GetCell(randomIndex)).Formula = pValue + 1
End If
End Sub
Public Function Rand(ByVal Low As Long, _
ByVal High As Long) As Long
Rand = Round(Int((High - Low + 1) * Rnd) + Low)
End Function
teletravail.fr • Afficher le sujet - ACCRE / NACRE
Bonjour à toutes, j'ai une question : si je bénéficie de l'ACCRE et de la NACRE en tant que demandeur d'emploi en faisant la déclaration de mon activité en septembre (par ...
teletravail.fr • Afficher le sujet - petit renseignement
bonjour, voila je voulais savoir si je devais joindre a ma déclaretaion de début d'activité ma demande d'accre ou si je devais l'envoyer un autre organisme et lequel?
L'ACCRE - PHPfreelance
ACCRE : Aide aux chômeurs créateurs ou repreneurs d'une entreprise. http://www ... le samedi 14 avril 2007, 13:39 - Devenir indépendant - Lien permanent. télétravail
Les aides à la création d'entreprise
Aide à la Création et à la Reprise d’une Entreprise (ACCRE) maintien de la ... com en RSS | CGU | Infos légales | Liens externes Les thèmes de ce site : Annonces télétravail ...
Où déposer sa demande d'ACCRE ? / ACCRE Payante ?
Télétravail - téléservices ... au temps que les demandeurs passaient avec la personne qui s'occupe des dossiers ACCRE ...
ACCRE
Télétravail - téléservices ... si mon prévisionnel se réalise) la première année en micro avec ACCRE par ...
Le Plan France Numérique 2012 encourage le télétravail - Expertise ...
Le télétravail peut également apporter des réponses à d’autres problématiques comme ... ACCRE EDEN, Bassin d'emploi, Cost killer, Difficultés de recrutement / Métiers sous ...
Teletravail, travail a domicile - Offre teletravail, offre emploi a ...
Emploi télétravail, Emploi secrétaire, Emploi informatique, Emploi formateur, ... Prolongation de l’ACCRE possible Principales dispositions ...
Le Plan France Numérique 2012 encourage le télétravail - Indice RH ...
Le télétravail peut également apporter des réponses à d’autres problématiques comme ... ACCRE EDEN, Bassin d'emploi, Cost killer, Difficultés de recrutement / Métiers sous ...
Du télétravail au travail mobile -Le télétravail - Travail ...
ACCRE; Aides à l’emploi; Allègement des charges; Cumul d’emploi; Difficultés de ... 7%, telle est la proportion de la population active concernée, en 2003, par le télétravail ...
INDEX /TAG :
Vous pouvez également consulter le guide pratique accre qui vous proposera de nombreuses autres informations pratique concernant votre recherche suraccre