Deus petites questions....

[Claudy]

Bonjour, juste deux petites questions:
Q1:

Comment par macro, remplir directement une plage, dans le genre:
Range("A1:A5").value="lundi,Mardi,Mercredi,Jeudi,vendredi"

Q2:
La macro cidessous fonctionne bien sur petite plage:

Sub points_Aleatoires()
Dim cel As Range
For Each cel In Selection
cel = CInt((Rnd() * 10))
Next
End Sub

Mais sur plusieurs plages ou plages trop grande, c'est assez lent!
Comment pouvoir y remédier?

Merci d'avance pour vos réponses,
Claudy

 

[tototiti2008]

Re : Deus petites questions....

Bonjour Claudy,

Pour la question 1 tu peux essayer

Range("A1:A5").Value = Application.Transpose(Array("lundi", "Mardi", "Mercredi", "Jeudi", "vendredi"))

Pour la 2ème, peut-être

    Selection.Formula = "=INT(RAND()*10)"
    For Each Ar In Selection.Areas
        Ar.Value = Ar.Value
    Next

 

[VDAVID]

Re : Deus petites questions....

Bonjour Claudy,

Une proposition pour chaque question:

Sub étirer()
Range("A1").Value = "Lundi"
Range("A1").AutoFill Destination:=Range("A1:A5")
End Sub

Sub Nbaléatoire()

'Pour les nombres aléatoires 65536 lignes en environ 1sec

Dim tabl()
Dim i As Long

tabl = Range("A1:A65536").Value 'Ma plage
    
    For i = LBound(tabl()) To UBound(tabl())
        
        tabl(i, 1) = CInt((Rnd() * 10))
    
    Next i
    
Range("A1:A65536").Value = tabl 'Ma plage
    
End Sub

Bonne journée

EDIT: Bonjour Tototiti2008

 

[Claudy]

Re : Deus petites questions....

Ok, merci à vous deux pour le gain de temps.....
Claudy