H
Hikaru
Guest
Bonjour à tous,
Pour faire des calculs sur des cellules avec des heures (certaines sont saisies et d'autres proviennent d'un copier-coller d'une extraction), je n'ai trouvé comme moyen que de double cliquer sur les données collées.
Comme c'est assez rébarbatif, j'ai ce début de code mais qui bug un peu :-((
En fait, quand je saisis (ou sélectionne) dans l'input box ma plage de cellules (ex : C3:C5), la macro se lance à partic de C5 pour 3 cellules !
Si quelqu'un y voit plus clair que moi, je suis preneur de vos conseils !
Sub Mise_en_fome_H_Renseignee()
'
' Macro_Indicateurs Ponctualité
'
Dim a As Range, Plage2 As Range
On Error GoTo SaisieAnnulee
Set Plage2 = Application.InputBox(prompt:="Selectionnez la plage concernée puis OK", Type:=8)
'ouverture d'une box pour demander la plage désirée
For Each a In Plage2.Cells
a.Select
SendKeys "{F2}", True
SendKeys "{ENTER}", True
Next a
Exit Sub
SaisieAnnulee:
On Error GoTo 0
End Sub
Pour faire des calculs sur des cellules avec des heures (certaines sont saisies et d'autres proviennent d'un copier-coller d'une extraction), je n'ai trouvé comme moyen que de double cliquer sur les données collées.
Comme c'est assez rébarbatif, j'ai ce début de code mais qui bug un peu :-((
En fait, quand je saisis (ou sélectionne) dans l'input box ma plage de cellules (ex : C3:C5), la macro se lance à partic de C5 pour 3 cellules !
Si quelqu'un y voit plus clair que moi, je suis preneur de vos conseils !
Sub Mise_en_fome_H_Renseignee()
'
' Macro_Indicateurs Ponctualité
'
Dim a As Range, Plage2 As Range
On Error GoTo SaisieAnnulee
Set Plage2 = Application.InputBox(prompt:="Selectionnez la plage concernée puis OK", Type:=8)
'ouverture d'une box pour demander la plage désirée
For Each a In Plage2.Cells
a.Select
SendKeys "{F2}", True
SendKeys "{ENTER}", True
Next a
Exit Sub
SaisieAnnulee:
On Error GoTo 0
End Sub
