Créé une mise en forme ligne et colonne paire

Le 04/09/2011 à 16:58

Bonjour a vous tous et le forum

Je désire créé un BV d'une mise en forme comme suite

Ligne et colonne paire avec =MOD(LIGNE();2)=0

les lignes et collonne impaire doit être comme suit 0.67 largeur 3 hauteur

Merci a vous de vôtre support

André

Le 04/09/2011 à 17:08

Salut le forum

La MFC ne permet pas de modifier les hauteurs / largeurs

Mytå

Le 04/09/2011 à 17:16

Salut le forum

Je désire en VBasic de créé une mise en forme avec les lignes et collone paires, avec des bordures effais 3 D

je n'ais pas été claire a ma demande

au plaisir de vous relire

Bonne journée

André

Le 04/09/2011 à 17:42

Re le forum

Tu ne peux pas créer d'effets 3D sur les bordures avec une MFC (Mise en forme conditionnelle)

Mytå

Le 04/09/2011 à 17:56

Bonjour a vous tous et le forum et

Je désire créé une VB bordure comme suite et non une mise en forme

Ligne et colonne paire BORDURE

ligne et collonne impaire aucune BORDURE

les lignes et collonnes impaire doit être comme suit 0.67 largeur 3 hauteur

Dim X As Long

Dim Y As Long

Application.ScreenUpdating = 0

Feuil1.Range("b4:z100").ClearContents

For X = 1 To 499 Step 2

Feuil1.Range("B" & X).Formula = _

" "

Next X

For Y = 2 To 500 Step 2

Feuil1.Range("b" & Y).Formula = _

" "

Next Y

Feuil1.Range("A2").Select

Merci a vous de me support

André

Le 04/09/2011 à 20:22

Re le forum

Code pour un Tableau de 100 * 100 (A1:CV100)

Sub Format_Tableau()
Dim X As Integer

Application.ScreenUpdating = False

For X = 1 To 100 Step 2
  With Cells(X, X)
    .RowHeight = 3
    .ColumnWidth = 0.67
  End With
Next X

  With Range("B2").Borders
    .LineStyle = xlDouble
    .Weight = xlThick
  End With

Range("A1:B2").AutoFill Destination:=Range(Cells(1, 1), Cells(100, 2)), Type:=xlFillDefault
Range("A1:B100").AutoFill Destination:=Range(Cells(1, 1), Cells(100, 100)), Type:=xlFillDefault

Application.ScreenUpdating = True

End Sub

Mytå

Le 04/09/2011 à 22:44

Salut Forum et Myta

un grand merci Myta ces ce que j'ai de besoin pour le moment

Aui plaisir de vous relire

Bonne fin journée

André

Bonjour a vous tous et le forums

Voici je reviens de nouveau au bordure car je n'ait pas saisi la macro

Voici l'exemple désiré

Range("A2:Z100").Select

Selection.FormatConditions.Delete

Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _

"=MOD(LIGNE();2)=0"

Selection.FormatConditions(1).Font.ColorIndex = 11

With Selection.FormatConditions(1).Borders(xlLeft)

.LineStyle = xlContinuous

.Weight = xlThin

.ColorIndex = 2

End With

With Selection.FormatConditions(1).Borders(xlRight)

.LineStyle = xlContinuous

.Weight = xlThin

.ColorIndex = 1

End With

With Selection.FormatConditions(1).Borders(xlTop)

.LineStyle = xlContinuous

.Weight = xlThin

.ColorIndex = 2

End With

With Selection.FormatConditions(1).Borders(xlBottom)

.LineStyle = xlContinuous

.Weight = xlThin

.ColorIndex = 1

End With

Selection.FormatConditions(1).Interior.ColorIndex = 15

Range("A:A,C:C,E:E,G:G,I:I,K:K,M:M,O:O,Q:Q,S:S,U:U,W:W,Y:Y").Select

Range("K1").Activate

Selection.FormatConditions.Delete

Range("A2").Select

au palisir de vous relire

Andre

Le 17/09/2011 à 23:46

Re le forum

Et c'est quoi la question ?

Mytå

Le 18/09/2011 à 13:59

Bonjour Myta et le forum

Un grand merci Myta de ta passience et persévérence,

Voici je désire faire des bordure effet 2 dimenssions

