Bloquer une cellule
Bonjour
dans mon fichier excel j extrait des donnees horaires du style 1310 dans une autre feuille , avec une boucle que voici
Sub graph()
If ActiveSheet.Name <> "Activité" Then Exit Sub
Const msg1 As String * 20 = "Aucune donnée copiée"
Const msg2 As String * 27 = "Copie des données effectuée"
Dim FX As Worksheet, CTL$, dlig&, Lig&, dh, dm, dn, dp As Byte
dlig = Cells(Rows.Count, 3).End(xlUp).Row - 1
Application.ScreenUpdating = 0
For Lig = 21 To dlig
With Cells(Lig, 2)
If Not IsEmpty(.Value) Then
If .Offset(, 17) > 0 Then
For dh = 23 To 24
CTL = .Offset(, dh)
If CTL <> "" Then
Set FX = Worksheets(CTL)
If FX.[H3] <> "" Then FX.[H3:J3].Insert -4121, 1
FX.[H3] = .Value 'Indicatif
FX.[I3] = .Offset(, 8) 'heure PC1
FX.[J3] = .Offset(, 9) 'heure F1
'FX.[D3] = .Offset(, 11) 'heure PC2
'FX.[E3] = .Offset(, 12) 'heure F2
'FX.[F3] = .Offset(, 13) 'heure PC3
'FX.[G3] = .Offset(, 14) 'Heure F3
'FX.[H3] = .Offset(, 15) 'Heure PC3
'FX.[I3] = .Offset(, 16) 'Heure F3
End If
Next dh
For dm = 25 To 26
CTL = .Offset(, dm)
If CTL <> "" Then
Set FX = Worksheets(CTL)
If FX.[H3] <> "" Then FX.[H3:J3].Insert -4121, 1
FX.[H3] = .Value 'Indicatif
FX.[I3] = .Offset(, 10) 'heure PC2
FX.[J3] = .Offset(, 11) 'heure F2
End If
Next dm
dn = 27
CTL = .Offset(, dn)
If CTL <> "" Then
Set FX = Worksheets(CTL)
If FX.[H3] <> "" Then FX.[H3:J3].Insert -4121, 1
FX.[H3] = .Value 'Indicatif
FX.[I3] = .Offset(, 12) 'heure PC3
FX.[J3] = .Offset(, 13) 'heure F3
End If
dp = 28
CTL = .Offset(, dp)
If CTL <> "" Then
Set FX = Worksheets(CTL)
If FX.[H3] <> "" Then FX.[H3:J3].Insert -4121, 1
FX.[H3] = .Value 'Indicatif
FX.[I3] = .Offset(, 14) 'heure PC4
FX.[J3] = .Offset(, 15) 'heure F4
End If
End If
End If
End With
Next Lig
If FX Is Nothing Then CTL = msg1 Else CTL = msg2
MsgBox CTL, 64, "graph"
sur ma nouvelle page j obtient
A B C
1 test 1310 1410
2 test1 1340 1450
je veux transformer ces heures en 00:00 avec =((MOD(TEXTE(B1;"00"":""00")-TEXTE($K$4;"00"":""00");1)))
le soucis que j ai quand je n ai qu une valeur cela fonctionne
Quand j ai l exemple du dessus mon =((MOD(TEXTE(B1;"00"":""00")-TEXTE($K$4;"00"":""00");1))) devient
=((MOD(TEXTE(B4;"00"":""00")-TEXTE($K$4;"00"":""00");1)))
comment figer ce B1 en B1 jai essayé =((MOD(TEXTE($B$1;"00"":""00")-TEXTE($K$4;"00"":""00");1))) ca ne fonctionne pas
super merci pour la formule
le soucis est toujours le meme avec ma fonction graph qui fait une boucle quand je la lance
on a
A B C
1 test 1310 1410
2 test1 1340 1450
donc B1=1310 ou maintenant 13:10 avec la fonction
c1 1410 B2 =1340 c2 1450
quand je copie dans une autre feuille
exemple x =feuille!B1 qui doit etre egale a 13:10 j obtient x=feuille!B2 si on a test3 1600 1700 alors x=feuille!b3
comment bloquer en x=feuille!B1
merci
Bonjour,
D'accord. Si la formule en E1 vous convient n'hésitez pas à passer ce sujet en résolu.
Cdlt,