Discussion :

[leloup84]

Bonjour,

J'ai ce message qui apparaît régulièrement depuis que j'ai mis le code suivant dans une feuille. Il a l'air de boqué au niveau de la ligne oVal = Target

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
Public oVal As String
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    oVal = Target
End Sub
 
Private Sub Worksheet_Change(ByVal Target As Range)
Dim oRng As Range
Dim n As Integer
 
If Target.Count = 1 Then
    If Not Application.Intersect(Target, Columns(6)) Is Nothing Then
        If Target > "0" Or Target <> oVal Then
            Set oRng = Range("F12")
            Feuil18.Range("A37:A50").ClearContents
            Feuil18.Range("E37:E50").ClearContents
            For i = 0 To Cells(Cells.Rows.Count, 2).End(xlUp).Row - 1
                If UCase(oRng.Offset(i, 0)) > "0" Then
                    n = n + 1
                    Feuil18.Range("A36").Offset(n, 0) = oRng.Offset(i, -2)
                End If
            Next i
        End If
    End If
End If
 
End Sub

De quoi cela vient-il ?

[cerede2000]

Bonjour à toi,

13 Incompatibilité de type =>

Code :

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

oVal As String

Code :

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

Target As Range

En effet essayer de mettre un objet de type Range dans un objet de type String....

Code :

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

oVal = Target

Ça provoque bien une incompatibilité

Si c'est la valeur de la cellule que tu veux alors :

Code :

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

oVal = Target.Value

Mais attention, car Target peux être une cellule comme plusieurs et dans ce cas il serait bien de tester ceci :

Code :

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

If Target.Count = 1 Then oVal = Target.Value

[leloup84]

Ok merci çà fonctionne