Afficher des valeurs dans excel via vba

Résolu/Fermé
zebulon2503 Messages postés 1228 Date d'inscription jeudi 17 avril 2008 Statut Membre Dernière intervention 11 février 2016 - 30 avril 2008 à 11:27
zebulon2503 Messages postés 1228 Date d'inscription jeudi 17 avril 2008 Statut Membre Dernière intervention 11 février 2016 - 30 avril 2008 à 13:16
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 dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 191
30 avril 2008 à 13:09
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 jeudi 17 avril 2008 Statut Membre Dernière intervention 11 février 2016 110
30 avril 2008 à 13:16
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 dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 191
30 avril 2008 à 11:34
Bonjour,
Les résultats sont mémorisés dans quoi ? un tableau ? une colonne de feuilles ?
A+
0
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 dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 191
30 avril 2008 à 11:43
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 jeudi 17 avril 2008 Statut Membre Dernière intervention 11 février 2016 110
30 avril 2008 à 11:44
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 jeudi 17 avril 2008 Statut Membre Dernière intervention 11 février 2016 110 > lermite222 Messages postés 8724 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020
30 avril 2008 à 11:45
Que veux tu dire par "avant de donner des conseils" ???
0
lermite222 Messages postés 8724 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 191 > zebulon2503 Messages postés 1228 Date d'inscription jeudi 17 avril 2008 Statut Membre Dernière intervention 11 février 2016
30 avril 2008 à 11:56
Ce n'est pas pour toi. :-D
0
zebulon2503 Messages postés 1228 Date d'inscription jeudi 17 avril 2008 Statut Membre Dernière intervention 11 février 2016 110 > lermite222 Messages postés 8724 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020
30 avril 2008 à 11:58
Ok ok, pas de soucis ^^
Mais tu ty connais toi en VBA ? Si oui, tas pas une tite idee concernant mon bazar ?

Merci
0