Répéter une macro sur plusieurs lignes
Résolu/Fermé
Agroeco77
Messages postés
2
Date d'inscription
jeudi 1 mars 2018
Statut
Membre
Dernière intervention
2 mars 2018
-
Modifié le 1 mars 2018 à 22:48
Agroeco77 Messages postés 2 Date d'inscription jeudi 1 mars 2018 Statut Membre Dernière intervention 2 mars 2018 - 2 mars 2018 à 14:23
Agroeco77 Messages postés 2 Date d'inscription jeudi 1 mars 2018 Statut Membre Dernière intervention 2 mars 2018 - 2 mars 2018 à 14:23
A voir également:
- Randbetween vba
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Macro word - Guide
- Comment aller à la ligne sur excel - Guide
- Jitbit macro recorder - Télécharger - Confidentialité
- Excel trier par ordre alphabétique en gardant les lignes - Guide
2 réponses
jordane45
Messages postés
38430
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
20 février 2025
4 735
Modifié le 1 mars 2018 à 22:56
Modifié le 1 mars 2018 à 22:56
Bonjour,
Il te suffit de faire une boucle
un truc du genre :
Il te suffit de faire une boucle
un truc du genre :
Sub Aleatoire() Dim sh as WorkSheet Dim plage As Range, cel As Range, alea As Double Set Sh = ActiveSheet For l = 1 to 60 Set plage = Sh.Range("A" & l & ":F" & l) plage.Value = "" If plage.Count > 6 Then Exit Sub Randomize For Each cel In plage 1 alea = WorksheetFunction.RandBetween(1, 6) If Application.CountIf(plage, alea) Then GoTo 1 Else cel = alea Next Next End Sub
julia Namor
Messages postés
524
Date d'inscription
jeudi 27 mars 2014
Statut
Membre
Dernière intervention
13 janvier 2024
33
1 mars 2018 à 22:54
1 mars 2018 à 22:54
Bonjour
comme ceci
cdtl
comme ceci
Sub Aleatoire()
Dim plage As Range, cel As Range, alea As Double
Application.ScreenUpdating = False
Set plage = Range("A1:BF1")
plage.Value = ""
If plage.Count > 60 Then Exit Sub
Randomize
For Each cel In plage
1 alea = WorksheetFunction.RandBetween(1, 60)
If Application.CountIf(plage, alea) Then GoTo 1 Else cel = alea
Next
Application.ScreenUpdating = True
End Sub
cdtl
jordane45
Messages postés
38430
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
20 février 2025
4 735
1 mars 2018 à 22:58
1 mars 2018 à 22:58
Bonsoir,
Il a demandé :
Pas écrire des nombres aléatoire entre 1 et 60 sur 60 colonnes....
Il a demandé :
afficher sur une ligne au hasard des numéro entre 1 et 6 sans répétition.
Je voudrais le faire pour 60 lignes par exemple.
Pas écrire des nombres aléatoire entre 1 et 60 sur 60 colonnes....
2 mars 2018 à 14:23
Très bonne journée,
Agroeco77