Message d'erreur "Erreur de compilation: Incompatibilité de type"

[maval]

Bonjour,

J'ai mon code pour calculer des cellules de la colonne "D", quand je rentre une somme fixe
Ex. 456 dans la cellules "D3" j'ai automatiquement en "D4" la somme de 1488. Pour avoir toujours la somme des deux cellules à 1944.

Le problème j'ai un message d'erreur "Erreur de compilation: Incompatibilité de type" sur la ligne suivante

 If Intersect(Target, [D3:D4]) Or Target.Count Is Nothing Then Exit Sub

Mon code au complet:

    Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [D3:D4]) Or Target.Count Is Nothing Then Exit Sub
    'si la cellule modifié n'est ni D3, ni D4, sortir
    Application.EnableEvents = False
    'Bloquer la gestion des évènement
    If Target.Address(0, 0) = "D3" Then
    'si la cellule a pour adresse D3
       [D4] = 1944 - [D3]
        'D4 = 1944-D3
    Else
    'sinon
       [D3] = 1944 - [D4]
        'D3 = 1944-D4
    End If
    Application.EnableEvents = True
    'remise en route gestion des évènements
    End Sub

Un grand merci d'avance

Bonne soirée

Max

 

[Pierrot93]

Re : Message d'erreur "Erreur de compilation: Incompatibilité de type"

Bonjour,

peut être comme ceci :

If Intersect(Target, [D3:D4]) Is Nothing Or Target.Count > 1 Then Exit Sub

bonne journée
@+

 

[maval]

Re : Message d'erreur "Erreur de compilation: Incompatibilité de type"

Bonjour Pierrot,

Je te remercie sa fonctionne très bien.
Pourrais tu me dire comment tirer vers le bas ce code c'est à dire que je puisse le faire fonctionner pour les cellules "D3 D4" , "D5 D6" ect..
Merci et bonne journée

@+ max

 

[Pierrot93]

Re : Message d'erreur "Erreur de compilation: Incompatibilité de type"

Re,

bah... modifie D4 par D6... ou par la dernière cellule de la plage...

 

[maval]

Re : Message d'erreur "Erreur de compilation: Incompatibilité de type"

Re

Non! Le résultat de 1944 sa doit marcher que sur deux cellules a la fois "D3 D4" , "D5 D6" ect..

@+

Max

 

[Pierrot93]

Re : Message d'erreur "Erreur de compilation: Incompatibilité de type"

Re,

Non! Le résultat de 1944 sa doit marcher que sur deux cellules a la fois "D3 D4" , "D5 D6" ect..

perso pas compris...

 

[maval]

Re : Message d'erreur "Erreur de compilation: Incompatibilité de type"

Re,

J'ai 100 équipes de belote, les résultats de 1944 se calcule par deux équipes, se sont points que les deux équipes font donc "D3 D4"
Maintenant il faut que je continu en "D5 D6" ect..

 

[Pierrot93]

Re : Message d'erreur "Erreur de compilation: Incompatibilité de type"

Re,

regarde ceci, à adapter :

With Target
    If .Count > 1 Or .Column <> 4 Or .Row < 3 Then Exit Sub
    Application.EnableEvents = False
        If .Row Mod 2 <> 0 Then .Offset(1).Value = 1944 - .Value
    Application.EnableEvents = True
End With

 

[maval]

Re : Message d'erreur "Erreur de compilation: Incompatibilité de type"

Re,

Nickel je te remercie et te souhaite une bonne journée

@+
Max