Résultats pour "h2so4"

5 résultats pour cette recherche

Bonjour

J'ai planché sur le code mais je n'arrive toujours pas à trouver où ça cloche? Dommage ce code est rapide et efficace.

merci.

15essai5.xlsm (20.26 Ko)

Bonsoir,

J'ai une macro réalisée par h2so4 qui fonctionne.

En permutant 3 fois un nombre, j'ai réussi 100% de réussite.

Je joins un exemple avec ma solution / celle de la macro, peut-on l'améliorer pour trouver mon résultat ( fait au crayon)

Merci à h2so4 s'il passe ici...

35essai23.xlsm (20.26 Ko)

Bonjour à tous,

J'ai une macro réalisée par h2so4 qui fonctionne parfaitement.

Quand j'ajoute des données en A, le classement ne se fait pas entièrement et je ne comprends pas la raison?

(j'ajoute environ une trentaine de lignes à trier)

Si h2so4 passe et voit de la lumière...pour m'éclairer!!

je joins un exemple où ici c'est la ligne 1 (pb du 1 et 2 ), avec plus de lignes l'erreur est dans une ou plusieurs lignes.

merci et bonne soirée

11essai2.xlsm (18.83 Ko)

Bonjour,

J'essaye de travailler sur le fichier de h2so4 "classement" (merci pour ce code), pour tenter de regrouper en solo ou en duo une base, par le VBA, et dans le même esprit que précédemment.

En vain !

S'il passe par ici et voit de la lumière, ce serait sympa de m'aider car je sèche. (je joins un exemple bisounours!)

merci d'avance.

20regroupement.xlsx (10.75 Ko)

Re,

Désolé de vous déranger, mais je n'ai pas vérifié le 2ème code que vous m'aviez créé cet après-midi.

Il ne fonctionne pas. Je voulais un tri par cellule et par colonne, là ce n'est pas le cas. Cela aurait pu être bon si j'avais réussi à faire un collé-copié de la colonne A mais ça ne fonctionne pas non plus !

Si vous avez la gentillesse et le temps disponible de revoir le fichier Excel ci-joint je vous remercie.

Bonne soirée,

Sub trierlacellule()
For Each c In Range("A300:A1000")
If c = Empty Then Exit For
tableau = Split(c.Value, "-")
NbMin = LBound(tableau)
For var1 = UBound(tableau) To LBound(tableau) Step -1
    For var2 = NbMin + 1 To var1
        If tableau(var2 - 1) > tableau(var2) Then
vartemp = tableau(var2 - 1)
            tableau(var2 - 1) = tableau(var2)
            tableau(var2) = vartemp
        End If
    Next var2
Next var1
For i = 0 To UBound(tableau)
j = j & "-" & tableau(i)
Next i
c.Value = Mid(j, 2)
Next
End Sub

Recherches récentes

h2so4 trichemaintenancemaintenance outillagepieces rechangegestion stock piecesgestion stock pieces rechangelistview efface lignesuivi bibliothequerouletteclickergestionnairecaisse enregistreusecalendrier absence juinphotoformulaire recherche moiscalendrier salarieimporter json pmusommeprod mois anneerecherchev doublonauto clicker