début en VBA .... recherche fonction toute simple

[2b7a]

bonjour à toutes et tous
et très bonne année !

Je me lance dans VBA ; pour l'instant ... c'est du chinois absolu !


En fait, je veux juste faire quelques petites macros pour "colorier" des cellules.
J'ai donc fait la mini-macro ci-dessous en mettant la bordure et la couleur désirée
Mais quand je l'applique, bien sûr, elle ne colorie que ma cellule C2
..... là est mon problème !!
je voudrais que cette macro "colorie" des cellules aléatoires ; ex : A10:A12 ; ou A10:C20, ou H15 ; ou B8 ;etc ...

Quelle fonction dois-je utiliser ?

.... ne vous moquez pas ... c'est ma toutes première macro !!!

D'avance, merci !


Sub tteszones()
'' tteszones Macro
' Macro enregistrée le 04/01/2012
'

'
Range("C2").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Interior
.ColorIndex = 24
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
End Sub

 

[Guest]

Re : début en VBA .... recherche fonction toute simple

Bonjour,

tu peux enlever la ligne Range("C2").Select
Et ta macro fonctionnera sur la sélection en cours.

A+

 

[2b7a]

Re : début en VBA .... recherche fonction toute simple

Merci beaucoup Hasco !

.. tu vois, mes débuts sont "basiques".
Bonne journée à toi

 

[Victor21]

Re : début en VBA .... recherche fonction toute simple

Bonjour, 2b7a.

Bonne année à vous aussi.

Je me lance dans VBA ; pour l'instant ... c'est du chinois absolu !

Pas d'inquiétude : au début, c'est toujours comme ça... C'est ensuite que ça se complique !😛😛

Faites le test en quotant la première ligne ainsi :

' Range("C2").Select

en sélectionnant une zone aléatoire et en lançant la macro.

Edit : Bing ! Bonjour, Hasco, et pardon pour la bousculade !

 

[Guest]

Re : début en VBA .... recherche fonction toute simple

Re 2b7a,

Hello Victor😀

.. tu vois, mes débuts sont "basiques".

Il vaut mieux que les débuts, soient basiques, comme furent les miens et ceux de temps d'autres. C'est la meilleur façon d'apprendre, en se familiarisant avec le langage et ses comportement. C'est mieux que de se lancer dans des programmes qu'on ne maîtrisera jamais et qui découragent. Avant de faire HEC, il faut passer par le cp.

Qui va piano, va sano.

A+ et bon courage

[Edit]Pas de blème, il y a des carambolages de qualité...

 

[MJ13]

Re : début en VBA .... recherche fonction toute simple

Bonjour 2b7a, Ges, Patrick

' Macro enregistrée le 04/01/2012

Quand je lis ça, cela prouve que certains ont compris qu'on pouvait enregistrer des macros avec l'enregistreur (vive Henry, le seul qui travaille 24/24) 😱.

C'est un bon début pour commencer le VBA 🙂.

 

[Staple1600]

Re : début en VBA .... recherche fonction toute simple

Re

En premier, prépares ton tube d'antalgique et une crème relaxante pour ton doigt (celui qui va devoir frénétiquement caresser la touche F1 aprés avoir lu ce qui suit 😉 )

je voudrais que cette macro "colorie" des cellules aléatoires ; ex : A10:A12 ; ou A10:C20, ou H15 ; ou B8

La macro ci-dessous colorie, borde et tout cela selon un hasard relativement hasardeux mais pas trop.

Sub formataleat(MaPlaGe As String)
'' tteszones Macro
' Macro enregistrée le 04/01/2012
Dim x&, y&, i&, j&
x = Range(MaPlaGe).Rows.Count
y = Range(MaPlaGe).Columns.Count
For i = 1 To x
For j = 1 To y
    Range(MaPlaGe).ClearFormats
    With Range(MaPlaGe).Resize(Int((Rnd * i) + 1), Int((Rnd * j) + 1))
        .Borders.LineStyle = 1
        .Interior.ColorIndex = Int((Rnd * 56) + 1)
' remplacer Int((Rnd * 56) + 1) par 24 si tu veux garder la même couleur
    End With
Next j
Next i
End Sub

Sub colorie()
formataleat "A1:C30"
End Sub

Pour tester lancer la macro colorie plusieurs fois.

PS: C'est volontiers que je répondrai aux questions qui tu ne manqueras pas de me poser 😉

 

[2b7a]

Re : début en VBA .... recherche fonction toute simple

euh ... c'est pas un tube d'antalgique ... c'est un camion !!
je vais regarder tout cela calmement !!

merci ... et à très bientôt !!