Discussion :

[jokenjo]

Bonjour
j´ai une probleme de formatage , je suis sur excel(2000) .
Je n´arrive pas a applique la fonction find,car j´ai beaucoup de données differentes et aussi des format different.
Comment pourais je formater une plage donnée a ce que la function worsheet ou Find marche ...
Merci

[cafeine]

Hello,

si tu fais un .Find sur des valeurs, Excel devrait normalement s'affranchir du formatage.

Peux-tu nous donner un exemple ?

[jokenjo]

Hello,

si tu fais un .Find sur des valeurs, Excel devrait normalement s'affranchir du formatage.

Peux-tu nous donner un exemple ?

hello
je ne fais pas sur des valeurs isolees , en fait ces pour trouver la derniere ligne non vide de la feuille (en prenante en compte les lignes vides)de la feuille.
voici le code:

Code :

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

1
2
3
4
5
6
7
 
 
Dim lRealLastColumn As Long
   Feuil1.Range("A26:M300").Select
    On Error Resume Next
    lRealLastRow = Cells.Find("*", Range("A1"), xlFormulas, , xlByRows, xlPrevious).Row
msgbox lRealLastRow

sur une autre plage ou nouvelle feuille ca marche perfect ,mais sur ma feuille actuelle ou il y a des formatages , ´ca ne me renvoie une ligne bien donnée, pas la derniere ligne ,j´en ai conclu que ces un probleme de formatage..
merci

[fring]

Bonjour,

Si c'est pour trouver la dernière ligne occupée d'une feuille, pourquoi ne pas simplement faire...

Code :

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

1
2
3
Sub test()
MsgBox ActiveCell.SpecialCells(xlLastCell).Row
End Sub

[jokenjo]

Bonjour,

Si c'est pour trouver la dernière ligne occupée d'une feuille, pourquoi ne pas simplement faire...

Code :

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

1
2
3
Sub test()
MsgBox ActiveCell.SpecialCells(xlLastCell).Row
End Sub

merci de votre contribution , je pense que ce code ne tient pas compte des formules qui sont derriere la feuille , le probleme peut etre resolu en remplacant dans le code

Code :

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

1
2
lRealLastRow = Cells.Find("*", Range("A1"), xlFormulas par xlValues , , xlByRows, xlPrevious

ce qui resoud le problem..
merci