bonjour j'ai ce code
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
 If (mCellule.Column = 3 Or _
          mCellule.Column = 4 Or _
          mCellule.Column = 6 Or _
          mCellule.Column = 7) And _
          mCellule.Row > 4 Then
 
         Select Case Len(Target)
 
 
                Case 4
                    mCellule = TimeValue(Left(mCellule, 2) & ":" & Right(mCellule, 2))
                Case 3
                    'mCellule = TimeValue(Format(Left(mCellule, 1), "00") & ":" & Right(mCellule, 2))
 
                     mCellule = TimeValue(Format(Left(mCellule, 2), "00") & ":" & Right(mCellule & "0", 2))
 
                Case 2
                    'mCellule = TimeValue("00" & ":" & mCellule)
                    mCellule = TimeValue(mCellule & ":" & "00")
 
                Case 1
                    mCellule = TimeValue("0" & mCellule & ":" & "00")
                Case Else
 
 
 
 
         End Select
 
 
     End If
et celui -ci
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
If pcellule.Value = "Efface" Then
 
               '''''''''''''''''''''''''''''''''''efface value'''''''''''''''''''''''''''''
 
 
            With Range(Cells(pcellule.Row, pcellule.Column + -6), Cells(pcellule.Row, pcellule.Column + -7)).Cells
                .Value = ""
            End With
la question pourquoi je pourrai avoir un bug sur la ligne la
Code : Sélectionner tout - Visualiser dans une fenêtre à part
Select Case Len(Target)
alors que j'efface svp avec l'aide d'un combobox