Générateur de secondes qui se suivent Résolu/Fermé

Question

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

Configuration: Mac OS X Mountain Lion  (10.8) / Firefox 25.0

via55 · Answer

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

pijaku · Answer

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

Générateur de secondes qui se suivent

2 réponses

Discussions similaires

Newsletters