Macro Excel copier / coller
Fermé
paul57
Messages postés
18
Date d'inscription
jeudi 22 octobre 2009
Statut
Membre
Dernière intervention
14 janvier 2010
-
22 oct. 2009 à 21:07
michel_m Messages postés 16593 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 23 mars 2023 - 23 oct. 2009 à 12:36
michel_m Messages postés 16593 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 23 mars 2023 - 23 oct. 2009 à 12:36
A voir également:
- Macro Excel copier / coller
- Liste déroulante excel - Guide
- Formule excel - Guide
- Dessin sms copier coller zizi ✓ - Forum Internet / Réseaux sociaux
- Coeur copier coller ✓ - Forum Internet / Réseaux sociaux
- Copier video youtube - Guide
5 réponses
michel_m
Messages postés
16593
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
23 mars 2023
3 293
23 oct. 2009 à 09:49
23 oct. 2009 à 09:49
bonjour
essaies
essaies
Sub copier_svt_hr()
Dim lig As Byte
If Range("H14") >= 0 And Range("H14") < 1 Then
lig = Range("H14") * 24 + 7
With Sheets(2)
If Not IsEmpty(.Cells(lig, 3)) Then
MsgBox "erreur!", vbCritical
Else
.Cells(lig, 3) = Sheets(1).Range("H22")
End If
End With
Else
MsgBox "saisie incorrecte", vbCritical
End If
End Sub
Bonjour,
Merci de votre rep,
Il y a un petit prob dans ce que vous avez fait. J'aurai peut etre du préciser que les valeurs 00:00 ; 01:00.......................23:00 sont au format texte.
Je sais pas si ca change qqch pke la ca ne marche pas
MERCI
Merci de votre rep,
Il y a un petit prob dans ce que vous avez fait. J'aurai peut etre du préciser que les valeurs 00:00 ; 01:00.......................23:00 sont au format texte.
Je sais pas si ca change qqch pke la ca ne marche pas
MERCI
michel_m
Messages postés
16593
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
23 mars 2023
3 293
23 oct. 2009 à 10:22
23 oct. 2009 à 10:22
J'aurai peut etre du préciser
bin oui
désolé
Michel
bin oui
désolé
Michel
michel_m
Messages postés
16593
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
23 mars 2023
3 293
23 oct. 2009 à 11:46
23 oct. 2009 à 11:46
re,
Si sur ta feuille excel l'heure apparait dans la cellule H14 sous la forme "10:00" avec les guillemets
Si sur ta feuille excel l'heure apparait dans la cellule H14 sous la forme "10:00" avec les guillemets
Sub copier_svt_hr()
Dim lig As Byte
lig = Val(Mid(Range("H14"), 2, 2)) * 24 + 7
If lig >= 0 And lig < 24 Then
With Sheets(2)
If Not IsEmpty(.Cells(lig, 3)) Then
MsgBox "erreur!", vbCritical
Else
.Cells(lig, 3) = Sheets(1).Range("H22")
End If
End With
Else
MsgBox "saisie incorrecte", vbCritical
End If
End Sub
edit 12:30h
si dans la barre de formule H14 étant sélectionné on a '10:00
àla place de
Val(Mid(Range("H14"), 2, 2))
ecris
Val(Mid(Range("H14"), 1, 2))
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
michel_m
Messages postés
16593
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
23 mars 2023
3 293
23 oct. 2009 à 12:36
23 oct. 2009 à 12:36
re,
si H14 étant sélectionnée, on lit dans la barre de formule '10:00
remplace
Val(Mid(Range("H14"), 2, 2))
par
Val(Mid(Range("H14"), 1, 2))
si H14 étant sélectionnée, on lit dans la barre de formule '10:00
remplace
Val(Mid(Range("H14"), 2, 2))
par
Val(Mid(Range("H14"), 1, 2))