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.