Boucle date userform

Hello tout le monde ,

Après avoir longuement cherché sur le Forum, je ne trouve toujours pas la solution à mon problème qui ne doit pas être si compliqué que ça ceci dit .

Pour faire simple, j'ai actuellement un UserForm avec deux TextBox (Date 1 et Date 2). Je voudrais que lorsque je renseigne une date dans la TextBox1 et une autre dans la TextBox2, cela m'inscrive dans un classeur vierge (Feuille2) toutes les dates qui se trouvent entre.

Par exemple si dans la première TextBox je mets "07/01/2016" et que dans la deuxième je mets "07/31/2016" je voudrais qu'Excel me mette de A1 à A31, toutes les dates qui se trouve entre...

Malheureusement je débute sur VBA et je n'arrive pas a faire cette boucle

Si vous pouviez donc m'éclairer, je suis preneur

Merci d'avance

Bonjour,

Bonjour mimanse,

Je veux bien mais il n'y a rien actuellement sur le fichier hormis un Userform avec 2 TextBox. Je dois reussir a faire cette "opération" avant de pouvoir continuer...

juste avec quelque date bidon pour les testes genre une feuille 1 avec 10 date, une feuille 2 viege et le userform =)

25exemple1.xlsm (19.92 Ko)

J'ai essayé de te faire un exemple simple

Merci de ton aide

Bonjour à tous

Déjà un petit pas en avant pour calculer le nombre de jour entre deux dates dans les textbox

Résultat dans textBox3 pour le code suivant

Option Explicit

Private Sub CommandButton1_Click()
Dim Date1, Date2 As Date
Dim d%
Date1 = TextBox1 
Date2 = TextBox2 
d = DateDiff("d", Date1, Date2)
TextBox3 = d
End Sub

Maintenant il ne reste plus qu'à faire la boucle sur les cellules.

me revoila

voila une proposition ,lancer le userform et tester

deux condition à savoir :

=>la 1er date doit être < que la 2eme date

=>les dates doivent être fournie sous format : jj/mm/yyyy

21exemple1.xlsm (21.86 Ko)

Voici mon code (Test OK)

Private Sub CommandButton1_Click()
Dim Date1, Date2 As Date, i
Dim d%
Date1 = TextBox1 
Date2 = TextBox2 
d = DateDiff("d", Date1, Date2)

For i = 1 To d 'Boucle de 1 à D

    ActiveSheet.Cells(i, 1) = Date - d + i 'Alimente les cellules
Next i
End Sub

Mimanse,

Merci énormément c'est exactement ce que je voulais c'est parfait .

Je travaille aux US c'est pour cela que la date changeait mais j'ai fais le test en tapant les deux dates au format américain et cela marche niquel.

Encore merci tu m'enlève une épine du pied .

Bonne soirée pour vous en France


Merci aussi a toi et1000lio pour ces réponses

merci à toi l'ami de US

bonjsoir a vous

voici le même classeur mais avec un calendrier autonome de l'excellent M_ferrant , j'ai laisser les 2 textbox qui ne servent plus car ils sont remplacer par des labels (irremplaçable)

Rechercher des sujets similaires à "boucle date userform"