VBA: sélection d"onglets datés selon champ de date
yg_be Messages postés 23437 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
Je possède un fichier ou un onglet est généré sur demande avec comme nom d'onglet, la date de sa création au format JJ-MM-AA.
je souhaite pouvoir sélectionner des onglets précis en ouvrant une boite de dialogue me demandant un champ de 2 dates afin de sélectionner les onglets compris entre ces dates.
ensuite, je souhaite faire un reporting des données de ces onglets.
Pour cela, je pensais faire un copier/coller des données des onglets dans un nouveau fichier, je traiterais ensuite des données.
Je dois être autonome sur la partie traitement des données.
Je bloque cependant pour sélectionner les onglets via ces champs de dates et pour copier et coller les données de plusieurs onglets a la suite dans un nouveau fichier.
sauriez-vous m'aider?
voici un fichier de base test https://www.cjoint.com/c/LIof5kZNdon
Merci
Windows / Chrome 105.0.0.0
3 réponses
-
yg_be Messages postés 23437 Date d'inscription Statut Contributeur Dernière intervention Ambassadeur 1 588
voici un exemple de code:
Option Explicit Private Sub selo() Dim ddeb As String, dfin As String, sh As Worksheet, wdest As Worksheet, rdest As Range, lcur As Long Dim ldeb As Long, lfin As Long ddeb = "10-06-22" dfin = "05-07-22" ldeb = stl(ddeb) lfin = stl(dfin) Set wdest = ThisWorkbook.Worksheets.Add wdest.Name = "desty1" Set rdest = wdest.[a1] For Each sh In ThisWorkbook.Worksheets lcur = stl(sh.Name) If lcur >= ldeb And lcur <= lfin Then rdest = "'" + sh.Name rdest.Offset(, 1) = sh.[e5] Set rdest = rdest.Offset(1) End If Next sh End Sub Private Function stl(s As String) As Long stl = 0 On Error Resume Next stl = CLng(Left(s, 2)) + 100 * CLng(Mid(s, 4, 2)) + 10000 * CLng(Right(s, 2)) End Function -
Bonjour,
il faut rajouter cela pour chaque nouvelle cellule voulue c'est bien ça? en changeant la valeur [e6] ?
-
Ma plage de sélection de données allant de E5 à I76.
Comment prendre l'ensemble de cette sélection selon ce schéma?
Idéalement, si la cellule E d'une ligne est vide, il serait bien de ne pas copier la ligne complète.
