Mise en forme Conditionnelle

[maval]

Bonjour

Je recherche un code VBA pour ne pas passer par la Mise en forme Conditionnelle.
Dans la Mise en forme Conditionnelle j'ai mis ceci: =$A2<>"" sur les lignes et colonnes "=$B$2:$M$1274"
Peut-on remplacer par un code VBA?

je vous remercie d'avance

 

[st007]

Re : Mise en forme Conditionnelle

Bonsoir,
Avec une evenementielle et
For i=2 to 1274
if .cells(i, 1).value <> "" then
.cells((i, 2),(i,13).Interior.ColorIndex=2
next i
peut-être ...

 

[maval]

Re : Mise en forme Conditionnelle

Bonjour st007

Je ne comprend pas le code, ma recherche et de faire une bordure de "$B$2:$M$1274" des lors ou je rentre des infos sur la colonne "B"

Merci et bonne journée

 

[mutzik]

Re : Mise en forme Conditionnelle

bonjour,

1. un fichier avec le résultat attendu, stp
2. pourquoi pas une MEFC (toujours plus rapide qu'un code) ?

 

[maval]

Re : Mise en forme Conditionnelle

Bonjour Bertrand

Voila un fichier. Pourquoi pas une MEFC? si je bouge les lignes a chaque fois sa me double le code en MEFC.

Merci et bonne journée

 

[job75]

Re : Mise en forme Conditionnelle

Bonjour maval, st007, mutzik,

Dans le code de la feuille, en s'appuyant sur la colonne A :

Private Sub Worksheet_Change(ByVal Target As Range)
With Cells(Rows.Count, 1).End(xlUp)
  Intersect(Me.UsedRange, Rows("1:" & .Row)).Borders.Weight = xlThin
  Rows(.Row + 1 & ":" & Rows.Count).Borders.LineStyle = xlNone
End With
End Sub

La macro se déclenche quand on modifie/efface/revalide une cellule quelconque.

A+

 

[maval]

Re : Mise en forme Conditionnelle

Bonjour Job

Après avoir mis votre code sur la feuille je n'arrive pas à le faire fonctionner?

Je vous remercie et vous souhaite une bonne soirée

 

[job75]

Re : Mise en forme Conditionnelle

Re,

Il fonctionne très bien si vous validez une cellule.

A+

 

[maval]

Re : Mise en forme Conditionnelle

Re,

Toutes mes excuses sa viens de mon ordinateur j'ai changé de poste et sa fonctionne très bien

Merci et bonne soirée