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

maval · 18 Décembre 2012

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

Code:

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

Mon code au complet:

Code:

    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 · 18 Décembre 2012

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

Bonjour,

peut être comme ceci :

Code:

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

bonne journée
@+

maval · 18 Décembre 2012

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 · 18 Décembre 2012

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 · 18 Décembre 2012

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 · 18 Décembre 2012

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 · 18 Décembre 2012

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 · 18 Décembre 2012

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

Re,

regarde ceci, à adapter :

Code:

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 · 18 Décembre 2012

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

Re,

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

@+
Max

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

maval

XLDnaute Barbatruc

Pierrot93

XLDnaute Barbatruc

maval

XLDnaute Barbatruc

Pierrot93

XLDnaute Barbatruc

maval

XLDnaute Barbatruc

Pierrot93

XLDnaute Barbatruc

maval

XLDnaute Barbatruc

Pierrot93

XLDnaute Barbatruc

maval

XLDnaute Barbatruc

Discussions similaires