Erreur exécution 13 : incompatibilité de type

Résolu/Fermé
Belinos Messages postés 15 Date d'inscription mardi 17 novembre 2020 Statut Membre Dernière intervention 17 février 2021 - Modifié le 17 nov. 2020 à 09:32
yg_be Messages postés 22479 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 22 février 2024 - 17 nov. 2020 à 15:28
Bonjour,

Débutant sur Vba je rencontre une erreur d’exécution 13 au niveau de la ligne "If not application.intersect..."
Voilà mon code :
J'ai ajouté la première partie "Option explicit et dim" mais j'ai toujours une erreur dès que j'insère un ligne ou déplace une cellule sur ma feuille.

Option Explicit
Dim wsh As String
Dim sh As Variant

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("C7")) Is Nothing And Target <> "" Then
wsh = Target
With Worksheets(wsh)
.Visible = True
.Activate
End With
For Each sh In ThisWorkbook.Sheets
If sh.Name <> "Feuil1" And sh.Name <> "Feuil2" And sh.Name <> "Feuil3" And sh.Name <> "Feuil4" And sh.Name <> "Feuil5" And sh.Name <> "Feuil6" And sh.Name <> wsh Then
sh.Visible = xlVeryHidden
End If
Next
End If
End Sub


Merci pour votre aide !

Bonne journée

4 réponses

yg_be Messages postés 22479 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 22 février 2024 1 444
Modifié le 17 nov. 2020 à 10:50
bonjour,
l'erreur se produit-elle quand tu changes uniquement la cellule C7?

l'erreur se produit-elle quand tu changes une seule cellule?
0
Belinos Messages postés 15 Date d'inscription mardi 17 novembre 2020 Statut Membre Dernière intervention 17 février 2021
17 nov. 2020 à 11:54
Non l'erreur se produit n'importe où sur la feuille
0
yg_be Messages postés 22479 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 22 février 2024 1 444 > Belinos Messages postés 15 Date d'inscription mardi 17 novembre 2020 Statut Membre Dernière intervention 17 février 2021
17 nov. 2020 à 14:24
je n'ai pas compris "déplace une cellule sur ma feuille": tu fais cela comment?
0
Belinos Messages postés 15 Date d'inscription mardi 17 novembre 2020 Statut Membre Dernière intervention 17 février 2021 > yg_be Messages postés 22479 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 22 février 2024
17 nov. 2020 à 14:46
Et bien je sélectionne l'encadré d'une cellule et je l'a déplace à un autre endroit
0
yg_be Messages postés 22479 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 22 février 2024 1 444 > Belinos Messages postés 15 Date d'inscription mardi 17 novembre 2020 Statut Membre Dernière intervention 17 février 2021
17 nov. 2020 à 15:28
ah ok, tu recopies le contenu d'une cellule vers des cellules voisines!
0