Rechercher un nombre

Bonsoir,

Dans ma feuille1, j'ai un nombre dans une colonne "A" ex : 34

Je voudrais trouver et marquer d'une couleur jaune ce nombre dans d'autres feuilles ex : feuille2, feuille3 etc...

si dans la feuilleX il retrouve ce nb 34 dans une quelconque colonne, je rempli de jaune la cellule.

Qu'elle serait le code ?

Merci

Salut,

Avec un fichier modèle ce serait plus simple !

Le fichier ci-joint s'ouvre sur la "Feuille 1" qui ne contient aucun coloriage. Si tu quittes cette feuille et que tu y reviens, ses cellules se colorient en fonction de tes modifications sur la feuille ''Base".

Cordialement.

Bonjour

Bonjour à tous

Un essai à tester.

Bye !

Salut gmb

Désolé, Quattro, je n'ai pas suffisament bien lu ton énoncé

Bonjour

non très bien pour les codes.

j'avais oublié de préciser, qu'il fallait effacer les lignes à partir de la ligne 102.

Tout se qui se trouve en dessous de la ligne 102, j'efface.

j'ai essayé ça mais, il me met une erreur :

Dim i As Integer
    For i = 102 To Range("A1048576").End(xlUp).Row   'calcule la dernière cellule remplie dans la colonne 1
       Worksheets("ExtractPkF").UsedRange.Offset(1, 0).EntireRow.Delete
    Next i

j'ai trouvé, cela semble fonctionné :

'Efface les lignes à partir de la 102ème
    Dim i%
    For i = 10000 To 102 Step -1
    If Cells(i, 1).Value <> "" Then Rows(i).EntireRow.Delete
    Next i

Bonjour

ci joint mes fichiers.

J'ai appliqué 1 des 2 codes que l'on m'a donné ci-dessus(celui qui fait automatiquement la tache).

Le code se trouve tout en bas du programme, le dernier.

quand on lance le programme, on appui sur le Btn "Extraire CSV" de l'onglet "Depart".

Ensuite il pose une question, répondre oui. Il lance l'appli.

Quand c'est terminé, on doit vérifié si des valeurs de la colonne B de la feuille qui a été créer automatiquement "ExtractPkF", sont trouvé dans les feuilles "Test1 et Test2". Normalement colorié en rouge de plus... et bien cela ne fct pas ? alors qu'il y en a bien...

C'est bon trouvé