Boucle date

Résolu

massimo888 Messages postés 209 Statut Membre -
massimo888 Messages postés 209 Statut Membre - 7 avril 2017 à 14:22

Bonjour,

J'ai un petit soucis avec mon fichier excel.

J'aimerais faire défiler en vba les dates dans une même cellule dans l'ordre décroissant. De Décembre à Janvier et interrompre la boucle dès que la cellule voisine passe de "-" à une valeur.

Exemple:
A1 = "-" => A2 = Décembre-17
A1 = 56 => A2 = Mars-17

Mon code:

Sub test()

do while Cells(1,2)="-"

Cells(1,1)="12-01-17"
Cells(1,1)="11-01-17"
Cells(1,1)="10-01-17"
.
.
.
Cells(1,1)="01-01-17"

end sub

En vous remerciant.

Afficher la suite

A voir également:

Boucle date
Mon pc s'allume et s'éteint en boucle ✓ - Forum Matériel & Système
Jm date avis - Forum Consommation & Internet
Airpods 3 date de sortie - Guide
Jm date désabonnement ✓ - Forum Consommation & Internet
Abonnement jm date - Forum Consommation & Internet

1 réponse

Réponse 1 / 1

Zoul67 Messages postés 2001 Statut Membre 149

Bonjour,

Sub essai()
    
    For k = 12 To 1 Step -1
        Cells(1, 1).Value = DateSerial(2017, 12, k)
        If Cells(1, 2).Value <> "-" Then Exit For
    Next k
    
End Sub

A+

Zoul67 Messages postés 2001 Statut Membre 149

Pardon, c'est plutôt ça :

Sub essai()

For k = 12 To 1 Step -1
Cells(1, 1).Value = DateSerial(2017, k, 1)
If Cells(1, 2).Value <> "-" Then Exit For
Next k

End Sub

massimo888 Messages postés 209 Statut Membre

Tout d'abord Merci beaucoup pour la solution, elle marche nickel!
Ensuite voici le code dans une boucle pour avoir les lignes que l'on veut:

Sub essai()
For i = 4 To 18

For k = 12 To 1 Step -1
Cells(i, 9).Value = DateSerial(2017, k, 1)
If Cells(i, 10).Value <> "-" Then Exit For
Next k
Next i
End Sub

Discussions similaires

MFG pas encore arrivée

je cherche la date et le lieu de naissance d une personne

Problème publipostage date de naissance

Mon pc s'allume et s'éteint en boucle

Problème Whatsapp - "La date est incorrecte"

Votre réponse

Discussions similaires