Discussion :

[jbonneval]

Bonjour
j'ai developpé une macro avec une seule procédure dans lequel se trouve un bout de code qui marcha jusqu'à ce jour.
Ce code à pour but de selectionner la première ligne visible d'un tableau.

Code :

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

1
2
3
4
5
6
 
Sub af()
                            Worksheets("Sheet2").Range("$A$1:$G$100").AutoFilter Field:=4, Criteria1:=4 _
                               , Operator:=xlAnd
                              Range("E2", Cells(Rows.Count, "E").End(xlUp)).SpecialCells(xlCellTypeVisible).Cells(1, 1).Select
End Sub

Après avoir appliqué des nouvelles procédure, lors de mes tests, la cellule reste sur la ligne des titres .
Je m 'attend à ce qu'elle descende à la première ligne visible du tableau (titre exclus) comme ce fut le case il y a peu de temps encore .

Apres avoir essayer ce code sur une nouvelle sheet, il fonctionne bien :-s

Quelqu'un aurais t il une idée?

Merci pour votre aide
jerome

[Marc-L]

Bonjour, bonjour !

Ce n'est pas du général VBA, la prochaine fois poste dans le bon forum, celui dédié au VBA d'Excel !

Sinon faut pas chercher bien loin : c'est juste une mauvaise conception de la ligne n°5 ne fonctionnant qu'avec la feuille active,
à comparer avec la ligne n°3 faisant référence elle à une feuille de calculs précise !

_____________________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

_____________________________________________________________________________________________________
Je suis Charlie, Bardo, Sousse

[jbonneval]

Bonjour

Mince désolé, j'ai pas fait attention que j'étais pas sur le bon forum :-(
Du coup je clos ce dernier et j'en recréais un dans VBA Excel.

J'avais déjà tester ta remarque et ca ne marche pas quand même.

C'est fou, alors que si je mets ce bout de code sur une feuille landa avec un petit tableau et que je filtre ca marche!!

Merci quand meme pour ton aide

Du coup je pense que je vais appelé cette procédure

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Public Sub NextRowMatch()
 'Descendre à la deuxième ligne visible suivante de la feuille Match si un match est présent.
 
                          Set ACellM = ActiveCell
                          ACellMRow = ActiveCell.Row
                          Do
                           'Je verrifie qu'il y est un match à la ligne suivante, si vrai alors
                              If Range("K" & ACellMRow + 1).Value <> 0 Then
                              'Je descend d'une ligne
                              Set ACellM = ACellM.Offset(1, 0)
                              Else
                              'si faux(pas de match) je sors de la boucle
                              Exit Sub
                              End If
                              'je verifie que sur la nouvelle ligne ou se trouve le match elle n'est pas filtré, si filtré je repars au Do
                        Loop Until ACellM.EntireRow.Hidden = False
                          'Loop Until IsEmpty(ACellM.Value)
                          ACellM.Select
                          If ACellM.Row < 101 Then
                        Call AddValueForecast
                        Else
                        Exit Sub
                        End If
End Sub

jerome