VBA avec formule ESTNUM

Bonjour,

Je cherche à faire une macro langage VBA. pour mon travail

Je ne connais absolument pas le VBA et je ne pense pas en avoir bcp l’utilité à part aujourd'hui donc je ne veux pas tt apprendre...

Voilà ce que je cherche à faire (simple pour les spécialistes à mon avis) :

Mettre en gras toutes les cellules dont la valeur est numérique dans les colonnes B et E.

Puis, Supprimer toutes les lignes à partie de la première ligne contenant l'erreur #VALEUR en colonne C.

Merci d'avance.

Olivier

Bonjour Olivier,

Peux-tu nous mettre un fichier exemple pour tes valeurs d'erreurs en colonne C

Pour le reste ça fonctionne

voir le fichier joint.

Pierrot

Merci Pierre pour votre réponse.

Malheureusement, je suis sur Excel 2003 et votre fichier doit être d'une version plus récente et je ne parviens pas à l'ouvrir.

Voilà ce que je veux faire à l'aide d'une macro :

• j'ai le fichier origine
• je veux obtenir le fichier final (je l'ai fait manuellement ms mon vrai tableau comprend plus de 350 lignes...).

Bonjour,

Option Explicit

Sub mgras()

Dim dl As Long, i As Long
dl = Sheets(1).Range("b" & Rows.Count).End(xlUp).Row

For i = dl To 5 Step -1
If IsError(Sheets("feuil1").Range("c" & i)) Then
Sheets("feuil1").Range("c" & i).EntireRow.Delete
End If
If IsNumeric(Sheets("feuil1").Range("b" & i)) Then
Sheets("feuil1").Range("b" & i).Font.Bold = True
End If
If IsNumeric(Sheets("feuil1").Range("e" & i)) Then
Sheets("feuil1").Range("e" & i).Font.Bold = True
End If
Next

End Sub

Il n'y a plus qu'à cliquer sur le bouton " Trier" en i1 pour effectuer les opérations demandées

Cordialement, Frédéric

Mille fois merci Fréderic, ta macro fonctionne à merveille !

Par contre je voudrais qu'elle s'étende jusqu'à la ligne 350 et je ne sais pas quel paramètre modifier.

Actuellement elle fonctionne jusqu'à la ligne 75.

J'aimerais rajouter une dernière chose si ça ne t'embête pas trop :

Si cellule colone i = X73500 ou X73900 ou X4750 ou Régiolis alors mettre une police couleur ROUGE ds la cellule concernée.

Difficile de savoir quel paramètre modifier pour que cela descende jusqu'à la ligne 350 car il peut y avoir plusieurs causes (et pour les trouver ses causes il faut le fichier originale). Ceci dit, je vais modifier la macro pour forcer la prise en compte jusqu'à la ligne 350 et integrer l'autre condition. Je pense faire ça d'ici une petite heure

Génial, Merci d'avance !

Voilà, dans le premier fichier il y avait une recherche un peu sommaire de la dernière ligne non vide mais suivant comment est structuré le tableau plusieurs facteurs peuvent venir faire planter la macro donc du coup, j'ai changé de façon de faire et j'ai décrit la chose comme ça.

Lire la ligne 350,

si il y a des valeurs de types erreur dans la colonne C alors supprimer la ligne

si il y a une valeur numérique dans la colonne b alors mettre la police en gras

si il y a une valeur numérique dans la colonne E alors mettre la police en gras

si il y a"X7300" ou "X7350" (etc) dans la colonne i alors mettre la police en rouge

puis passé a la ligne du dessus.

Bonjour, Olivier,Frédéric

Une mise en forme conditionnelle jusqu’à la ligne 350

A tester

Amicalement

Pierrot

Ca fonctionne parfaitement !

Merci bcp Fréderic de m'avoir consacré du temps. Je vs en gagner bcp moi grace à ta macro !

Bonne journée et à +

Merci à toi aussi et a Cappe Pierre.

Et longue vie aux cheminots !