colorer cellule suivant conditions

[pascal21]

bonsoir
je recopie en ligne dans la feuille2 le contenu des cellules de la feuille 1
j'aimerais colorer les cellules si "Ok" est marqué sur la ligne correspondante
phhhhh!!!
le mieux est de regarder la fichier je ne vais pas m'en sortir pour expliquer cette demande
merci de votre aide

 

[pascal21]

Re : colorer cellule suivant conditions

je vais essayer de te faire comprendre pourquoi j'aimerais arriver à ça
la feuille 1 sert de planning pour des chantiers
la secretaire le remplira via un usf
et lors de la validation de la saisie les données sont collectées dans la feuil2 nommée "sauvegardes" (il s'agit de pouvoir retrouver les données plus facilement par la suite)
par contre il se peut que le client annule sa commande (si si ça arrive tout le temps) donc la ligne saisie en feuille 2 doit disparaitre puisqu'elle est inutile
je pourrais la garder et mettre "chantier annulé par le client" mais bon

je trouve que c'est plus propre comme ça
je teste ton code
et je te dis quoi!!

 

[pascal21]

Re : colorer cellule suivant conditions

bon sur mon fichier exemple ça fonctionne
j'ai vu que tu te servais de la colonne où se trouve l'adresse de la cellule concernée
je vais adapter sur mon "usine à gaz" en devenir

 

[pascal21]

Re : colorer cellule suivant conditions

bon bin finalement même si ça efface bien les lignes, ça efface aussi tout ce qui se trouve en dessous de la ligne

 

[job75]

Re : colorer cellule suivant conditions

Re,

Forcément la macro supprime en Feuil2 colonne E toutes les références de cellules vides.

C'est pour ça que je disais que ce que tu veux faire est bizarre...

A+

 

[job75]

Re : colorer cellule suivant conditions

Re,

Finalement il est préférable d'utiliser cette macro, toujours dans le code de Feuil1 :

Private Sub Worksheet_Change(ByVal Target As Range)
Set Target = Intersect(Target, Me.UsedRange)
If Target Is Nothing Then Exit Sub
Dim lig As Variant
For Each Target In Target
  If Target = "" Then
    lig = Application.Match(Me.Name & "!" & Target.Address, Feuil2.[E:E], 0)
    If IsNumeric(lig) Then Feuil2.Rows(lig).Delete
  End If
Next
End Sub

A+