XL 2019 Inverser des cellules de facon aleatoire (débutant)

[Jecomprendpas]

Bonjour,

Je travail actuellement sur un très gros projet je vous prie de bien vouloir m'aider si vous avez un moment, je souhaiterai inverser des cellules de façon aléatoire (50%), sans changer l'ordre de leurs colonnes respective. je vous laisse un petit exemple en image pour illustrer la chose:

http://image.noelshack.com/fichiers/2021/20/4/1621484967-fdsfg.jpg

merci bien

 

[sylvanu]

Bonjour JeComprendsPas,
S'il vous plait, faites l'effort de nous fournir un fichier pas une image, cela nous éviterait de se le retaper à la main. 😉
En PJ un essai avec :

Sub Inverse()
    Dim L%, DL%, Buffer$
    Application.ScreenUpdating = False
    DL = Range("A65500").End(xlUp).Row
    For L = 1 To DL
        If Rnd >= 0.5 Then
            Buffer = Cells(L, "A")
            Cells(L, "A") = Cells(L, "C")
            Cells(L, "C") = Buffer
        End If
    Next L
End Sub

Le taux d'inversion est statistiquement de 50% puisque basé sur un nombre aléatoire.

 

[Jecomprendpas]

Merci pour ton retour sylvanu,

Je suis un débutant complet avec excel, dans ton exemple le bouton fonctionne pas, je sais pas ou entrer la ligne de code, mais sinon oui c'est tout a fait ce que je recherche.

 

[sylvanu]

Re,
Bien sur que mon fichier marche.
Avez vous activé les macros ?

L'éditeur VBA peut être atteint avec ALT+F11, ou onglet Développeur/Visual basic.

 

[Jecomprendpas]

Ah oui effectivement ca fonctionne mieux avec les macros activé x), juste ca serai aussi possible de donner une couleur a la cellule ? par exemple quand la cellule A en rouge va de gauche a droite

Je te remercie c'est deja nickel

 

[sylvanu]

Re,
Les cellules qui sont inversées sont en rouge.

 

[Jecomprendpas]

Non, c'est pas vraiment ca. je voudrais que la cellule garde sa couleur silteplait, comme ca: http://image.noelshack.com/fichiers/2021/20/4/1621524062-fezfdf.jpg

toutes les cellules gardent leurs couleurs

 

[sylvanu]

C'était pas très clair. En PJ c'est rectifié.

 

[Jecomprendpas]

Merciiii passe une bonne journée sylva