XL 2019 VBA EXCEL

[losstocam]

Bonjour j'ai cet exercice a faire mais je n'y arrive pas quelqu'un aurait la solution ?

Créer une macro nommée « exo2 » affectée à un bouton qui réalisera :

• Ajustez la dimension des cellules 9×9 carrées.
• Colorez les deux diagonales des cellules 9×9 avec une couleur en utilisant deux boucles « for … next » et le jugement « if then … end if ».
• Colorez un quart quelconque des cellules 9×9 non diagonales avec une autre couleur en utilisant deux boucles « for … next » et le jugement « if then … end if ».

 

[jmfmarques]

Bonjour losstocam
Ai-je bien lu :

j'ai

cette exercice a faire

Mais tu penses peut-être que ton professeur n'est pas capable de te donner cette solution si toi, tu n'y parviens pas ?

 

[losstocam]

Le prof nous envoie des exercices avec juste le lien du cours excel mais je ne comprends pas comment faire et ce prof ne répond pas au mail

 

[Dranreb]

Bonjour.
Quelle difficulté rencontrez vous à faire ça ?
Admettons que vous utilisiez des variables L et C pour la ligne et la colonne.
Si L = C déjà vous êtes sur la 1ére diagonale => en rouge
Si L + C = 10 vous êtes sur l'autre => en rouge aussi. Etc.

 

[losstocam]

j'arrive a faire le damier mais ça non je ne comprends pas comment changer les couleurs etc

 

[Dranreb]

Pour les diagonales c'est Cells(L, C).Interor.Color = RGB(255, 0, 0) par exemple.

 

[patricktoulon]

bonjour

c'est un exercice que tu trouvera sur dvp il est pas récent il va falloir chercher

 

[Robert]

Bonjour le fil, bonjour le forum,

je m'e***rde trop alors désolé :

[/COLOR]
Sub Macro1()
Dim PL As Range
Dim LI As Byte
Dim COL As Byte

Columns("A:I").ColumnWidth = Rows(1).RowHeight / 6
Set PL = Range("A1:I9")
PL.Interior.ColorIndex = xlNone
For LI = 1 To 9
    For COL = 1 To 9
        If LI = COL Or LI = 10 - COL Then Cells(LI, COL).Interior.ColorIndex = 3
    Next COL
Next LI
For LI = 1 To 9
    For COL = 2 To 8
        If COL >= LI + 1 And COL <= 9 - LI Then Cells(LI, COL).Interior.ColorIndex = 5
    Next COL
Next LI
End Sub[COLOR=rgb(0, 0, 0)]

 

[patricktoulon]

Bonjour a tous
@Robert simplifie toi la vie

Sub test()
    verlan = 10
    For i = 1 To Range("A1:I9").Columns.Count
        Cells(i, i).Interior.Color = vbRed
        Cells(verlan - i, i).Interior.Color = vbRed
    Next
End Sub

 

[Robert]

Re,

Oui je sais, je complique souvent dans ces cas-là. Je te dis pas le temps que j'y ai passé... 😵
Mais ton code ne colore pas un quart en bleu !...

 

[Staple1600]

Bonjour le fil, losstocam, jmfmarques, Dranreb, Robert, patricktoulon

Colorez les deux diagonales des cellules 9×9 avec une couleur en utilisant deux boucles « for … next » et le jugement « if then … end if ».
Colorez un quart quelconque des cellules 9×9 non diagonales avec une autre couleur en utilisant deux boucles « for … next » et le jugement « if then … end if ».

 

[Robert]

Re,

Heu... Là tu chipotes... Comme dirait Coluche...

Sub Macro1()
Dim PL As Range
Dim LI As Byte
Dim COL As Byte

Columns("A:I").ColumnWidth = Rows(1).RowHeight / 6
Set PL = Range("A1:I9")
PL.Interior.ColorIndex = xlNone
For LI = 1 To 9
    For COL = 1 To 9
        If LI = COL Or LI = 10 - COL Then
            Cells(LI, COL).Interior.ColorIndex = 3
        End If
    Next COL
Next LI
For LI = 1 To 9
    For COL = 2 To 8
        If COL >= LI + 1 And COL <= 9 - LI Then
            Cells(LI, COL).Interior.ColorIndex = 5
        End if
    Next COL
Next LI
End Sub

 

[Staple1600]

Re,

•>Robert
1) Ce n'est pas moi, le prof.
2) Je ne fais que citer le sujet
3) Tout comme toi, confiné donc emmerdé
(donc faut bien que je m'occupe mon temps 😉)

• D'ailleurs j'aimerai bien savoir dans quel cursus on fait du VBA à l'école ?

 

[jmfmarques]

Ouais
Si vous voulez vous amuser, commencez donc par le début.
Pour mémoire :

une macro nommée « exo2 » affectée à un bouton qui réalisera :Ajustez la dimension des cellules 9×9 carrées.

Revenez lorsque vous l'aurez fait (par macro, hein ...)

 

[Robert]

Arf ! Le retour du prof...