la formule suivanmte =MOD(Colonne();2) semble la plus appropié

Or j'essais de compredre la macro suivante

Sub Format_Tableau()

Dim X As Integer

Application.ScreenUpdating = False

For X = 1 To 100 Step 2

With Cells(X, X)

.RowHeight = 3

.ColumnWidth = 0.67

End With

Next X

With Range("B2").Borders

.LineStyle = xlDouble

.Weight = xlThick

End With

Range("A1:B2").AutoFill Destination:=Range(Cells(1, 1), Cells(100, 2)), Type:=xlFillDefault

Range("A1:B100").AutoFill Destination:=Range(Cells(1, 1), Cells(100, 100)), Type:=xlFillDefault

Application.ScreenUpdating = True

End Sub

car celle ci est très longue mais résultat recherché

Range("A2:Z100").Select

Selection.FormatConditions.Delete

Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _

"=MOD(LIGNE();2)=0"

Selection.FormatConditions(1).Font.ColorIndex = 11

With Selection.FormatConditions(1).Borders(xlLeft)

.LineStyle = xlContinuous

.Weight = xlThin

.ColorIndex = 2

End With

With Selection.FormatConditions(1).Borders(xlRight)

.LineStyle = xlContinuous

.Weight = xlThin

.ColorIndex = 1

End With

With Selection.FormatConditions(1).Borders(xlTop)

.LineStyle = xlContinuous

.Weight = xlThin

.ColorIndex = 2

End With

With Selection.FormatConditions(1).Borders(xlBottom)

.LineStyle = xlContinuous

.Weight = xlThin

.ColorIndex = 1

End With

Selection.FormatConditions(1).Interior.ColorIndex = 15

Range("A:A,C:C,E:E,G:G,I:I,K:K,M:M,O:O,Q:Q,S:S,U:U,W:W,Y:Y").Select

Range("K1").Activate

Selection.FormatConditions.Delete

Range("A2").Select

Maintenant quel est la macro la plus simple pour parvenire au résultat au colonne impaire avec bordure et espasser d'une ligne

Merci de votre passience

Au plaisir de vous relire

André

Le 18/09/2011 à 16:07

Re le forum

Pas vraiment plus court, mais plus esthétique

Sub Format_Tableau()
Dim X As Integer

Application.ScreenUpdating = False

With Range("B2")
  With .FormatConditions
    .Delete
    .Add Type:=xlExpression, _
         Formula1:="=MOD(LIGNE();2)=0"
  End With
  With .FormatConditions(1).Borders(xlRight)
    .LineStyle = xlContinuous
    .Weight = xlThin
    .ColorIndex = 1
  End With
  With .FormatConditions(1).Borders(xlBottom)
    .LineStyle = xlContinuous
    .Weight = xlThin
    .ColorIndex = 1
  End With
  .FormatConditions(1).Interior.ColorIndex = 15
End With

Range("A1:B2").AutoFill Destination:=Range(Cells(1, 1), Cells(100, 2)), Type:=xlFillDefault
Range("A1:B100").AutoFill Destination:=Range(Cells(1, 1), Cells(100, 26)), Type:=xlFillDefault

Application.ScreenUpdating = True

End Sub

Mytå

Le 19/09/2011 à 13:24

Bonjour Myta et le forum

Un grand merci a Myta de ton soupport sa finaliser cet demande pour le moment

Au plaisir de vous relire

André

Le 13/10/2011 à 22:38

Bonjour Myta et le forum,

Ces ce que j'ai besoin pour le momant.

André

Le 14/10/2011 à 01:32

Re le forum

Bien heureux que ton problème soit solutionné.

Pour le faire passer en [Résolu] regarder l'image

file.php id 18923

Mytå

Le 15/10/2011 à 01:01

Bonjour le forum et Myta.

il est ou ce bouton éditer

Bonne fin journée

André

Le 15/10/2011 à 02:46

Re le forum

Si vous avez obtenu la réponse espérée, commencez par cliquer sur le bouton du post qui a résolu votre problème et n'oubliez pas de remercier tous ceux qui vous ont aidé.

Dans le coin de la fenètre des messages, en haut de la ficelle à droite.

Mytå

Rechercher des sujets similaires à "cree mise forme ligne colonne paire"