Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel mise en forme automatique PERSONNALISE

mise en forme automatique PERSONNALISE

5 réponses
Avatar
bty
Bonjour,
Peux t-on cr=E9er une mise en forme automatique=20
personnalis=E9e sur un fichier existant avec excel 2000=20
(9.0.7616 SP-3)?
ex : je voudrais remplir 2 lignes sur 4 avec une couleur=20
de remplissage sans s=E9lectionner les lignes 1 =E0 1 mais en=20
s=E9lectionnant la feuille en totalit=E9.
Signaler un problème avec ce contenu

5 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Dédé
Salut BTY !

Pas trop le temps mais la réponse à ta question se trouve dans un classeur
que tu trouvera sur www.excelabo.net !

Bonne recherche ;-)

Salutations
Dédé
"bty" a écrit dans le message de
news:1e4a01c4afa2$8c663dd0$
Bonjour,
Peux t-on créer une mise en forme automatique
personnalisée sur un fichier existant avec excel 2000
(9.0.7616 SP-3)?
ex : je voudrais remplir 2 lignes sur 4 avec une couleur
de remplissage sans sélectionner les lignes 1 à 1 mais en
sélectionnant la feuille en totalité.
Avatar
Claude Trouet
Bonsoir,
Une petite bricole en VBA qui met quand même une 12aine de seconde à
rélaiser l'opération

En VBA, dans un module standard, écrire puis exécuter cette macro

Sub CouleurDeuxLignesSurQuatre()
dep = Time
Application.ScreenUpdating = False
ActiveSheet.Range("A1").Select
Do While ActiveCell.Row < 65533
Rows(ActiveCell.Row & ":" & ActiveCell.Row + 1).Select
With Selection.Interior
.ColorIndex = 42 'code couleur de remplissage
.Pattern = xlSolid
End With
ActiveCell.Offset(4, 0).Select
Loop
arr = Time
Range("A1").Select
MsgBox Format(arr - dep, "mm:ss")
End Sub

Il y a peut-être mieux ?
Est-ce ça convient ?
CT

"bty" a écrit dans le message de news:
1e4a01c4afa2$8c663dd0$
Bonjour,
Peux t-on créer une mise en forme automatique
personnalisée sur un fichier existant avec excel 2000
(9.0.7616 SP-3)?
ex : je voudrais remplir 2 lignes sur 4 avec une couleur
de remplissage sans sélectionner les lignes 1 à 1 mais en
sélectionnant la feuille en totalité.
Avatar
AV
...je voudrais remplir 2 lignes sur 4 avec une couleur


Sélection de la feuille > Format > MEFC > la formule est :
=MOD(ENT((LIGNE()-1)/2)+1;2)
Motif > Ok


AV

Avatar
Claude Trouet
Bonsoir,
Super ! et évidemment très rapide
CT

"AV" a écrit dans le message de news:
%
...je voudrais remplir 2 lignes sur 4 avec une couleur


Sélection de la feuille > Format > MEFC > la formule est :
=MOD(ENT((LIGNE()-1)/2)+1;2)
Motif > Ok


AV





Avatar
bty
Super, Extra, Génial voilà quelqu'un de tres efficace !
Merci beaucoup, formule magique mais génial, je suis épatée par tant de
simplicité : j'ai appliqué la formule et hop !
j'avais ma mise en forme en 10s avec couleur assortis !
(je me suis exprès inscrite sur ce site pour répondre mais quand ça vaut le
coup il faut le dire !!
Merci encore AV, je mets le site en favori, peut etre A+
bty

"AV" wrote:

...je voudrais remplir 2 lignes sur 4 avec une couleur


Sélection de la feuille > Format > MEFC > la formule est :
=MOD(ENT((LIGNE()-1)/2)+1;2)
Motif > Ok


AV