Select Case Len(Target)

Version imprimable

bonjour j'ai ce code

Code:

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:

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:

Select Case Len(Target)

alors que j'efface svp avec l'aide d'un combobox

05/09/2013, 08h23
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)
05/09/2013, 08h33
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.
05/09/2013, 09h18
pilounet54

Select Case Len(Target)

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:

Select Case Len(Target)
05/09/2013, 09h25
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:

Select Case Len(trim("" & Target))
05/09/2013, 10h40
pilounet54

Citation:

Envoyé par rdurupt

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:

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
05/09/2013, 10h44
mayekeul

donc comme dis précédemment

fait une histoire du genre

Code:

...len(target.text)...
05/09/2013, 11h08
Marc-L

Bonjour.

Citation:

Envoyé par pilounet54

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 :plusser: pour chaque message ayant aidé puis sur :resolu: pour clore cette discussion …
06/09/2013, 14h31
pilounet54

target

merci à tous