Problème avec une macro = Erreur d'exécution '13' Incompatibilité de type.

Cydor007 · 24 Septembre 2015

Bonjour à tous,

J'ai besoin de votre aide pour régler un problème.

Pour faciliter mon entrée de donnée dans mon tableau, j'ai créé un outil (macro) qui rempli certains champs automatiquement. Le problème est que quand j'efface une ligne qui contenait les champs remplis, j'obtiens l'erreur d'exécution 13.

Voici mon outil:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 1 Then Exit Sub
If Target.Value <> 0 Then
lig = Target.Row
Cells(lig, 11).Value = "oui"
Cells(lig, 12).Value = "non"
Cells(lig, 13).Value = "non"
Cells(lig, 14).Value = "non"
Cells(lig, 15).Value = "non"
End If

Avez-vous une idée pour que cette erreur ne s'applique pas? J'ai pensé que lors que les informations s'efface, que l'outil sort de la macro avec Exit Sub.

Merci

mapomme · 24 Septembre 2015

Re : Problème avec une macro = Erreur d'exécution '13' Incompatibilité de type.

Bonsoir Cydor007,

Essayez ce code :

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Column <> 1 Or Target.Count <> 1 Then Exit Sub
  If Target <> 0 Then
    lig = Target.Row
    Application.EnableEvents = False
    Cells(lig, 11).Value = "oui"
    Cells(lig, 12).Value = "non"
    Cells(lig, 13).Value = "non"
    Cells(lig, 14).Value = "non"
    Cells(lig, 15).Value = "non"
    Application.EnableEvents = True
  End If
End Sub

Cydor007 · 24 Septembre 2015

Re : Problème avec une macro = Erreur d'exécution '13' Incompatibilité de type.

Super mapomme,

Après avoir testé dans mon classeur, tout est conforme.

Merci de ton Aide.

Cydor007

mapomme à dit:

Bonsoir Cydor007,

Essayez ce code :

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Column <> 1 Or Target.Count <> 1 Then Exit Sub
  If Target <> 0 Then
    lig = Target.Row
    Application.EnableEvents = False
    Cells(lig, 11).Value = "oui"
    Cells(lig, 12).Value = "non"
    Cells(lig, 13).Value = "non"
    Cells(lig, 14).Value = "non"
    Cells(lig, 15).Value = "non"
    Application.EnableEvents = True
  End If
End Sub

Problème avec une macro = Erreur d'exécution '13' Incompatibilité de type.

Cydor007

XLDnaute Occasionnel

mapomme

XLDnaute Barbatruc

Cydor007

XLDnaute Occasionnel

Discussions similaires