Reprise du message précédent :
A ok, c'est assez complex mais je vois mieux maintenant, merci.
 
Tu as mi cela :
If tableau(col, lig) = MonChoix Then
           Range(MonChoix).Interior.ColorIndex = 3
 
et cela ne colorie que la case où est la tour, et enfaite moi mon but est de colorier toute les cases où la tour peut se déplacer (en clair toute la ligne et toute la colone ou elle se trouve) sauf la ou elle est.
 
Moi j'ai pensé a cela mais ca marche pas :
 
If tableau(col, lig) = MonChoix Then
            Columns("col:col" ).Interior.ColorIndex = 3
            Rows("lig:lig" ).Interior.ColorIndex = 3
            Range(MonChoix).Interior.ColorIndex = 0

Avec ca marche
 
For Col = 1 To NbCol
        For lig = 1 To NbLig
         If tableau(Col, lig) = MonChoix Then
            For i = 1 To NbCol
                Range(tableau(i, lig)).Interior.ColorIndex = 3
            Next
            For i = 1 To NbLig
                Range(tableau(Col, i)).Interior.ColorIndex = 3
            Next
            Range(MonChoix).Interior.ColorIndex = 0
             
         End If
        Next
    Next

ouii ca marche

Et le pire c'est que quand je lis le programme je comprend, et j'aurais pu trouver (sauf l'histoire du Chr(64+...)) mais j'arrive pas (encore esperon) a le faire,  comment l'ecrire.

En tout cas merci bien a tous et là tout particulierment a toi Paul Hood

re
 
voila pour tes soucis de majuscule je demande ceci :

Et ceci ne marche pas :

Il a t-il un moyen simple de simplifier les choses (eviter de recopier votre_classe plein de fois) ?

pouet, le mieux est de le recopier à chaque fois... Ou avec un select case ?

ok, c'est pas grave, c'etait pour savoir, pour eviter de charger le truck mais bon ya que ça donc c'est pas grave, mais merci

donc j'ai un soucis  
 
c'est le trie a bulle
 
Dans une colone un tableau de 10 valeurs non triées déja entrées (en A1), et dans une autre les valeur trié vide au debu (B2 par exemple).
 
j'ai cela :
 

 
je sais pas si ca marche, mais en tout cas ça ne m'affiche aucune valeur. Si ya une methode mieu (mais aussi simple (ou preske)), merci de proposer

Bonsoir,
je n'ai pas suivi le problème des majuscules, mais tu peux essayer ceci:
 
If ucase(votre_classe) = "QLIO1" then
Cordialement

merci ca marche
 
sinon tu peux pas m'aider pour mon tableau de 10 lignes et 1 colone rempli de valeur non triés a placer dans une colonce a coté mais triés cette fois si ?

enfin meme jsute des bon tuto qui parle de trie de valeurs d'un tableau, j'ai cherché deja mais j'ai pas trouver.
 
merci d'avance

Bonsoir,
trouvé à cette adresse:
http://xlbysteph.free.fr/aideinfor [...] _vba_2.htm
 
le sub suivant qui peut t'inspirer
 Sub BubbleSortExample()
 
 
 Dim myArray As Variant
 myArray = Array(2, 5, 3, 1, 4, 1)
 First = LBound(myArray)
 Last = UBound(myArray)
 myMessage = ""
 For i = First To Last
 myMessage = myMessage & myArray(i)
 Next i
 MsgBox "Unsorted order is " & myMessage
 'Here's the actual bubble sort routine
 For i = First To Last - 1
 For j = i + 1 To Last
 If myArray(i) > myArray(j) Then
 Temp = myArray(j)
 myArray(j) = myArray(i)
 myArray(i) = Temp
 End If
 Next j
 Next i
 myMessage = ""
 For i = First To Last
 myMessage = myMessage & myArray(i)
 Next i
 MsgBox "Sorted order is " & myMessage
 End Sub
 
 
Question: tu veux voir afficher les résultats où?
 
Si tu ne dis pas dans ton code de mettre les résultats dans les cellules, elle resteront dans le tableau, donc nonvisibles
Cordialement
 
 

Bonsoir,

déjà merci de prendre le temps d'essayer de m'aider

En clair :

J'ai un tableau de 10 lignes et 1 colone en A de valeurs non trié. Et comment en B (par exemple) les avoir triées ?

PS : en plus, en recopiant le tableau je me suis trompé, j'ai mis 2 fois 30, mais c'est pas important.

Merci d'avance

j'ai fait ca deja : je sens j'y suis presque
 

 
programme legerment edité

avec mon programme, il me met dans la colone B que le premier chiffre :

exemple :

A       B

12     12
10     12
78     12
45     12
14     12
78     12
14     12

Bonjour,
regardes bien ta séqence de "bascule" de valeur:
a = tableau3(i)  qu'as-tu dans a?          
 tableau3(i + 1) = tableau3(i) qu'as-tu dans tableau de i+1?
 tableau3(i) = a  qu'as-tu dans tableau(i)?
 
 
dis moi où est passé tableau3(i+1)?
à quoi set de boucler sur j avec i invariable ?
Cordialement

ok je vois
 
mais j'ai mis ca :
 
            a = tableau3(i + 1)
            tableau3(i + 1) = tableau3(i)
            tableau3(i) = a
 
ca marche pas plus

bonjour,
j'ai fait un petit edit sur le post précédent

ok la boucle j sert a rien, j'ai enlever mais ca marche toujours pas
 
le programme me donne ca :
 
A   B
 
50  0
12  0
60  0
30  0
45  50
 
 
comme si il voyait que 50 était plus grand que tout les autre variable et que donc il metait zero aux autres...

Pour suivre le fil je suis obligé de passer de "programma simple ..." à ton autre post .
peut-on passer sur l'autre, le sujet étant strictement le même?

la boucle j sert à quelque chose, c'est l'indice i à l'intérieur qui devrait être = j     et  j+1
 

la ?
 
http://forum.hardware.fr/forum2.ph [...] 0#t1484703

Columns("col:col" ) demande la lettre de la colonne : Columns("A:A" ) or la valeur de la colonne dans ton code est un entier, pas une lettre !
Idem pour la ligne suivante.

Bonjour Papy Octet,
Tu as fait comme je le fais souvent: tu as oublié de passer à la page 2 du post. lol
Cordialement