Suppresion ligne en fonction d'une couleur

[Adriano43]

Bonjour à tous,

Je reviens vers vous car je n'arrive pas à soluttioner mon problème tout seul; l'apprentissage est parfois difficile...
Voici mon problème:
Je possède un classeur excel qui contient dans l'exemple un onglet "Données" situé en Feuille 1.
Cet onglet "Données" comporte un tableau de taille variable.

Je souhaite dans un premier temps, que la macro colorie en gris les lignes sous les condition suivantes:
-Si il y a BA4 en colonne 4 et si il y a "arc" en colonne 8
Je voudrais que cette macro s'éxécute de manière automatique si les 2 conditions sont remplies la ligne passe en gris dès qu'il manque une condition la ligne repasse en blanc.

Je souhaite dans un second temps une macro que j'ai intitulé nouvelle semaine, copie le tableau situé sur l'onglet "Données" crée un nouvel onglet avant l'onglet "Données" et supprime les lignes qui étaient surlignées en gris sur l'onglet "Données".

J'ai essayé de programmer tout ça mais mon code contient des erreurs que je n'arrive pas à corriger.
Je vous joins un fichier exemple.

Merci par avance de votre aide

Adriano43

 

[Gurgeh]

Re : Suppresion ligne en fonction d'une couleur

Salut Adriano43,

Ta macro surlignage ne fonctionne pas car dans ta cellule H17 (par exemple) tu as un espace après "arc", ce qui fait que la valeur de la cellule n'est pas égale à "arc" mais à "arc "...

Je te propose donc d'utiliser la fonction trim() qui permet de supprimer les espaces au début et à la fin :

Sub surlignage()
Dim i&, fin&
fin = ActiveSheet.Range("A65000").End(xlUp).Row
For i = 2 To fin
If Trim(Cells(i, 8).Value) = "arc" And Trim(Cells(i, 4).Value) = "BA4" Then Rows(i).Interior.ColorIndex = 48: Rows(i).Font.Bold = True
Next i
End Sub

 

[Adriano43]

Re : Suppresion ligne en fonction d'une couleur

Ok merci , je n'y avais pas pensé.
Une idée pour que la macro se réalise de façon automatique comme expliqué en début de topic?
Et pour supprimer les lignes qui sont surlignées en gris?

Merci à vous

 

[Adriano43]

Re : Suppresion ligne en fonction d'une couleur

Upp Upp Uppp!!!

 

[Adriano43]

Re : Suppresion ligne en fonction d'une couleur

Bonjour à toutes et à tous,

J'ai essayé de chercher un peu plus de mon côté en l'absence de réponses, mais je n'ai toujours pas trouvé mes erreurs et par conséquent à rendre ma macro fonctionnelle...

Quelqu'un pourrait il m'aider s'il vous plait?

Merci d'avance

 

[Adriano43]

Re : Suppresion ligne en fonction d'une couleur

Personne pour me mettre sur la piste SVP?😕