Boucle date

Résolu

massimo888 Messages postés 203 Date d'inscription Statut Membre Dernière intervention -
massimo888 Messages postés 203 Date d'inscription Statut Membre Dernière intervention - 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
Whatsapp date incorrecte ✓ - Forum Mobile
Airpods 3 date de sortie - Guide
Jm date avis - Forum Consommation & Internet
Jm date désabonnement - Forum Gmail
Publipostage date inversée - Forum Word

1 réponse

Réponse 1 / 1

Zoul67 Messages postés 1959 Date d'inscription Statut Membre Dernière intervention 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 1959 Date d'inscription Statut Membre Dernière intervention 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 203 Date d'inscription Statut Membre Dernière intervention

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

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

MFG pas encore arrivée

Problème publipostage date de naissance

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

Mon ordinateur s'allume et s'eteint en boucle

Votre réponse

Discussions similaires