Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

colorer cellule suivant conditions

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

pascal21

XLDnaute Barbatruc
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
 

Pièces jointes

Dernière édition:
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!!
 
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
 
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+
 
Re : colorer cellule suivant conditions

Re,

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

Code:
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+
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
5
Affichages
499
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…