MACRO FORMATAGE AUTOMATIQUE TABLEAU

[seve]

Bonsoir,

Je cherche à réaliser une macro permettant d'obtenir le même résultat qu'en faisant FORMAT/MISE EN FORME AUTOMATIQUE/... mais avec mes propres couleurs,

en tapant :

Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 29/07/2003 par seve
'

'
With Selection.Interior
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = 32
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = 32
End With


End With
End Sub

j'obtiens bien un trait bleu en haut de la plage sélectionnée et un trait bleu en bas de cette plage, mais maintenant ce que je souhaiterais c'est colorier une ligne en bleu sur deux
étant novice en vba, je n'arrive pas à trouver comment faire...

Pour récapituler, je cherche à formater une plage de cellules au choix de la façon suivante :

un trait bleu en haut
un trait bleu en bas
et entre ces traits des lignes avec une ligne bleue sur deux

Par avance, je vous remercie de vos réponses

 

[Jean-Marie]

Bonsoir Seve

Rajout ceci à ton code

Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=MOD(LIGNE(A1);2)=1"
Selection.FormatConditions(1).Interior.ColorIndex = 37

Utlisation du format conditionnel

Bonne soirée

@+Jean-Marie

 

[seve]

Merci beaucoup !!!!!!!!!!!!

 

[Myta]

salut le Forum

Ou encore en VBA ajoute ceci a ton code

For Each cellule In Selection
If cellule.Row / 2 = Int(cellule.Row / 2) Then
cellule.Interior.ColorIndex = 33
Else
cellule.Interior.ColorIndex = xlNone
End If
Next cellule

Mytå

 

[pat5]

Bonsoir

Un peu comme Myta ;o)


Sub OmbrageCellules()

'Ombrage gris d'une cellule sur deux


'Ecran(Faux)
Application.ScreenUpdating = False

'Déclare la variable " compteur " comme un entier
Dim compteur As Integer

'Déclare la variable " MaLigne " comme un variant
Dim maLigne As Variant

'L'intérieur des cellules est affecté à la couleur blanche pour toutes les cellules.
Cells.Interior.ColorIndex = 2

'L'adresse de la dernière cellule non vide sous la cellule " A1 " est affectée
'à la variable " maLigne "......
maLigne = Range("A2").End(xlDown).Address

'qui reçoit ensuite pour valeur le numéro de ligne de cette cellule
maLigne = Range(maLigne).Row

'Si " maLigne " divisé par 2 n'est pas un nombre entier, Alors ....
If Not maLigne / 2 = Int(maLigne / 2) Then

'" maLigne " est incrémentée de 1 ( pour pouvoir divisé par 2 )
maLigne = maLigne + 1
'Fin Si
End If

'Le compteur de boucle " For...Next " commence à 2 et est incrémenté de 2 ( Step 2 )
'à chaque passage de la boucle, jusqu'à atteindre la valeur de " maLigne "
For compteur = 2 To maLigne Step 2

'A chaque pasage de la boucle, la ligne correspondante à la valeur du compteur est sélectionnée
Range(compteur & ":" & compteur).Select

'et l'ombrage de cellule correspondant à la valeur " 15 " de la propriété
'" ColorIndex " lui est appliqué
Selection.Interior.ColorIndex = 15
'Suivant....
Next compteur

'Sélection de la cellule " A1 "
Range("A1").Select

' L'écran de fige
Application.ScreenUpdating = True
End Sub


Salut ;o)

 

[@+Thierry]

Bonsoir les zamis, Pat5, Mytå, Jean-Marie, Bonsoir Seve (qui aurait dû rester dans son fil) Salut au Forum

Hey Mytå si rare de te voir, çà fait plaisir ;-) (çà va la vitesse maintenant non ?)

Et donc toujours dans la construction automatique d'un tableau...Avec Heading de colonnes et de lignes alimenté automatiquement aussi avec l'usage de RefEdit, très pratique sur ce niveau.
Ne ratez donc pas la démo :

=> Lien supprimé (32k)

Lien supprimé

J'envisage de faire la V02 plus orientée sur les Formats et les CustomLists...En prenant bonne note des suggestions de Moa... Mais c'est vrai qu'on pourrait carrément essayer de construire des tableaux tout près comme ceux de Mise En Forme Automatique...

Je vais y travailler ce wouik hand...

Bonne Soirée à tous et toutes
@+Thierry

 

[seve]

Bonsoir à tous !

merci beaucoup pour ces réponses,
je vais m'y pencher tout de suite...

@ plus !

seve