FORUM MP | Bureautique : Generer toute les combinaisons possible

COMMUNAUTE MP

Identifiez vous ...

DOMAINE MP

Bavardages

Langages Généraux

Langages Web

Langages DotNet

Autres langages

Dev. Jeux Video

Sécurité

Sys. Exploitation

Graphismes

Logiciels

Réseaux

Bases de données

Méthodologies

Emplois High-tech

Aide juridique

FORUM

CHAT MP IRC

Votre pseudo ...

Serv: irc.irc-land.org

Chan: #MoteurProg

PARTICIPER

Plus de 3500 emplois.

Visiteur MP

Generer toute les combinaisons possible
	Forum : BUREAUTIQUE Sous Catégorie : Aucune Type du sujet : Sujet Normale FAQ : FAQ BUREAUTIQUE
		SUIVI PAR MAIL INACTIF
		SUJET RESOLU
		SUJET ACTIF
		N'APPARTIENT PAS A LA FAQ

PAGES : [1] [2] [3] [4]

FORUM BUREAUTIQUE
	Page précedente	Page suivante

RGI
Superviseur :
- Logiciels
Modérateur :
- Visual basic
- Bureautique

Inscrit : 21/08/2006
Messages : 1693

#152916 Posté le 10/05/08 à 14:10

Salut

Il y a sans doute une erreur car je me retrouve avec une page dans laquelle un grand nombre de cellules sont #Nom$

donc je ne peux pas voir ce que ça donne

Salutations

RGI
__________________________
PS: VBA pour EXCEL est maintenant dans Bureautique Smiley

merci de poser vos questions VBA à cet endroit
salutations

RGI

Un MERCI en retour c'est sympa
et ne pas oublier le tag :

après résolution.

HAUT DE PAGE

Publicité

Inscrit : X
Messages : X

#Aucun

HAUT DE PAGE

RGI
Superviseur :
- Logiciels
Modérateur :
- Visual basic
- Bureautique

Inscrit : 21/08/2006
Messages : 1693

#152925 Posté le 10/05/08 à 17:13

Voilà le code pour aller jusque 20 éléments en 5 caractères
attention il faut un laps de temps pour l'execution totale

Public Sub Combinaison5() Dim intI1 As Integer, intI2 As Integer, intI3 As Integer Dim intI4 As Integer, intI5 As Integer, intN As Integer Dim strTab As String strTab = UCase(InputBox("Saisissez les éléments : ", "Saisie", "ABCDEFGHIJKLMNOPQRST")) col = 1 intI1 = 1 Do Until Cells(1, intI1).Value = "" intI1 = intI1 + 1 Loop Cells(1, intI1).Select intN = Len(strTab) ActiveCell.Value = strTab For intI1 = 1 To intN For intI2 = 1 To intN If intI2 <> intI1 Then For intI3 = 1 To intN If intI3 <> intI1 And intI3 <> intI2 Then If Len(strTab) = 3 Then ActiveCell.Value = Mid(strTab, intI1, 1) & Mid(strTab, intI2, 1) & Mid(strTab, intI3, 1) If ActiveCell.Row >= 50000 Then col = col + 1 Cells(1, col).Select End If ActiveCell.Offset(1, 0).Select Else For intI4 = 1 To intN If intI4 <> intI1 And intI4 <> intI2 And intI4 <> intI3 Then If Len(strTab) > 4 Then For intI5 = 1 To intN If intI5 <> intI1 And intI5 <> intI2 And intI5 <> intI3 And intI5 <> intI4 Then ActiveCell.Value = Mid(strTab, intI1, 1) & Mid(strTab, intI2, 1) & Mid(strTab, intI3, 1) _ & Mid(strTab, intI4, 1) & Mid(strTab, intI5, 1) If ActiveCell.Row >= 50000 Then col = col + 1 Cells(1, col).Select End If ActiveCell.Offset(1, 0).Select End If Next Else ActiveCell.Value = Mid(strTab, intI1, 1) & Mid(strTab, intI2, 1) & Mid(strTab, intI3, 1) & Mid(strTab, intI4, 1) If ActiveCell.Row >= 50000 Then col = col + 1 Cells(1, col).Select End If ActiveCell.Offset(1, 0).Select End If End If Next End If End If Next End If Next Next End Sub

Salutations

@+++++

RGI
__________________________
PS: VBA pour EXCEL est maintenant dans Bureautique Smiley

merci de poser vos questions VBA à cet endroit
salutations

RGI

Un MERCI en retour c'est sympa
et ne pas oublier le tag :

après résolution.

HAUT DE PAGE

kh57
Nouveau membre

Inscrit : 01/05/2008
Messages : 16

#152935 Posté le 11/05/08 à 12:57

bonjour merci pour le code source,

J ai re télécharger le fichier , chez moi ca marche ... Smiley

Avez vous bien l'option "Utilitaire d'analyse" qui est cocher dans les macro complémentaire??

Moi g un micro soft excel 2003 SP3

Sinon mettez a 0 les chiffres dans la case bleu de X7a AH7.

salutation philippe

HAUT DE PAGE

kh57
Nouveau membre

Inscrit : 01/05/2008
Messages : 16

#152936 Posté le 11/05/08 à 13:12

re bonjour ,

En cherchent impeu sur le net j ai trouver ceci pour l'erreur #Nom$

Excel ne reconnaît pas le texte présent dans une formule.

