Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.
  • Initiateur de la discussion Initiateur de la discussion celine123
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

C

celine123

Guest
bonjour a tous,
j'ai un fichier Excel contenant 6 feuilles
sur les six feuille j’aimerai mettre des X de façon aléatoire par bloc pour les six feuilles
je pense que ça doit être possible par des macro
 

Pièces jointes

bonjour

à essayer

VB:
Sub AleaX()
Dim T1(1 To 60, 1 To 2), i As Long, Ws As Worksheet
For Each Ws In Worksheets
    Randomize
    For i = 1 To 60
        T1(i, 2) = "x"
    Next
    For i = 1 To 60 Step 4
        decal = Int(4 * Rnd)
        T1(i + decal, 1) = "X"
        T1(i + decal, 2) = ""
    Next
    Ws.Range("G6").Resize(60, 2) = T1
    Erase T1
Next
End Sub

A+
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
10
Affichages
309
Réponses
2
Affichages
184
Réponses
4
Affichages
146
D
  • Question Question
Réponses
5
Affichages
212
Didierpasdoué
D
  • Question Question
XL 2019 B
Réponses
10
Affichages
596
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…