Discussion :

[winston_smith81]

Hello, hello...

Voillà, pour un de mes cours j'ai plusieurs macros à réaliser sur Excel et je peine beaucoup...

Je suis sûr que pour vous, professionnels de l'informatique, ça doit être une promenade de santé, donc je me permets de solliciter votre aide.

Je vais le faire question par question, la première :

"Ecrire une macro qui colore les 100 premières lignes d'une feuille, alternativement en rouge et en vert"

...et on doit commenter chaque ligne, donc faut que je comprenne...

D'avance merci pour votre aide !!

Celui qui n'était pas programmeur

[ucfoutu]

...et on doit commenter chaque ligne, donc faut que je comprenne...

Serait-ce un exercice de TP qui t'est imposé et pour lequel une note te sera attribuée ?

[winston_smith81]

Effectivement...mais étant donné la matière qu'on nous a enseigné (la syntaxe de base, et la syntaxe pour faire deux boucles), j'ai pas l'impression que je puisse y arriver...et donc c'est pourquoi je demande de l'aide...pas forcément qu'on fasse l'exercice pour moi...

d'ailleurs c'est clairement mentionné au début que c'est pour un exercice...

[laetitia]

bonjour le forum un exemple par macro cela se fait aussi par mfc

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub es()
Dim j As Byte, i As Byte
Application.ScreenUpdating = False
For j = 2 To [a100].Row
cells(j, 1).EntireRow.Interior.ColorIndex = 4
j = j + 1
Next
For i = 1 To [a100].Row
cells(i, 1).EntireRow.Interior.ColorIndex = 3
i = i + 1
Next
End Sub

[ucfoutu]

L'aide ne pourrait ici, je le crains, que s'exprimer précisément
- par l'invite à faire une boucle sur tes 100 premières lignes. (une boucle for I = 1 to 100... par exemple.. ou I représente le n° de ligne traitée)
- par le "repérage" de la parité ou de l'imparité de I (I est pair, par exemple, si I mod 2 = 0)
Commence par cela et vois ensuite ce que pourrait être, entre autres, la propriété Color de l'objet Interior d'une plaghe de cellules)
Bonne lecture (tu y parviendras facilement, si tu lis ce qu'en dit ton aide en ligne)

Faire autrement consisterait tout simplement en écrire tout le code pour lequel tu seras noté !

[winston_smith81]

Merci, ça fonctionne !

Bon...maintenant faut que je comprenne...c'est pas gagné...

[dodo28]

Bonjour le forum
Ca aussi ca marche

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub coloriage()
For i = 1 To 100
Cells(i, 1).EntireRow.Interior.ColorIndex = 3
i = i + 1
Next i
 
For j = 2 To 100
Cells(j, 1).EntireRow.Interior.ColorIndex = 7
j = j + 1
Next j
End Sub

[laetitia]

re, on peut simplifier

Code :

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

1
2
3
4
5
For j = 1 To 100
Cells(j, 1).EntireRow.Interior.ColorIndex = 3
j = j + 1
Cells(j, 1).EntireRow.Interior.ColorIndex = 4
Next

l' ami ucfoutu va bien nous trouver encore plus simple

[ucfoutu]

Hé bé !
Il en a, de la chance ....
Encore heureux que le code complet exact ne lui ait pas été offert en "à copier et à coller" ...
J'espère que personne ne le lui offrira "tout prêt à récolter SA note" (encore que... je lui en aie parlé plus haut.... s'il l'a assimilé !....)