Erreur d’exécution '13': incompatibilité de type

Créer une discussion
Répondre
  • Initiateur de la discussion Initiateur de la discussion Piaf79
  • Date de début Date de début

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 !

S'inscrire
P

Piaf79

XLDnaute Junior
Bonsoir le forum,

Je souhaite convertir le contenu de trois cellules en majuscules dès lors qu'elles ne le sont pas (D8,D21 et D22). Le code "fonctionne très bien" sauf que lorsque je supprime le contenu de l'une des cellule le message est : Erreur d’exécution '13': incompatibilité de type

Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("D8")) Is Nothing Then Target = UCase(Target)
    If Not Intersect(Target, Range("D21")) Is Nothing Then Target = UCase(Target)
    If Not Intersect(Target, Range("D22")) Is Nothing Then Target = UCase(Target)
    If Target.Address = "$D$13" Then
        nb = Range("D13").Value
        Sheets("ABC").Activate
        ActiveSheet.Range("D1").Select
        Col = 5
        For i = Col To nb + 3
            If Sheets("ABC").Cells(1, i) = "" Then
                Sheets("ABC").Columns(4).Copy

                Sheets("ABC").Columns(i).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, _
                    SkipBlanks:=False, Transpose:=False
                Application.CutCopyMode = False
                For j = 1 To 4
                    Sheets("ABC").Cells(j, i).Value = Sheets("ABC").Cells(j, 4).Value
                Next j
            End If
        Next i
        ActiveSheet.Range("D1").Select
        Sheets("Feuil1").Activate
        ActiveSheet.Range("D13").Select
    End If
End Sub

Est-ce qu'il manque quelque chose ?
Merci pour vos réponses.

Piaf79
 
Trier par date Trier par votes
Re : Erreur d’exécution '13': incompatibilité de type

Bonsoir Tentative,

J'ai l'impression que tout fonctionne normalement.
Peux tu m'expliquer le "on error resume next" ?

Par contre quand je supprime le contenu de la cellule avec la touche TAB cela dure quelques instants, normal ?

Bonne soirée.

Piaf79
 
Vote positif 0 Vote négatif
Re : Erreur d’exécution '13': incompatibilité de type

Bonjour,

On error resume next = s'il y a une erreur passe à l'étape suivante.

Pour la déclaration des variables, on peut le forcer dans Vbe, menu Outils, Options, cocher : Déclaration des variables obligatoire
Si on veut utiliser la variable J, on déclare qui est J, au début de la macro :
Dim J as Integer
Donc J ne supportera que les entiers
Dim MaVar as String
MaVar ne supportera que les textes ou verra les nombres comme du texte.

Il y a plusieurs avantages à déclarer les variables.
Dont l'une : reprenons l'exemple de MaVar, quand je tape le code, j'écris mavar .... puis en changeant de ligne, mavar deviendra MaVar. Ainsi, je suis sûr de ne pas avoir fait une faute de frappe dans le nom de ma variable.
Etc


Tentative
 
Vote positif 0 Vote négatif
Re : Erreur d’exécution '13': incompatibilité de type

Bonsoir à tous,

Tentative, Tototiti2008, merci pour vos explications.

Toutefois, je n'arrive pas à trouver la "bonne formule" par rapport à au code de mon premier post. Un p'tit coup de pouce ?

Bonne soirée.
Piaf79
 
Vote positif 0 Vote négatif
Re : Erreur d’exécution '13': incompatibilité de type

Bonjour à tous,

Toutefois, je n'arrive pas à trouver la "bonne formule" par rapport à au code de mon premier post. Un p'tit coup de pouce ?
Cliquez pour agrandir...

Peut-être, bien que tu ne nous ait pas parlé de ce que fait l'autre partie de ton code...

Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    If Not Intersect(Target, Range("D8")) Is Nothing Then Target = UCase(Target)
    If Not Intersect(Target, Range("D21")) Is Nothing Then Target = UCase(Target)
    If Not Intersect(Target, Range("D22")) Is Nothing Then Target = UCase(Target)
    Application.EnableEvents = True
    If Target.Address = "$D$13" Then
        nb = Range("D13").Value
        Sheets("ABC").Activate
        ActiveSheet.Range("D1").Select
        Col = 5
        For i = Col To nb + 3
            If Sheets("ABC").Cells(1, i) = "" Then
                Sheets("ABC").Columns(4).Copy


                Sheets("ABC").Columns(i).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, _
                    SkipBlanks:=False, Transpose:=False
                Application.CutCopyMode = False
                For j = 1 To 4
                    Sheets("ABC").Cells(j, i).Value = Sheets("ABC").Cells(j, 4).Value
                Next j
            End If
        Next i
        ActiveSheet.Range("D1").Select
        Sheets("Feuil1").Activate
        ActiveSheet.Range("D13").Select
    End If
End Sub

