Répéter une macro sur plusieurs lignes
Résolu
Agroeco77
Messages postés
2
Date d'inscription
Statut
Membre
Dernière intervention
-
Agroeco77 Messages postés 2 Date d'inscription Statut Membre Dernière intervention -
Agroeco77 Messages postés 2 Date d'inscription Statut Membre Dernière intervention -
A voir également:
- Randbetween vba
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Écrire plusieurs lignes dans une cellule excel mac - Guide
- Jitbit macro recorder - Télécharger - Confidentialité
- Télécharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Macro word - Guide
2 réponses
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
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
Très bonne journée,
Agroeco77