Discussion :

[toushusss]

Bonjour,
Je souhaiterai ecrire une ligne de code sur le meme principe que celle ci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Set j = [J:J].Find("*", , , , xlByRows, xlPrevious)
[I15] = j

Sauf qu'au lieu de chercher simplement la dernière cellule rempli je souhaiterai chercher la derniere cellule rempli en couleur noire. (dans ma colonne selon le type de valeur elles sont soient noire soit cyan.)

Merci par avance pour l'aide apportée

[Daniel.C]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Application.FindFormat.Font.Color = 0
Set j = [J:J].Find("*", , , , xlByRows, xlPrevious, SearchFormat:=True)
[I15] = j

[toushusss]

Bonjour, merci pour ta réponse Daniel.C

J'ai cependant un souci, je voudrais intégrer à cette formule le fait de chercher un nombre et un un texte. En effet dans mon cas elle me renvoi le mot TOTAL ( derniére cellule de mon tableau et non la valeur du dessus)

Si cela n'est pas possible comment faire la recherche avec cette formule dna a colonne J de [J9 : J & Tot.row -1]

Tot étant une variable
Merci

[Daniel.C]

Je n'ai pas compris

un nombre et un texte

Peux-tu donner un exemple ?

Sinon :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Application.FindFormat.Font.Color = 0
Set j = Range("J9:J" & Tot.row -1).Find("*", , , , xlByRows, xlPrevious, SearchFormat:=True)
[I15] = j

[toushusss]

Oui desolé faute de frappe, Je souhaite rechercher un Nombre et non un texte.

Le dernier nombre de ma colonne et 6 par exemple et juste en dessous il y a le mot Total. la fct me renvoie Total au lieu de 6

Ok avec la derniere formule que tu m'as donné ça marche aussi. Bon week end