Discussion :

[pilounet54]

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

[mayekeul]

bonjour,

A première vue et sans savoir le message d'erreur, je dirais que le valeur de target est égale à un nombre.
Len évalue la longueur d'un texte(string)

[78chris]

Bonjour

Target, utilisé dans les procédures événementielles désigne en général un objet.

Si c'est une cellule, il faut se référer à son contenu avec target.value ou target.text ou target.formula, l'objet cellule lui-même n'ayant pas de longueur.

[pilounet54]

bonjour,

je pense que c'est le faite d'efface plusieurs cellule en même temps qu'es qu'il faudrai que je change svp dans la ligne

Code :

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

Select Case Len(Target)

[Invité]

bonjour,
indépendamment de ce qui a été dit précédemment, si Target contient une valeur null, tu aura un message d'erreur.

Code :

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

Select Case Len(trim("" & Target))

[pilounet54]

bonjour,
indépendamment de ce qui a été dit précédemment, si Target contient une valeur null, tu aura un message d'erreur.

Code :

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

Select Case Len(trim("" & Target))

dans la cellule j'ai des valeurs comme 18:51 et pour l'instant pas bien marche
maintenant message d’erreur 13 incompatibilité de type

voila merci pour vos efforts à tous

[mayekeul]

donc comme dis précédemment

fait une histoire du genre

Code :

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

...len(target.text)...

[Marc-L]

Bonjour.

je pense que c'est le faite d'efface plusieurs cellule en même temps qu'es qu'il faudrai que je change svp dans la ligne

Oui effectivement !

Suffit donc de tester en début de procédure le nombre de cellules de Target :

If Target.Count > 1 then Exit Sub …


__________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

[pilounet54]

merci à tous