aide macro

[oorphee]

Bonjour,

Est-il possible de dicter l'instruction suivante (finalité = mise en forme spéciale):

"Pour chaque cellule de la plage A1:A10 valant X, mettre en forme les cellules valant X (uniquement)"

Comment l'écrire simplement ?

Merci beaucoup.

 

[Compte Supprimé 979]

Re : aide macro

Bonjour Oorphee,

Cela s'appelle une Mise en Forme Conditionnelle (MFC pour les intimes 😉)

Menu -> Format -> Mise en forme conditonnelle

Tu as de l'aide dans Excel pour l'utiliser.

A+

 

[Risleure]

Re : aide macro

Bonsoir oorphee, Bruno

Ben oui, la solution de Bruno est plus simple mais comme j'avais travillé pour la demande voici la proposition.

A+

 

[oorphee]

Re : aide macro

Oui en fait, je passe normalement par les mises en forme conditionnelle mais cette fois (voir autre file), je veux une mise en forme de bordures en diagonales, hors celles-ci ne sont pas disponibles pour la mise en forme conditionnelle (juste pour la mise en forme simple: erreur de conception de Microsoft ?!).

Il me faut donc passer par une macro...

Je regarde le fichier joint. Merci beaucoup.

 

[oorphee]

Re : aide macro

Merci pour l'aide.

Vraiment désolé, je mettais mal exprimer, ou plutot je me suis rendu compte que mes besoins étaient autre.

J'aimerai intégrer ce code à l'intérieur d'une macro (et pas à l'intérieur du code de la feuille excel avec un private sup).
Est-ce possible ?

 

[abc]

Re : aide macro

Bonsoir,
une macro pour une diagonale
A+

 

[oorphee]

Re : aide macro

Bonsoir et merci beaucoup mais comment puis-je faire pour intégrer ce code dans une macro à part ? (non dans le code mère de la feuille excel)
???


J'ai voulu utiliser cette formule:

For Each cell In Range("A1:A10")
If cell.Value = "x" Then

With Selection.Borders(xlDiagonalDown)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlDiagonalUp)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlMedium
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThick
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThick
End With
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone


En violet ma mise en forme mais j'ai l'impression qu'il manque quelque chose entre le code bleu et le code violet (sélection de la ou des cellules valant "x")

Comment puis-je faire le lien ?

Merci encore.

 

[oorphee]

Re : aide macro

J'en suis la mais ca ne marche pas 🙁

For Each cell In Range("H30:H44")
If Target = "R7D" Then
With Target.Borders(xlDiagonalDown)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Target.Borders(xlDiagonalUp)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Target.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlMedium
End With
With Target.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThick
End With
With Target.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Target.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThick
End With
Target.Borders(xlInsideVertical).LineStyle = xlNone
Target.Borders(xlInsideHorizontal).LineStyle = xlNone
End If
Next cell
End Sub

 

[oorphee]

Re : aide macro

résolu, merci à tous !

For Each Cell In Range("H30:H44")
If Cell.Value = "R7D" Then
Cell.Select
With Selection.Borders(xlDiagonalDown)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlDiagonalUp)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlMedium
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThick
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThick
End With
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
End If
Next Cell