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

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 20 Mai 2021

• #2

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 :

VB:

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.

 

Pièces jointes

• Classeur1.xlsm

  14.7 KB · Affichages: 17

Vote positif 0 Vote négatif

J

Jecomprendpas

XLDnaute Nouveau

• 20 Mai 2021

• #3

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.

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 20 Mai 2021

• #4

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.

 

Vote positif 0 Vote négatif

J

Jecomprendpas

XLDnaute Nouveau

• 20 Mai 2021

• #5

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

 

Pièces jointes

• QQQQQQQQ.xlsm

  15.8 KB · Affichages: 5

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 20 Mai 2021

• #6

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

 

Pièces jointes

• QQQQQQQQ.xlsm

  15.4 KB · Affichages: 4

Vote positif 0 Vote négatif

J

Jecomprendpas

XLDnaute Nouveau

• 20 Mai 2021

• #7

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

 

Pièces jointes

• EZFDSF.xlsm

  15.5 KB · Affichages: 3

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 20 Mai 2021

• #8

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

 

Pièces jointes

• EZFDSF.xlsm

  15.9 KB · Affichages: 5

Vote positif 0 Vote négatif

J

Jecomprendpas

XLDnaute Nouveau

• 20 Mai 2021

• #9

Merciiii passe une bonne journée sylva

 

Vote positif 0 Vote négatif