Bonjour,
Je planche sur un sujet de report de donneés.
L'idée est en fonction d'un critère commun (exemple date), reporté dans un nouvel onglet les données des lignes pour lesquelles la date est identique...
La date est selectionnée dans une formulaire.
J'ai fait le code suivant mais ça ne fonctionne pas... ça me crée un nouvel onglet et reporte seulement les champs sans aucune données en lien avec la date renseignée dans un formulaire :
Private Sub boutonextract_Click()
'Déclaration des variables
Dim MaDate As Range
Dim ListeDate As Range
Dim Nbligne As Long
Dim LigneActive As Long
'Affetaction des variables
Set ListeDate = Feuil2.Range("B12", Feuil2.Range("B11").End(xlDown))
Nblignes = ListeDate.Rows.Count
LigneActive = 0
'On insère un nouvelle feuille
Sheets.Add
Feuil2.Range("B11").EntireRow.Copy ActiveCell
Range("B12").Select
'On boucle chaque date se trouvant la liste
For Each MaDate In ListeDate
'On se décale d'une ligne vers le bas à chaque itération
LigneActive = LigneActive + 1
'On recherche la date qui a été saisie dans la liste déourlante
If MaDate.Offset(0, 2).Value = Me.cbDate.Value Then
'Si la région est trouvée on copie l'enregistrement
MaDate.EntireRow.Copy ActiveCell
ActiveCell.Offset(1, 0).Select
End If
Next MaDate
End Sub