Erreur exécution 13 : incompatibilité de type
Résolu
Belinos
Messages postés
15
Date d'inscription
Statut
Membre
Dernière intervention
-
yg_be Messages postés 23541 Date d'inscription Statut Contributeur Dernière intervention -
yg_be Messages postés 23541 Date d'inscription Statut Contributeur Dernière intervention -
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
yg_be
Messages postés
23541
Date d'inscription
Statut
Contributeur
Dernière intervention
Ambassadeur
1 584
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
Date d'inscription
Statut
Membre
Dernière intervention
Non l'erreur se produit n'importe où sur la feuille
yg_be
Messages postés
23541
Date d'inscription
Statut
Contributeur
Dernière intervention
1 584
>
Belinos
Messages postés
15
Date d'inscription
Statut
Membre
Dernière intervention
je n'ai pas compris "déplace une cellule sur ma feuille": tu fais cela comment?
Belinos
Messages postés
15
Date d'inscription
Statut
Membre
Dernière intervention
>
yg_be
Messages postés
23541
Date d'inscription
Statut
Contributeur
Dernière intervention
Et bien je sélectionne l'encadré d'une cellule et je l'a déplace à un autre endroit
yg_be
Messages postés
23541
Date d'inscription
Statut
Contributeur
Dernière intervention
1 584
>
Belinos
Messages postés
15
Date d'inscription
Statut
Membre
Dernière intervention
ah ok, tu recopies le contenu d'une cellule vers des cellules voisines!