Discussion :

[casavba]

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Target
If .Column = 5 And .Value <> "" Then
.Value = UCase(.Value)
.Offset(0, 9) = "toto"
.Offset(0, 10) = "titi"
End If
End With
End Sub

Voici ce petit code, qui me pose un petit problème.
En fait, quand je sélectionne une cellule ça marche, mais quand il s'agit d'une plage de cellules ----> ERREUR 13 : Incompatibilité du type --> pourtant Target est un Range.


Si quelqu'un a une autre méthode de procéder, je suis preneur.

Merci

[Jean-Pierre49]

Bonjour

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
 
With Target
If .Column = 5 And .Value <> "" Then
 
.Value = UCase(.Value)
.Offset(0, 9) = "toto"
.Offset(0, 10) = "titi"
End If
End With
End Sub

[casavba]

Merci jean pierre pour ta réponse.
Mais moi ce que je veux c'est quand je selectionne une plage de cellules ou une cellule ---> je dois avoir un résultat

autrement dit, je veux que le code fonctionne dans les deux cas.

[Jean-Pierre49]

Pas avec value alors.

[fring]

Bonjour tlm,

Une solution éventuelle

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim cel As Range
If Target.Column <> 1 Then Exit Sub
 
For Each cel In Selection
    If cel.Value <> "" Then
        cel.Value = UCase(cel.Value)
        cel.Offset(0, 9) = "toto"
        cel.Offset(0, 10) = "titi"
    End If
Next
 
End Sub

[spitnolan]

Bonjour à tous,

si bien compris ce devrait être

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
For Each cel In Target
    With cel
        If .Column = 5 And .Value <> "" Then
            .Value = UCase(.Value)
            .Offset(0, 9) = "toto"
            .Offset(0, 10) = "titi"
        End If
    End With
Next
End Sub

Cordialement

[casavba]

Merci à vous tous.