format texte en nombre suite à une extraction

vgendron

XLDnaute Barbatruc

• 4 Avril 2020

• #2

Bonjour

une petite méthode simple et rapide
ouvre ton fichier
selectionne la zone complete contenant des heures
selection de AG3
touche Shift (flèche vers le haut) + Clic sur B3 (ca selectionne la ligne)
shift maintenu enfoncé + double clic sur la bordure basse de la ligne selectionnée == Selection de toute ta zone jusquà la ligne 650

maintenant: Format/cellule/Heure
et voila

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 4 Avril 2020

• #3

Bonjour le fil, GG56000, vgendron

Une autre solution: Données/Convertir
1) Sélection de la colonne "Texte"
2) Données/Convertir->Délimité/Standard [x]
Et voilà

PS: Je viens de tester en collant au préalable 39:18 dans une colonne préalablement formaté en Texte

 

Vote positif 0 Vote négatif

eriiic

XLDnaute Barbatruc

• 4 Avril 2020

• #4

Bonjour à tous,

et une autre :
sélectionner toute ta feuille (clic intersection n° ligne et n°colonne en haut à gauche)
Ctrl+h (Remplacer) ":" par ":", puis 'Remplacer tout'
sans saisir les " "
eric

PS : @vgendron, un format n'affecte que l'affichage d'un numérique, sans effet ici.

 

Vote positif 0 Vote négatif

G

GG56000

XLDnaute Nouveau

• 5 Avril 2020

• #5

bonjour à tous et surtout merci pour vos différentes méthodes, c'est juste génial.

 

Vote positif 0 Vote négatif

G

GG56000

XLDnaute Nouveau

• 6 Avril 2020

• #6

bonjour à vous,
il y a un os dans vos méthode, cela ne prends pas en compte quand il y un - (moins) devant ??

exemple : si je sélectionne X3 (6:57) et X4 (-00:03) cela m'affiche 6:57 au lieu de 6:54 ???

Merci

 

Pièces jointes

• extraction.xls

  341.5 KB · Affichages: 5

Vote positif 0 Vote négatif

eriiic

XLDnaute Barbatruc

• 6 Avril 2020

• #7

Bonjour,

il n'y a pas d'os dans nos méthodes, c'est juste qu'excel ne connait pas les heures négatives.
Il faudrait les traiter individuellement. Seulement excel afficherait #### pour les heures négatives, mais les opérations seraient correctes.
Ou bien les convertir après activation du calendrier 1904, mais avec les erreurs de date qui s'ensuivent : +4 ans et 1 jours dessus.
Il y a un choix à faire...
eric

 

Vote positif 0 Vote négatif

G

GG56000

XLDnaute Nouveau

• 6 Avril 2020

• #8

arfff, et est ce possible dans ce cas de tout convertir ce tableau en centième ?? c'est à dire que 00:15 (minutes) serait égale à 0.25 ? mais la je suppose que c'est du VBA pour ce genre de manip ?

 

Vote positif 0 Vote négatif

J

JHA

XLDnaute Barbatruc

• 6 Avril 2020

• #9

Bonjour à tous,

A essayer avec la cellule en format standard

VB:

="00:15"*24

ou

Code:

=A1*24

JHA

 

Vote positif 0 Vote négatif

eriiic

XLDnaute Barbatruc

• 6 Avril 2020

• #10

En heures décimales tu veux dire.
Avec une macro :

VB:

Sub convertH()
    Const minDec = 1 / 60
    Dim datas, lig As Long, col As Long, signe As Boolean, tmp
    datas = [A1].CurrentRegion.Offset(2, 1).Value
    For lig = 1 To UBound(datas, 1)
        For col = 1 To UBound(datas, 2)
            If InStr(datas(lig, col), ":") > 0 Then
                signe = Left(datas(lig, col), 1) = "-"
                If signe Then datas(lig, col) = Mid(datas(lig, col), 2)
                ' des heures >24 empêchent d'utiliser TimeValue pour la conversion
                tmp = Split(datas(lig, col), ":")
                datas(lig, col) = Round(tmp(0) + tmp(1) * minDec, 7)
                If signe Then datas(lig, col) = -datas(lig, col)
            End If
        Next col
    Next lig
    With [B3].Resize(UBound(datas, 1), UBound(datas, 2))
        .Value = datas
        .NumberFormat = "0.00""h"";-0.00""h"";;@"
    End With
End Sub

eric

 

Vote positif 0 Vote négatif

G

GG56000

XLDnaute Nouveau

• 7 Avril 2020

• #11

Bonjour eriiiic,
et merci pour vos réponses, une dernière demande, comment faites vous pour intégrer cela dans ce tableau via un "bouton" ???

 

Dernière modification par un modérateur: 8 Avril 2020

Vote positif 0 Vote négatif

eriiic

XLDnaute Barbatruc

• 7 Avril 2020

• #12

Déjà il faudra 'Enregistrer sous...' en choisissant le Type *.xlsm si tu veux garder les macros.
Alt+F11 pour aller dans VBE
Clic-droit dans le projet 'Insertion module...', y coller le code.
Ajouter le ruban Développeur si tu ne l'as pas (clic-droit dessus et 'Personnaliser le ruban', le cocher dans la liste de droite)
Ensuite tu ajoutes un bouton Formulaire, clic-droit dessus et 'Affecter à une macro'
eric

 

Dernière édition: 8 Avril 2020

Vote positif 0 Vote négatif

G

GG56000

XLDnaute Nouveau

• 7 Avril 2020

• #13

jusqu'a CTRL + F11 c'est OK ça m'ouvre bien onglet "Macro1" mais après je ne trouve pas "insertion module..."

Par contre j'ai bien l'onglet Dévelloppeur

désolé mais j'apprends pas à pas....

 

Vote positif 0 Vote négatif

eriiic

XLDnaute Barbatruc

• 7 Avril 2020

• #14

dans VBE, à gauche tu as la fenêtre Explorateur des projets
Sur le tien (du nom du classeur), c'est ici qu'il faut cliquer droit.

Puisque tu dis débuter, après tu iras dans Outils / Options cocher 'Déclaration obligatoire des variables'.
Ca parait hyper chiant au début de toutes les déclarer (et ça l'est, ensuite c'est réflexe), mais ça t'évitera des heures de recherche de bugs si par mégarde tu utilises la variable parom alors que c'est param que tu voulais. Tu auras beau relire 10 fois tu ne la verras pas.
Et tant qu'à les déclarer autant les typer au plus près du besoin.
As Double, As Long, A String, etc Fait une recherche sur les types variables vba et apprend ça par coeur.
Non seulement tu auras un gain de vitesse, mais ça peut aussi t'alerter sur certaines erreurs.

Ensuite tu iras dans Affichage ajouter les fenêtre Propriétés et Espions
Et quand tu auras de la dispo fait une recherche sur débogage vba, apprendre au minimum à poser un point d'arrêt, à faire du pas à pas et à espionner la valeur d'une variable ou d'une expression.
Tu ne verras pas passer les 6 mois de confinement... ;-)
eric

 

Vote positif 0 Vote négatif

G

GG56000

XLDnaute Nouveau

• 7 Avril 2020

• #15

Je pense me rapprocher du but, mais j'ai due "merder" à un moment je pense ?? (voir PJ)

et je ne suis pas en confinement c'est pour ça que mes boss me demandent d'améliorer plusieurs taches....

 

Dernière modification par un modérateur: 8 Avril 2020

Vote positif 0 Vote négatif