• La macro complémentaire utilitaire d'analyse n'est pas chargée alors que la formule contient une fonction faisant partie de cette macro complémentaire.
• La formule intègre un nom de cellule ou de plage inexistant.
• La formule contient un nom de fonction ou de cellule mal orthographié.
• Vous avez oublié le double point dans la référence à une plage de cellules

Solutions
• Chargez la macro complémentaire Utilitaire d'analyse. Choisissez la commande Outils-Macros complémentaires et cochez l'option Utilitaire d'analyse.
• Encadrez par des guillemets le texte qui doit être affiché tel quel.
Par exemple : ="Somme : " & A5+A6.
• Dans l'adresse d'une plage, séparez par un double point l'adresse des cellules limites.
Par exemple : =SOMME(D5:D67).

J'ai fait le test chez moi en désactivent "l'utilitaire d'analyse " et ca ma donner l'erreur.Je l'ai ré activer , cela re fonctionne .

Cordialement
Philippe

HAUT DE PAGE

RGI
Superviseur :
- Logiciels
Modérateur :
- Visual basic
- Bureautique

Inscrit : 21/08/2006
Messages : 1693

#152942 Posté le 11/05/08 à 15:04

en effet ça fonctionne sur la version 2003 j'étais sur la version 2007 et l'outils d'analyse n'a pas l'air de fonctionner identiquement

je regarde ça
mais pour l'instant je ne comprends pas trop le fonctionnement ;-))))

Cdlt

RGI
__________________________
PS: VBA pour EXCEL est maintenant dans Bureautique Smiley

merci de poser vos questions VBA à cet endroit
salutations

RGI

Un MERCI en retour c'est sympa
et ne pas oublier le tag :

après résolution.

HAUT DE PAGE

RGI
Superviseur :
- Logiciels
Modérateur :
- Visual basic
- Bureautique

Inscrit : 21/08/2006
Messages : 1693

#152946 Posté le 11/05/08 à 15:56

j'ai modifié la macro mais le déroulement reste long
j'ai bloqué l'affichage pendant le traitement afin de gagner quelques 1/100

fichier modifié ICI

RGI
__________________________
PS: VBA pour EXCEL est maintenant dans Bureautique Smiley

merci de poser vos questions VBA à cet endroit
salutations

RGI

Un MERCI en retour c'est sympa
et ne pas oublier le tag :

après résolution.

HAUT DE PAGE

RGI
Superviseur :
- Logiciels
Modérateur :
- Visual basic
- Bureautique

Inscrit : 21/08/2006
Messages : 1693

#152947 Posté le 11/05/08 à 16:27

Aprés recherche du non fonctionnement sur sur la version 2007 je viens de trouver
il faut seulement revalider la fonction de départ dans le fichier X9 ou se trouve la fonction ayant besoin de ce complément et ça fonction comme sur la version 2003

Merci d'avoir éveillé ma curiosité

RGI
__________________________
PS: VBA pour EXCEL est maintenant dans Bureautique Smiley

merci de poser vos questions VBA à cet endroit
salutations

RGI

Un MERCI en retour c'est sympa
et ne pas oublier le tag :

après résolution.

HAUT DE PAGE

RGI
Superviseur :
- Logiciels
Modérateur :
- Visual basic
- Bureautique

Inscrit : 21/08/2006
Messages : 1693

#152960 Posté le 12/05/08 à 08:51

après exécution le programme se heurte à la limite "Précision numérique 15 chiffres"
donc après 111111111111111 ça n'est plus juste

salutations

RGI
__________________________
PS: VBA pour EXCEL est maintenant dans Bureautique Smiley

merci de poser vos questions VBA à cet endroit
salutations

RGI

Un MERCI en retour c'est sympa
et ne pas oublier le tag :

après résolution.

HAUT DE PAGE

kh57
Nouveau membre

Inscrit : 01/05/2008
Messages : 16

#152992 Posté le 12/05/08 à 16:19

Merci a vous pour l intérêt que vous portez a mon projet.

Vous me dite que le programme "se heurte à la limite "Précision numérique 15 chiffres"" , cela veut il dire que ce je veut ne peut pas fonctionner avec excel?

D'autre part je me disais que vus la durée que cela prend ,je ferais peut etre mieux de m'orienter ver un programme en C ou C++ , D'apres vous??

Quoi qu il en soit , merci pour votre aide.

Salutation philippe.

HAUT DE PAGE

RGI
Superviseur :
- Logiciels
Modérateur :
- Visual basic
- Bureautique

Inscrit : 21/08/2006
Messages : 1693

#152994 Posté le 12/05/08 à 16:56

il faudrait peut-être faire des tests en augmentant au fur et à mesure ???

j'ai fais des tests déjà sur le dépassement de cette limite de 15 chiffres et le dernier chiffre était erroné

peut-être faudrait-il passer à du C ou C++ mais là je ne peux pas vous aider

Cdlt

RGI
__________________________
PS: VBA pour EXCEL est maintenant dans Bureautique Smiley

merci de poser vos questions VBA à cet endroit
salutations

RGI

Un MERCI en retour c'est sympa
et ne pas oublier le tag :

après résolution.

HAUT DE PAGE


	Page précédente	Page suivante
FORUM BUREAUTIQUE

PAGES : [1] [2] [3] [4]

.: Site Web développé par Julien Pichot et l'équipe MPWG avec www.evolvia-web.com :.