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

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Cydor007

XLDnaute Occasionnel
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😉
 
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
 
Dernière édition:
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😀

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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
Microsoft 365 Problème de date
Réponses
5
Affichages
162
Réponses
1
Affichages
348
Réponses
16
Affichages
1 K
Retour