XL 2016 selectionner troisieme ligne non masqué

[treza88]

Bonjour a tous,

Quelqu'un pourrait il me dire comment sélectionner la quatrième cellule de la troisième ligne non masqué, j'ai fait le code suivant mais cela ne fonctionne pas.

Cells(3, 4).SpecialCells(xlVisible).Cells(1, 1).Select

Merci d'avance

 

[Patrice33740]

Bonjour,

Avec 2 boucles :

Sub xxx()
Dim i As Long
Dim rng As Range
 
  Set rng = Cells.SpecialCells(xlCellTypeVisible).Cells(1, 1)
  Do Until i = 4 - 1
    Set rng = rng.Offset(0, 1)
    If rng.EntireColumn.Hidden = False Then i = i + 1
  Loop
  i = 0
  Do Until i = 3 - 1
    Set rng = rng.Offset(1)
    If rng.EntireRow.Hidden = False Then i = i + 1
  Loop
  rng.Activate

End Sub

 

[treza88]

Merci Patrice33740,

Mais ton code me renvoie une erreur "Sub ou function non définie"

 

[Patrice33740]

Pas chez moi :

 

[treza88]

Ok pas de soucis je sais pas pourquoi mais la ça fonctionne nickel
Encore merci Partrck33740

 

[mapomme]

Bonsoir à tous,

Une autre piste:

Sub Macro1()
    Application.ScreenUpdating = False
    Application.SendKeys "^{HOME}{DOWN}{DOWN}{RIGHT}{RIGHT}{RIGHT}", True
End Sub