Discussion :

[potters]

je souhaite selectionner une plage de cellule contenant des valeurs mais dont je ne connais pas les dimensions (ligne et colonne)????

En vous remerciant

potters

[tonton fred]

Bonjour,
Tu veux selectionner des cellules qui contiennent des valeurs en general (ie non vides) ou bien des valeurs en particulier ?
Dans tous les cas tu peux commencer par lire Ici pour le cas general et la pour les cas particulier

Ces deux sujets t'expliqueront comment avoir les adresses des cellules, pour les selectionner:

Code :

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

Range(Cells(Ligne1, Colonne1), Cells(Ligne2, Colonne2))

[potters]

je te remercie pour le mot clé usedrange, c'est ce que je cherchais. Je penser que ce mot clé me suffirait mais non.
Mon pb né donc pas résolu.
Jai fait un filtre sur des valeurs réelles positives. et je souhaite connaitre la valeur de la première ligne de ce filtre. En loccurence la première valeur de mon filtre se situe a la ligne 23118, et cé ce chiffre que je voudrait récupérer!

[potters]

Cé bon jai écrit une petite fonction qui me permet de récupérer la valeur de la première ligne. Mais je me demande s'il ny a pas plus simple!!

Voici ma fonction:

Code :

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

1
2
3
4
5
6
7
8
9
10
Public Function recup_val(ByVal nom_feuil As String) As Long
Dim i As Long
 
    For i = 2 To 65536
        If Sheets(nom_feuil).Range("I" & i) <= 50 Then
            recup_val = i
            Exit Function
        End If
    Next i
End Function

Le filtre je l'ai fait sur la colonne J et ne gardant que les valeurs <=50
donc dans la fonction, je balaye les celulles de la rangé en question et je quitte la fonction dés que jai trouvé la première inférieure ou égale à 50!!!

potters

[ouskel'n'or]

Si tu as un filtre auto, il te suffit de connaître la première ligne visible autre que la ligne d'entête.

Code :

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

1
2
3
4
5
6
7
8
9
Sub ConnaitrePremiereLigneFiltree()
For Each Cell In Range("A:A").SpecialCells(xlCellTypeVisible)
    If Cell.Row > 1 Then
        NoLigne = Cell.Row
        Exit For
    End If
Next
MsgBox NoLigne
End Sub

A+

Edit
Peu importe la colonne examinée