Discussion :

[pilounet54]

bonjour ces deux codes séparés fonctionne mais si je les mets comme cela message d' erreur 13 petite astuce pour professionnel à trouvé

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
32
33
34
35
36
37
38
Private Sub Worksheet_Change(ByVal Target As Range)
 
 
 '''''''''''''''''traiter cellule'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
 
Dim mCellule As Range
 
  For Each mCellule In Target
 
    If mCellule.Column = 13 And mCellule.Row > 4 Then
      traiter_cellule mCellule
    End If
 
  Next mCellule
 
 
   '''''''''''''''Format personnalise''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
 
 
      If Not Application.Intersect(Target, Range("C5:C365, D5:D365, F5:F365, G5:G365")) Is Nothing Then
   Select Case Len(Target)
            Case 4
                Target = TimeValue(Left(Target, 2) & ":" & Right(Target, 2))
            Case 3
                Target = TimeValue(Format(Left(Target, 1), "00") & ":" & Right(Target, 2))
            Case 2
                Target = TimeValue("00" & ":" & Target)
 
 
            Case Else
 
        End Select
 
 
    End If
 
 
End Sub

je souhaite si je suis dans la colonne 13 ok 1 partie du code
si je suis dans les plages annoncées 2 partie mais pas les deux en même temps
cordialement à tous j'attend vos remarque

[Daniel.C]

Bonjour,

Si "Target est une plage de cellules, "Len(Target) provoque une erreur. "Len" compte le nombre de caractères d'un string. Je ne sais pas trop ce que tu veux faire, mais peut-être remplacer "Tart" par "mCellule" et inclurre le code dans la boucle :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

For Each mCellule In Target

[pilounet54]

je me pose la question dans le premier cas je mets du texte et dans le deuxième cas c'est exclusivement du time mais si je regarde je passe du 1 cas au 2 cas alors que je ne devrais pas puisqu'il sont conditionne , et le message d'erreur alors que je suis dans la colonne 13, il es sur la ligne juste après case 3

[Daniel.C]

Explique exactement ce que tu souhaites faire.

[pilounet54]

bonjour et merci de se pencher sur mon problème
Si le target et dans la colonne 13 il doit traité la cellule donc rester dans le 1 code et pas passe dans le deuxième code et c'est pour cela que j'ai le message d'erreur car en passant dans le deuxième code il compte et c'est pas du tout prevu pour cela j'ais du texte du style accident de travail et je me doute
qui aime pas
j'espere que mes explications sont assez explicite
cordialement

[Daniel.C]

Je n'arrive pas à me faire une idée. Mets un classeur exemple - sans données confidentielles - en pièce jointe. et explique ce que tu copies.