Discussion :

[c176613]

Bonjour tout le monde,

Voilà mon petit problème:
J'ai un tableau A2:H150. J'aimerais trouver la dernière ligne de ce tableau en sachant que dans toutes ces cellules se trouve une formule.

J'ai essayé avec cette formule:

Code :

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

ListBox1.RowSource = "Feuil1!A1:H" & Worksheets("Feuil1").Range("A" & Rows.Count).End(xlUp).Row

mais étant donné que les cellules ne sont pas vides (il y a une formule) ça ne fonctionne pas.

Peut-on dire à la formule ci-dessus de ne pas tenir compte des formules se trouvant dans ces cellules?

Merci d'avance pour vos réponses

Bonne journée
Pascal

[QuestVba]

Bonjour,

Pour détecter si formule ou pas. C'est une piste ...

Code :

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

If Range("A1") = vbNullString Then MsgBox "Cellule vide"

ou dernière ligne de A

Code :

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

Ligne_der = Evaluate("=MAX(IF(Feuil1!A:A="""",1,ROW(Feuil1!A:A)))")

Et vu aussi ceci (excel 2003) :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Dim i As Integer
For i = Range("A65536").End(xlUp).Row To 1 Step -1
    If Cells(i, 2).Value <> "" Then
    Rows(i + 1 & ":256").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    Rows(i & ":257").Select
    Selection.EntireRow.Hidden = False
    Range("A1").Select
    Exit Sub
    End If
Next i