Discussion :

[p.p96]

Bonjour à tous, je suis complètement débutante en vba et j'ai reçu un devoir où je dois écrire un programme vba selon l'énoncé. Le problème c'est que je bloque complètement, je cherche par tous les moyens mais je n'y arrive pas. Pourriez-vous SVP m'aider ? Vous me seriez d'une aide très précieuse !

L'énoncé du devoir est le suivant :
On considère une plage carrée d’une feuille Excel constituée des 25 premières lignes et des 25 premières colonnes. La première diagonale (ascendante) est celle qui débute en L25C1 et se termine en L1C25. La deuxième diagonale (descendante) est celle qui débute en L1C1 et se termine en L25C25

On vous demande de choisir 5 nombres compris entre 1 et 25, notés N1, N2, N3, N4 et N5 puis d’écrire un programme VBA qui :
 Affecte la couleur correspondante à N1 aux cellules la première diagonale ;
 Affecte la couleur N2 aux cellules de la deuxième diagonale ;
 Affecte la couleur N3 aux cellules de la colonne 13 dont la ligne est paire
 Affecte la couleur N4 aux cellules de la colonne 13 dont la ligne est impaire ;
 Affecte la couleur N5 aux cellules de la ligne 13 dont la colonne est un multiple de 3

[ARTURO83]

Bonjour,

Il faut travailler avec le modulo (Mod), Utilisez l'aide excel sur cette fonction.
Comme c'est un devoir, je ne vais pas vous faire le travail, mais juste vous donner un petit coup de pouce, à vous d'en comprendre le raisonnement et de l'appliquer par la suite.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
Sub Couleur()
    For i = 1 To 25
        If i Mod 2 = 0 Then Range(Cells(i, 1), Cells(i, 25)).Interior.Color = RGB(125, 125, 125)
    Next i
End Sub

Cdlt

[p.p96]

Parfait merci beaucoup ! Je vais tâcher de m’en sortir avec l’aide que vous m’avez fourni ! Merci encore.

[MarcelG]

Salut,

Plutôt que des balayages - lourds - par VBA, pourquoi pas une mise en forme conditionnelle avec formule?

=mod(ligne();2)=0

[ARTURO83]

Bonjour MarcelG

Plutôt que des balayages - lourds - par VBA, pourquoi pas une mise en forme conditionnelle avec formule?

Oui bien sûr, mais la demande initiale spécifiait bien "en VBA":

je dois écrire un programme vba selon l'énoncé

Cdlt