Afficher des valeurs dans excel via vba

Résolu
zebulon2503 Messages postés 1228 Date d'inscription   Statut Membre Dernière intervention   -  
zebulon2503 Messages postés 1228 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

Voila mon probleme, jai cree un programme de calcul de combinaison (binome de newton) en vba. Jaimerais afficher toutes les combinaisons possibles dans le tableur excel sachant que le nombre de combinaisons et d'elements par combinaison varie (c'est des factorielles).

J'ai trouver le code pour afficher un resultat dans un case (Range("NumCase")="Result") mais est il possible de le faire en fonction du nombre de resultat ?
Comme un truc du genre "Range (for i=("A1") to i=(NbreResult))="Result" " ?

C'est assez important, c'est pour mon projet de fin d'etudes, et j'ai jamais code en VBA avant, je decouvre et n'ai pas tellement de temps avant de montrer mes resultats...

Merci d'avance a tous !


A voir également:

3 réponses

lermite222 Messages postés 8724 Date d'inscription   Statut Contributeur Dernière intervention   1 191
 
C'est effectivement difficile de faire une macro dont ont a pas les données, toutefoi voila une exemple pour transposer une ligne en 3 colonnes

Supposons les données définitive dans la ligne D1 à .... ZZ1
Mettons les données dans les lignes 1 à ... dernière donnée

Sub Aligne()
Dim i As Long
Dim V As Integer, B As Integer
    Sheets("feuil1").Select
    V = 1 '1ère ligne où écrire
    'Lire toute les cellules de la ligne de données
    For i = 4 To Range("D1").SpecialCells(xlCellTypeLastCell).Column Step 3
        'Les transposer dans colonne A,B et C
        For B = 1 To 3
            Cells(V, B).Value = Cells(1, i + B - 1).Value
        Next B
        V = V + 1
    Next i
End Sub

Quand tu serras plus avancé ont pourras probablement allez plus loin, n'hésite pas à revenir sur le sujet.
A+
1
zebulon2503 Messages postés 1228 Date d'inscription   Statut Membre Dernière intervention   110
 
Merci lermite222 !

Ok, je reviendrais quand jaurais fini toute la partie calcul, filtrage etchoix des combinaisons..... Pour la partie affichage :(
Dur dur la vie de programmeur quand on est oblige d'utiliser un langage inconnu....
Donc rdv pour la suite, la semaine prochaine normalement ;-)

Ciao

P.S: Je laisse le sujet en non resolu pour y revenir ensuite
0
lermite222 Messages postés 8724 Date d'inscription   Statut Contributeur Dernière intervention   1 191
 
Bonjour,
Les résultats sont mémorisés dans quoi ? un tableau ? une colonne de feuilles ?
A+
0
Erwan
 
Essaie comme ceci :

for i = 1 to x ' x étannt le nombre maximum de cellules à adresser
CellName = "A" & CStr(i ) ' si on adresse la colonne A
Range(CellName).Select
ActiveCell.FormulaR1C1 = Value ' valeur à inscrire dans la cellule
next i
0
lermite222 Messages postés 8724 Date d'inscription   Statut Contributeur Dernière intervention   1 191
 
Désolé, mais avant de donner des conseils tu ferais bien de revoir tes connaissances en VBA.
A+
0
zebulon2503 Messages postés 1228 Date d'inscription   Statut Membre Dernière intervention   110
 
Je vais essayer, mais la, ca affiche toutes les combinaisons sur une ligne non ?
Moi j'aimerais obtenir un truc du genre :

A B C
1 x y z
2 y z x
3 z x y

Avec x, y et z 3 elements de mes combinaisons (differents suivant les combinaisons)
J'espere etre clair :-S

Merci
0
zebulon2503 Messages postés 1228 Date d'inscription   Statut Membre Dernière intervention   110 > lermite222 Messages postés 8724 Date d'inscription   Statut Contributeur Dernière intervention  
 
Que veux tu dire par "avant de donner des conseils" ???
0
lermite222 Messages postés 8724 Date d'inscription   Statut Contributeur Dernière intervention   1 191 > zebulon2503 Messages postés 1228 Date d'inscription   Statut Membre Dernière intervention  
 
Ce n'est pas pour toi. :-D
0
zebulon2503 Messages postés 1228 Date d'inscription   Statut Membre Dernière intervention   110 > lermite222 Messages postés 8724 Date d'inscription   Statut Contributeur Dernière intervention  
 
Ok ok, pas de soucis ^^
Mais tu ty connais toi en VBA ? Si oui, tas pas une tite idee concernant mon bazar ?

Merci
0