function heure_decimale(H,M,S)
heure_decimale=H+(M+(S/60))/60
end function
en A1, j'écris 1 h 30' 45" sous la forme : 1:30:45 (format heure)
en A2 je lui demande =heure_decimale(a1)....................et là excel me
renvoie une engueulade : nom?
Clique droit sur l'onglet d'une feuille et choisir >visualiser le code< et
copie ceci '----------- Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) If [a1] = "" Then Exit Sub [A2].NumberFormat = "General" [A2] = [a1] * 24 End Sub '------------- A chaque changement de la sélection dans la feuille contenant le code le calcul se serait sauf si A1 est vide!
Bon courage JJ
"nolain" enlever coucou> a écrit dans le message de news:%
merci!!!!!!!!!!!!!!!!! j'ai fait un gros gloups avec la formule a1*24 !!!!!!!!!!! si j'en avais besoin, ce serait certainement ce que je prendrais mais pour me familiariser avec le vba je prends la function sous vba par contre, je n'ai pas réussi avec la a1*24 dans le vba
encore merci
"Jacky" a écrit dans le message
de news:%
Salut Pascal
Mais à première vue notre ami est en pleine formation... Alors dans ce cas......
Une autre pour la formation ;o) '--------- Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) If [a1] = "" Then Exit Sub [A2].NumberFormat = "General" [A2] = [a1] * 24 End Sub '----------- Salutations JJ
"papou" <cestpasbonpapou@çanonplus44.fr> a écrit dans le message de news:
Bonjour Jacky Ben c'est ce que je me suis retenu de dire ;-) Mais à première vue notre ami est en pleine formation... Cordialement Pascal
"Jacky" a écrit dans le message
de news:e1v$
Bonjour Nolain
en a2 ¡*24 format standard ne suffit pas ??
salutations JJ
"nolain" enlever coucou> a écrit dans le message
de news:
bonjour je démarre des petits TP sur chez.com/rti
en voilà un
function heure_decimale(H,M,S) heure_decimale=H+(M+(S/60))/60 end function
en A1, j'écris 1 h 30' 45" sous la forme : 1:30:45 (format heure)
en A2 je lui demande =heure_decimale(a1)....................et là
excel
me
renvoie une engueulade : nom?
il y a quelque chose que je ne capte pas
merci pour votre aide
chouette ça roule
merci
"Jacky" <Jackydelaenlevezjusquici.jaeg@wanadoo.fr> a écrit dans le message
de news:uNPqSSVoEHA.596@TK2MSFTNGP11.phx.gbl...
Re....
je n'ai pas réussi avec la a1*24 dans le vba
Clique droit sur l'onglet d'une feuille et choisir >visualiser le code<
et
copie ceci
'-----------
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If [a1] = "" Then Exit Sub
[A2].NumberFormat = "General"
[A2] = [a1] * 24
End Sub
'-------------
A chaque changement de la sélection dans la feuille contenant le code le
calcul se serait sauf si A1 est vide!
Bon courage
JJ
"nolain" <nolaincoucou@ifrance.com enlever coucou> a écrit dans le message
de news:%23mitEeUoEHA.2636@TK2MSFTNGP09.phx.gbl...
merci!!!!!!!!!!!!!!!!!
j'ai fait un gros gloups avec la formule a1*24 !!!!!!!!!!!
si j'en avais besoin, ce serait certainement ce que je prendrais
mais pour me familiariser avec le vba je prends la function sous vba
par contre, je n'ai pas réussi avec la a1*24 dans le vba
encore merci
"Jacky" <Jackydelaenlevezjusquici.jaeg@wanadoo.fr> a écrit dans le
message
de news:%23Qi4GDKoEHA.3460@TK2MSFTNGP15.phx.gbl...
Salut Pascal
Mais à première vue notre ami est en pleine formation...
Alors dans ce cas......
Une autre pour la formation ;o)
'---------
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If [a1] = "" Then Exit Sub
[A2].NumberFormat = "General"
[A2] = [a1] * 24
End Sub
'-----------
Salutations
JJ
"papou" <cestpasbonpapou@çanonplus44.fr> a écrit dans le message de
news:uIONd7IoEHA.1608@TK2MSFTNGP15.phx.gbl...
Bonjour Jacky
Ben c'est ce que je me suis retenu de dire ;-)
Mais à première vue notre ami est en pleine formation...
Cordialement
Pascal
"Jacky" <Jackydelaenlevezjusquici.jaeg@wanadoo.fr> a écrit dans le
message
de news:e1v$4wIoEHA.2684@TK2MSFTNGP11.phx.gbl...
Bonjour Nolain
en a2
¡*24 format standard ne suffit pas ??
salutations
JJ
"nolain" <nolaincoucou@ifrance.com enlever coucou> a écrit dans le
message
de news:e1lBihIoEHA.4032@TK2MSFTNGP15.phx.gbl...
bonjour
je démarre des petits TP sur chez.com/rti
en voilà un
function heure_decimale(H,M,S)
heure_decimale=H+(M+(S/60))/60
end function
en A1, j'écris 1 h 30' 45" sous la forme : 1:30:45 (format
heure)
en A2 je lui demande =heure_decimale(a1)....................et
là
Clique droit sur l'onglet d'une feuille et choisir >visualiser le code< et
copie ceci '----------- Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) If [a1] = "" Then Exit Sub [A2].NumberFormat = "General" [A2] = [a1] * 24 End Sub '------------- A chaque changement de la sélection dans la feuille contenant le code le calcul se serait sauf si A1 est vide!
Bon courage JJ
"nolain" enlever coucou> a écrit dans le message de news:%
merci!!!!!!!!!!!!!!!!! j'ai fait un gros gloups avec la formule a1*24 !!!!!!!!!!! si j'en avais besoin, ce serait certainement ce que je prendrais mais pour me familiariser avec le vba je prends la function sous vba par contre, je n'ai pas réussi avec la a1*24 dans le vba
encore merci
"Jacky" a écrit dans le message
de news:%
Salut Pascal
Mais à première vue notre ami est en pleine formation... Alors dans ce cas......
Une autre pour la formation ;o) '--------- Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) If [a1] = "" Then Exit Sub [A2].NumberFormat = "General" [A2] = [a1] * 24 End Sub '----------- Salutations JJ
"papou" <cestpasbonpapou@çanonplus44.fr> a écrit dans le message de news:
Bonjour Jacky Ben c'est ce que je me suis retenu de dire ;-) Mais à première vue notre ami est en pleine formation... Cordialement Pascal
"Jacky" a écrit dans le message
de news:e1v$
Bonjour Nolain
en a2 ¡*24 format standard ne suffit pas ??
salutations JJ
"nolain" enlever coucou> a écrit dans le message
de news:
bonjour je démarre des petits TP sur chez.com/rti
en voilà un
function heure_decimale(H,M,S) heure_decimale=H+(M+(S/60))/60 end function
en A1, j'écris 1 h 30' 45" sous la forme : 1:30:45 (format heure)
en A2 je lui demande =heure_decimale(a1)....................et là
