sélectionner 1 ligne sur 2

[buromania]

Bonjour tout le monde
Comment colorier toutes les lignes paires d'une feuille Excel ?
Un calendrier se trouve dans une feuille Excel, comment faire pour que celui çi se mette automatiquement à la bonne date sans cliquer dessus ?
Comment faire, en ayant cliqué sur un lien hypertexte, pour que la ligne sélectionnée soit toujours affichée en haut de l'écran.
C'est tout...pour le moment
Bonne journée

 

[pat1545.]

Salut,

sélectionnes tes lignes et met sun format condi comme ceci:

=MOD(LIGNE();2)=1
avec la couleur de ton choix

Patrick

 

[porcinet82]

salut

pour ta premiere question tu peu faire une macro tte simple du style:

Sub test()
Range('a2').Select
For i = 1 To 10
Rows(i + 1).Interior.ColorIndex = 6
i = i + 1
Next i
End Sub

pour le reste je c pas trop

bon week a+

 

[Céline]

Bonjour !

je voudrais aussi colorier une ligne sur 2 mais j'aimerais que cela fonctionne même lorsque les données sont filtrées ou que certaines cellules sont masquées. Est-ce possible ?

J'ai trouvé sur un autre site la macro :

Sub CouleurLignes()
Dim Ind As Boolean, Ligne As Range
Cells.Interior.ColorIndex = xlNone
For Each Ligne In
ActiveWorkbook.ActiveSheet.UsedRange.SpecialCells(xlCellTypeVisible).Rows
If Ind = True Then
Ligne.Interior.ColorIndex = 6
End If
Ind = Not Ind
Next Ligne
End Sub

Mais çà ne fonctionne pas...

Quelqu'un a-t-il un conseil à me donner ?

 

[porcinet82]

salut Celine,

est ce que tu as essayer la macro que j'ai proposer a buromania parce que je pense qu'elle fonctionne dans les cas de figures que tu souhaites.

tiens moi au courant, et si n'est pas le cas, je verrais ce que je peux faire.

en attendant bon courage et @+

 

[Céline]

Autant pour moi, Porcinet, çà marche!! Merci beaucoup.

hummm... en fait, j'aurais une autre petite question : j'aimerais que çà ne colore pas les lignes sur toute leur longueur mais simplement jusqu'à la fin de mon tableau...
(désolée pour mon ignorance...)

 

[porcinet82]

salut Céline,

Y a pas de mal, donc apres ta demande j'i réalisé une petite modif sur la macro précédente.
donc maintenant elle colore une ligne sur 2, et seulement sur ton tableau, que ce soit au niveau du nombre de lignes comme sur le nombre de colonnes

Sub test()
Range('a2').Select
For i = 1 To (Range('A65536').End(xlUp).Row / 2)
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.Interior.ColorIndex = 6
    Selection.Offset(2, 0).Select
Next i
End Sub

voiala j'espere que ca t'ira, je te souhaite une bonne journé

@+

 

[Céline]

Merci pour ton aide, Porcinet.

Cela ne fonctionne pas avec la seconde macro mais étant donné mon niveau, je crois qu'il vaut mieux m'en tenir à la 1ère formule et sélectionner ma zone d'impression.

God bless you!

Bonne journée à toi aussi!

 

[Céline]

Merci pour ton aide, Porcinet.

Cela ne fonctionne pas avec la seconde macro mais étant donné mon niveau, je crois qu'il vaut mieux m'en tenir à la 1ère formule et sélectionner ma zone d'impression.

God bless you!

Bonne journée à toi aussi!

 

[Céline]

Merci pour ton aide, Porcinet.

Cela ne fonctionne pas avec la seconde macro mais étant donné mon niveau, je crois qu'il vaut mieux m'en tenir à la 1ère formule et sélectionner ma zone d'impression.

God bless you!

Bonne journée à toi aussi!

 

[porcinet82]

re Céline,

je ne comprend pas je viens de tester la macro et elle fonctionne tres bien de mon coté je te joint un fichier sur lequel elle fonctionne.

voila bon courage

@+

[file name=Essai_bis.zip size=10291]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Essai_bis.zip[/file]