Générateur de secondes qui se suivent

Résolu
Juliette -  
pijaku Messages postés 12263 Date d'inscription   Statut Modérateur Dernière intervention   -
Bonjour,

J'aurais besoin pour un projet de toutes les secondes d'une journées en numéros pour, par la suite les copier coller, un tel travail à taper est très très très contraignant, je ne suis pas une habituelle usagère d'Excel, et je ne sais pas si il est possible de les avoir sans tableau ou cellule. Je prends toutes solutions, même si il ne s'agit pas d'utilliser Excel.

Je vous souhaite à tous une bonne journée

Juliette

A voir également:

2 réponses

via55 Messages postés 14512 Date d'inscription   Statut Membre Dernière intervention   2 746
 
Bonjour

Tu veux toutes les nombres de 1 à 86 400 ?
Tu tapes 1 dans une cellule et tu étires la cellule vers le bas en choisissant l'option recopie incrémentée mais selon ta version d'excel tu vas être limité par le nombre de lignes (65 000 environ avec Excel 2007) il faudra scinder en 2 colonnes

Cdlmnt
0
Juliette
 
Merci pour la rapdité de votre réponse, il me les faudrait en format "16:25:01" de 00:00:01 à 23:59:59
0
pijaku Messages postés 12263 Date d'inscription   Statut Modérateur Dernière intervention   2 761
 
Bonjour,

Désolé de l'incruste...

Deux choix sous Excel :

Manuellement :
Inscrire en A1 : 00:00:01
en A2 : 00:00:02
Et ensuite sélectionner les deux cellules et "étendre" la sélection vers le bas.
Bon courage, c'est assez long...

Ou alors, par macro, au choix :

1 heure par colonne :
Sub InscritSecondesEnColonnes()
Dim Lig As Integer, Col As Byte, Temps As Date, t As Single

Range("A1:Z4000").Delete
t = Timer
Application.ScreenUpdating = False
Temps = "00:00:00"
For Col = 1 To 24
    For Lig = 1 To 3600
        Cells(Lig, Col) = Format(Temps, "hh:mm:ss")
        Temps = Temps + "00:00:01"
    Next Lig
Next Col
Application.ScreenUpdating = True
MsgBox "Fini en " & Timer - t & " secondes."
End Sub


Toute la journée dans la colonne A :
Sub InscritSecondesEnColA()
Dim Lig As Long, Temps As Date, t As Single

Range("A1:Z87000").Delete
t = Timer
Application.ScreenUpdating = False
Temps = "00:00:00"
    For Lig = 1 To 86400
        Cells(Lig, 1) = Format(Temps, "hh:mm:ss")
        Temps = Temps + "00:00:01"
    Next Lig
Application.ScreenUpdating = True
MsgBox "Fini en " & Timer - t & " secondes."
End Sub


Pour faire fonctionner la macro :
1- ouvrir un nouveau classeur Excel
2- ALT+F11 = ouvre visual basic editor
3- Copier coller le code de votre choix (ou les deux)
4- fermer la fenêtre visual basic editor
5- Alt + F8, choisir le code souhaité + Exécuter

Note : Si Excel < 2007, utilisez la version 1, 1 heure par colonne

Cordialement,
Franck
0