Discussion :

[clao260]

Bonjour,

J'ai créé une petite macro pour inscrire une date dans un nombre défini de cellules.
Le problème c'est que cette macro ne tient pas compte des filtres actifs du classeur.
C'est à dire que les valeurs sont inscrites dans des champs qui sont masqués par les filtres (ce que je ne souhaite pas).

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
Sub Macro1()
'
' Macro1 Macro
 
Dim Date_Pass As Date
Dim NumLigne, i, Nombre As Integer
 
Date_Pass = InputBox("Merci de saisir la date à renseigner")
Nombre = InputBox("Nombre de répétition ?")
 
    NumLigne = ActiveCell.Row
 
For i = NumLigne To NumLigne + Nombre
    Range("U" & NumLigne).Value = Date_Pass
    NumLigne = NumLigne + 1
Next
End Sub

Comment faire pour que cette macro permette de tenir compte des filtres actifs ?
Merci pour votre aide.

[Theze]

Bonsoir,

Avec une boucle, tu peux faire un test sur l'état des lignes, soit sur cachées, soit sur leur hauteur :

Code :

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

1
2
3
4
 
If Rows(2).EntireRow.Hidden = True Then MsgBox "Cachée !"
 
If Rows(2).Height = 0 Then MsgBox "Cachée !"

Hervé.