XL 2019 VBA EXCEL

losstocam

XLDnaute Nouveau
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 ».
1585823419367.png
 
Dernière édition:

Dranreb

XLDnaute Barbatruc
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.
 

Robert

XLDnaute Barbatruc
Repose en paix
Bonjour le fil, bonjour le forum,

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

VB:
[/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)]
 

Staple1600

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

Rédigé sur le cahier à spirale du Prof¸ l'exercice à dit:
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

XLDnaute Barbatruc
Repose en paix
Re,

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

VB:
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

XLDnaute Barbatruc
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 ?
 

Discussions similaires

Statistiques des forums

Discussions
311 735
Messages
2 082 024
Membres
101 873
dernier inscrit
excellllll