Erreur exécution 13 : incompatibilité de type
Résolu
Belinos
Messages postés
15
Statut
Membre
-
yg_be Messages postés 24281 Statut Contributeur -
yg_be Messages postés 24281 Statut Contributeur -
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.
Merci pour votre aide !
Bonne journée
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
A voir également:
- Incompatibilité de type vba
- Erreur d'exécution 13 incompatibilité de type - Meilleures réponses
- Vba incompatibilité de type - Meilleures réponses
- +33 9 48 48 13 93 ✓ - Forum Mobile
- Fifa 13 - Télécharger - Jeux vidéo
- Erreur 3005 france tv - Forum TV & Vidéo
- Test redmi note 13 5g - Accueil - Téléphones
- Erreur d'execution 13 ✓ - Forum Programmation
4 réponses
bonjour,
l'erreur se produit-elle quand tu changes uniquement la cellule C7?
l'erreur se produit-elle quand tu changes une seule cellule?
l'erreur se produit-elle quand tu changes uniquement la cellule C7?
l'erreur se produit-elle quand tu changes une seule cellule?
Belinos
Messages postés
15
Statut
Membre
Non l'erreur se produit n'importe où sur la feuille
yg_be
Messages postés
24281
Statut
Contributeur
1 584
>
Belinos
Messages postés
15
Statut
Membre
je n'ai pas compris "déplace une cellule sur ma feuille": tu fais cela comment?
Belinos
Messages postés
15
Statut
Membre
>
yg_be
Messages postés
24281
Statut
Contributeur
Et bien je sélectionne l'encadré d'une cellule et je l'a déplace à un autre endroit
yg_be
Messages postés
24281
Statut
Contributeur
1 584
>
Belinos
Messages postés
15
Statut
Membre
ah ok, tu recopies le contenu d'une cellule vers des cellules voisines!