Discussion :

[jerem1]

Bonjour a tous
Ma question peut sembler simpliste mais je ne voie pas comment y arriver.

J'effectue un filtre élaboré sur un tableau, il me reste donc une ligne sur ce dernier
Il faut que j'arrive a séléctionner les cellule B et Dde cette ligne précisement. Ceci doit être en VBA.
Mon problème est que cette ligne varie en fonction du filtre effectué.(un coup c'est la 6 un coup la 18...)
Comment faire ?
Merci d'avance

[wilfried_42]

bonjour

en ne prenant que les lignes visibles.

Code :

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

1
2
Dim plage as range
Set plage = sheets("Sel").range("A2:J1000").specialcells(xlcelltypevisible)

[jfontaine]

Bonjour,

Ce code sélectionnera la dernière ligne d'un filtre (suffisant dans ton cas puisque 1 seule ligne attendue)

Code :

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

1
2
3
4
5
6
7
8
9
 
Dim i As Long
 
For i = 2 To Range("A:A").End(xlDown).Row
    If Rows(i).Hidden = False Then
        Range("B" & i & ":D" & i).Select
    End If
 
Next i

EDIT : Bien vu wilfried_42 c'est encore mieux

[jerem1]

re

Et serait -il possible de prendre les cellules ainsi seléctionner et d'enlever leur verrouillage d'après vous ?
La encore mes éssais se sont révélés infructueux
merci

[jfontaine]

Pour enlever le verrouillage d'une cellule

Code :

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

Selection.Locked = False

[djib29]

Bonjour,

Code :

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

1
2
Dim plage as range
Set plage = sheets("Sel").range("A2:J1000").specialcells(xlcelltypevisible)

Voici une petite correction pour éviter le nom de plage en dur:

Code :

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

1
2
Dim plage as range
Set plage = sheets("Sel").AutoFilter.Range.specialcells(xlcelltypevisible)

[jerem1]

d'accord, on a donc sélélctionné la ligne qui à été filtré
Mais comment désormais séléctionner la cellule B de cet élément filtré (qui va passer de B5 à B8,B300... suivant la séléction) ???

[djib29]

Ajouter au code :

Code :

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

1
2
ValeurColonneB = plage.Cells(1,2)
ValeurColonneD = plage.Cells(1,4)

[jerem1]

J'essaye de mettre cela en vba mais il ne me le prend pas et je ne comprend pas pourquoi ???

Code :

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

1
2
3
4
5
6
7
Dim plage As Range
Sheets("donnéeconsultation").Range("A2:J5000").SpecialCells (xlCellTypeVisible)
valeurcolonneB = plage.Cells(1, 2)
ValeurColonneD = plage.Cells(1, 4)
 
valeurcolonneB.Select
Selection.Locked = False

je veux juste qu'il me selectionne la cellule de la colonne B qui reste après exectution du filtre

[jfontaine]

Essaie comme cela

Ici je récupère la 2 eme série de lignes visible ( la premiere etant la ligne de titre)

Code :

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

1
2
3
4
5
6
7
8
 
Dim plage As Range
Dim strAdresse() As String
 
strAdresse = Split(Range("A:C").SpecialCells(xlCellTypeVisible).AddressLocal, ";")
Set plage = Range(strAdresse(1))
 
plage(1, 2).Locked = False

[mercatog]

un exemple

Code :

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

1
2
3
4
5
6
7
Dim Lig As Long
With Sheets("Feuil1")
     .AutoFilterMode = False
     .Range("A:A").AutoFilter field:=1, Criteria1:="toto"
     Lig = .Range("A1").End(xlDown).Row
     msgbox Lig
End With