XL 2016 copier coller auto

pes_com

XLDnaute Nouveau
Bonjour
je reste bloqué pour une manip qui est certainement simple pour les experts que l'on trouve sur ce site!

copier coller separement chaque colonne comme la photo
11.png

merci
 

Pièces jointes

  • test 11.xlsx
    12.8 KB · Affichages: 5

patricktoulon

XLDnaute Barbatruc
Bonjour
et oui le problème est que ce que tu vois à l'ecran dans tes cellules sont des date + temps et non le cumul des heure>24 il te faudra passer certainement par une fonction VBA qui pourra interpréter le texte tel qu'on le voit mais ça ne sera plus un XLSX ton fichier mais un xlsm (fichier avec macro)
 

patricktoulon

XLDnaute Barbatruc
re
voilà c'est un xlsm maintenant
j'utilise les deux fonctions perso en formule dans les cellules donc des que tu a une données valides en G du format #0:#0:#0 sinon elle reste blanche
on pourrait même ajouter le test numérique pour chaque tranches histoire de ne pas avoir un résultat incohérent avec l'intention
 

Pièces jointes

  • fonction perso heure minute utilisable en formule.xlsm
    20 KB · Affichages: 4

patricktoulon

XLDnaute Barbatruc
r
remplace les fonctions perso dans le module 1 dans vba
j'ai ajouter le control numérique pour qu'il n'accepte pas n'importe quoi
j'ai réduit a 2 items le bound control pour que la fonction marche "XX:XX" & "XX:XX:XX"
voilà
VB:
Function Persoheure(rng As Range)
Dim V, a
Persoheure = ""
V = Split(rng.Text, ":"): If UBound(V) < 1 Then Exit Function
 a = Split(rng.Text, ":")(0)
 If IsNumeric(a) Then Persoheure = Val(a)
End Function


Function PersoMinute(rng As Range)
Dim V, b
PersoMinute = ""
V = Split(rng.Text, ":"): If UBound(V) < 1 Then Exit Function
 b = Split(rng.Text, ":")(1)
 If IsNumeric(b) Then PersoMinute = Val(b)
End Function
 

Discussions similaires

Statistiques des forums

Discussions
311 725
Messages
2 081 943
Membres
101 849
dernier inscrit
florentMIG