Discussion :

[lourid]

J'aurais besoin d'extrapoler des données avec une date antérieure à celle que j'insère dans une "inputbox"
Les données à extraire se trouvent dans la feuille Ratei (A2:AL452) la colonne de comparaison en P2 (date di cessazione)
Les données doivent être copiées dans la feuille CEX

exemple, si je saisis 01/09/2023 dans l'inputbox , je dois copier les données dont la date de fin est antérieure au 1er septembre dans la feuille cex et les supprimer de la feuille Ratei


je joins le fichier

[Philippe Tulliez]

Bonjour,
L'InputBox n'est jamais qu'une interface qui nous permet d'entrer une valeur mais cela pourrait provenir de la valeur présente dans une cellule ou une valeur issue d'un TextBox d'un USerForm
Donc une fois que cette valeur est connue et placée dans une variable, il nous reste à filtrer les données soit par la méthode AutoFilter de l'objet Range soit avec la méthode AdvancedFilter du même objet ce dernier permettant d'exporter suivant critère
Si l'on a opté pour la méthode AutoFilter et après avoir filtré les données, il faudra définir les cellules visibles à l'aide de la propriété SpecialCells avec comme argument, la constante xlCellTypeVisible
Ensuite on fait la même chose pour la suppression des données mais en excluant la ligne des titres et on utilise la méthode Delete

Voici un exemple
Dans cet exemple le filtre se fait sur la colonne 9 (il y a lieu pour rendre dynamique la procédure de faire une recherche sur la position de la colonne à filtrer (la fonction EQUIV/MATCH (en anglais et en VBA) permet de le faire)
Il reste à régler le fait que la feuille cible contient sans doute , mais vous ne le précisez pas, des données provenant d'exportations précédentes, il y aura lieu alors de repérer la prochaine ligne où coller les données et dans ce cas il faudra exclure également la ligne des titres.
Pour cet exemple la plage des données doit être seule dans la feuille source.

J'ai utilisé une cellule (O1) pour placer la date qui servira de critère
Les plages source et cible pour l'exemple commencent en cellule A1

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
25
26
27
28
Sub t()
  ' Déclaration des variables et constante
  Const SheetSource As String = "Source" ' Nom de la feuille source
  Const SheetTarget As String = "Cible"  ' Nom de la feuille cible
  Dim shtSource As Worksheet
  Dim shtTarget As Worksheet
  Dim oRange As Range                    ' Plage source
  Dim oRangeFiltered As Range            ' Plage source filtrée
  Dim myDate As Long
  ' Affectation des variables
  With ThisWorkbook
   Set shtSource = .Worksheets(SheetSource)
   Set shtTarget = .Worksheets(SheetTarget)
  End With
  myDate = shtSource.Range("O1").Value   ' Date du filtre
  Set oRange = shtSource.Range("A1").CurrentRegion
  ' Début
  With oRange
  .AutoFilter Field:=9, Criteria1:="<" & myDate
   ' Définit la plage filtrée avec la ligne des titres
   Set oRangeFiltered = .Offset(1).Resize(.Rows.Count - 1).SpecialCells(xlCellTypeVisible)
   oRangeFiltered.Copy Destination:=shtTarget.Range("A1") ' Copie des données
   ' Définit la plage filtrée sans la ligne des titres
   Set oRangeFiltered = .Offset(1).Resize(.Rows.Count - 1).SpecialCells(xlCellTypeVisible)
   oRangeFiltered.EntireRow.Delete                        ' Suppression des données
  End With
  Set oRange = Nothing: Set oRangeFiltered = Nothing: Set shtSource = Nothing: Set shtTarget = Nothing
End Sub

[lourid]

Merci Philipphe
Je joins le fichier avec les résultats avec le 1/09/2023 comme paramètre de recherche in colonne P.
Dans la feuille cex tous les enregistrements antérieurs à cette date
le problème c'est que la date change à chaque fois et je ne veux pas l'écrire à la main dans la cellule.

[Philippe Tulliez]

Bonjour,

le problème c'est que la date change à chaque fois et je ne veux pas l'écrire à la main dans la cellule

Vous ne voulez pas l'écrire à la main ?
Et avec un InputBox que faites vous, si ce n'est un encodage manuel ?

Ma réponse n'est jamais qu'un exemple à adapter.

[lourid]

[QUOTE=Philippe Tulliez;11976049]Bonjour,

Oui, j'ai besoin d'une (inputbox) dans laquelle je peux insérer la date pour qu'elles recherchent dans la colonne P de la feuille source

[Philippe Tulliez]

Bonjour,
Je vous ai donné toute la phase de filtrage, copie et suppression des données avec un exemple où la date se trouvait dans une cellule, il vous restait à l'adapter pour le faire avec un Input.
Il faut donc juste remplacer la ligne 15 du code que j'ai publié par cette instruction

Code :

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

myDate = CDate(InputBox("Entrez une date"))

et ajouter en fin de procédure, une instruction que j'ai oubliée la suppression du filtre entre la ligne 26 et 27 toujours du code publié soit

Code :

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

shtSource.ShowAllData                                   ' Réaffiche les données