Edit : attention, prévois une macro avec juste
Application.EnableEvents = True
à lancer pour réactiver les évènements si plantage
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Erreur d’exécution '13': incompatibilité de type

Tototiti2008,

Je viens d'essayer ton code.
1. Quand j'efface le contenu de la cellule avec la touche <- cela fonctionne.
2. Quand j'efface le contenu de la cellule avec la touche suppr il me met le message "Erreur d’exécution '13': incompatibilité de type" et surligne en jaune dans mon code VBA "Target = UCase(Target)"

L'autre partie du code permet de dupliquer la colonne D de la feuille "ABC" un certain nombre de fois (dépend du chiffre inscrit dans la cellule D13 de "Feuil1".

Piaf79
 
Vote positif 0 Vote négatif
Re : Erreur d’exécution '13': incompatibilité de type

Re,

Essaye ça

Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
if target.count>1 then exit sub    
Application.EnableEvents = False
    If Not Intersect(Target, Range("D8")) Is Nothing Then Target = UCase(Target)
    If Not Intersect(Target, Range("D21")) Is Nothing Then Target = UCase(Target)
    If Not Intersect(Target, Range("D22")) Is Nothing Then Target = UCase(Target)
    Application.EnableEvents = True
    If Target.Address = "$D$13" Then
        nb = Range("D13").Value
        Sheets("ABC").Activate
        ActiveSheet.Range("D1").Select
        Col = 5
        For i = Col To nb + 3
            If Sheets("ABC").Cells(1, i) = "" Then
                Sheets("ABC").Columns(4).Copy




                Sheets("ABC").Columns(i).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, _
                    SkipBlanks:=False, Transpose:=False
                Application.CutCopyMode = False
                For j = 1 To 4
                    Sheets("ABC").Cells(j, i).Value = Sheets("ABC").Cells(j, 4).Value
                Next j
            End If
        Next i
        ActiveSheet.Range("D1").Select
        Sheets("Feuil1").Activate
        ActiveSheet.Range("D13").Select
    End If
End Sub
 
Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- 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

U
  • Question Question
Autres [RÉSOLU] macro à modifier
Réponses
1
Affichages
507
un internaute
U
N
  • Question Question
Microsoft 365 gestion de kilometrage
Réponses
4
Affichages
240
nabilexcel2007
N
U
  • Question Question
Autres [RÉSOLU] Compléter macro pour Suppr cellules
Réponses
7
Affichages
336
un internaute
U
U
  • Question Question
Autres [RÉSOLU] Compléter la macro mais comment et où?
Réponses
2
Affichages
567
un internaute
U
S
  • Question Question
Microsoft 365 VBA Action suivant le résultat d'une cellule
Réponses
7
Affichages
193
TooFatBoy
TooFatBoy
N
  • Question Question
XL 2013 Utilisé deux CommandButton_Click dans la même feuil
Réponses
4
Affichages
348
patricktoulon
patricktoulon
F
  • Résolu(e)
Microsoft 365 Evènement worksheet_change
Réponses
2
Affichages
235
Francky79
F
S
  • Résolu(e)
Microsoft 365 Déclenchement macro en série suite à cellule fusionnées
Réponses
3
Affichages
453
spike29
S
PORCHER
  • Question Question
Microsoft 365 Incompatibilité de type
Réponses
1
Affichages
413
Dranreb
Dranreb
richardlion
  • Question Question
XL 2016 annulation ou désactivation de macro
2
Réponses
27
Affichages
995
job75
job75
thunder23
  • Résolu(e)
XL 2021 Bug dans code vba
Réponses
8
Affichages
648
thunder23
thunder23
C
  • Question Question
Microsoft 365 worksheet_change
2
Réponses
29
Affichages
1 K
CortoXls
C
S
  • Résolu(e)
Microsoft 365 Cliquer pour ouvrir des photos
Réponses
7
Affichages
765
Simon 1234
S
J
  • Question Question
Microsoft 365 Probléme VBA
Réponses
8
Affichages
443
jalaba
J
cathodique
  • Résolu(e)
XL 2010 Erreur de compilation - Incompatibilité de type: tableau ou type défini par l'utilisateur
Réponses
3
Affichages
389
cathodique
cathodique
T
  • Résolu(e)
Microsoft 365 VBA Exporter une sélection de plages nommées au format PDF
Réponses
12
Affichages
955
tnion
T
F
  • Résolu(e)
Autres Insérer une ligne
2 3
Réponses
36
Affichages
3 K
francescofrancesco
F
T
  • Résolu(e)
XL 2021 Incompatibilité de type avec un userform
2
Réponses
19
Affichages
988
Bernard38
Bernard38
S
  • Résolu(e)
Microsoft 365 Ecrasement d'une ligne si déjà existante
Réponses
2
Affichages
375
sebastien176
S
S
  • Question Question
Microsoft 365 code vba pour chaine de caractère
Réponses
4
Affichages
400
vgendron
vgendron
Retour