Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Plantage Erreur 13 sur Collage spécial

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Tef
  • 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
T

Tef

XLDnaute Nouveau
Bonjour à tous 🙂

Voilà je suis nouveau ici et j'ai un petit souci.
J'ai trouvé un script VBA en parcourant le forum pour forcer les majuscules sur un champ.

Je l'ai modifier un chouillat pour qu'il soit adapté à mes besoins. Mais le problème est que c'est un fichier utilisateur au travail qui comporte pas mal de ligne (environ 2000) et pour l'alléger, je fais un collage spécial valeur sur les lignes déjà ok. Mais voilà, sur le collage spécial, il me met une erreur :
Erreur d'exécution 13 : Incompatibilité de type.
Ca point sur la ligne Target = Application.WorksheetFunction.Proper(Target)
Mais si je désactive cette partie, je vais avoir la même erreur sur la ligne : Target = UCase(Target)

voici mon VBA :

Code: 
Private Sub Worksheet_Change(ByVal Target As Range)

If Intersect(Target, [B2:B60000]) Is Nothing Then GoTo NOM
Application.EnableEvents = False
Target = Application.WorksheetFunction.Proper(Target)
Application.EnableEvents = True
Exit Sub

NOM: If Intersect(Target, [C2:C60000]) Is Nothing Then GoTo AS400
Application.EnableEvents = False
Target = UCase(Target)
Application.EnableEvents = True
Exit Sub

AS400: If Intersect(Target, [K2:K60000]) Is Nothing Then Exit Sub
Application.EnableEvents = False
Target = UCase(Target)
Application.EnableEvents = True

End Sub

J'espère que vous pourrez m'aider. J'ai usé la fonction recherche mais en vain...

Merci par avance à tous 😉

A+
 
Trier par date Trier par votes
Re : Plantage Erreur 13 sur Collage spécial

Bonjour

test ok chez moi
Code: 
Private Sub Worksheet_Change(ByVal Target As Range)

If Intersect(Target, [B2:B60000]) Is Nothing Then GoTo NOM
Application.EnableEvents = False
[COLOR="Red"]Target = StrConv(Target, vbProperCase)[/COLOR]
Application.EnableEvents = True
Exit Sub

NOM: If Intersect(Target, [C2:C60000]) Is Nothing Then GoTo AS400
Application.EnableEvents = False
Target = UCase(Target)
Application.EnableEvents = True
Exit Sub

AS400: If Intersect(Target, [K2:K60000]) Is Nothing Then Exit Sub
Application.EnableEvents = False
Target = UCase(Target)
Application.EnableEvents = True

End Sub
 
Vote positif 0 Vote négatif
Re : Plantage Erreur 13 sur Collage spécial

Bonjour tototiti2008

En lisant le titre du post

Je pense que ca doit planté si on fait un copier/coller ?

Je vais tester.

EDITION : Exact cela plante lors de la recopie

Ca semble être bon en rajoutant
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
Cliquez pour agrandir...
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Plantage Erreur 13 sur Collage spécial

Bonjour à vous deux.

Je viens de tester pour les propositions mais exactement pareil :'(
Il y a t'il une conf spécial de mon excel ou une référence à mettre ?

A j'oubliais : C'est la version Excel 2002 que nous avons dans la société. Cela peut peut-être joué je ne sais pas.

Merci à vous
 
Vote positif 0 Vote négatif
Re : Plantage Erreur 13 sur Collage spécial

vbacrumble à dit:
Bonjour tototiti2008

En lisant le titre du post

Je pense que ca doit planté si on fait un copier/coller ?

Je vais tester.

EDITION : Exact cela plante lors de la recopie

Ca semble être bon en rajoutant
Cliquez pour agrandir...
Très très fort ! Je dois dire que non seulement les réponses sont rapides mais en plus de qualité 😉

Merci encore tout fonctionne à merveille !

Pour ma culture perso : le collage plantait car j'avais défini des ranges alors que la sélection prennait tout les ranges d'un coup ?

Merci encore 🙂
 
Vote positif 0 Vote négatif
Re : Plantage Erreur 13 sur Collage spécial

Bonjour à tous

Si "target" représente plusieurs cellules, il a sans doute lieu de boucler sur la plage...

Code: 
Dim c As Range
For Each c In Target
    'ton code
Next c

bon après midi
@+
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
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] Compléter la macro mais comment et où?
Réponses
2
Affichages
312
un internaute
U
U
  • Question Question
Autres [RÉSOLU] Compléter macro pour Suppr cellules
Réponses
7
Affichages
151
un internaute
U
F
  • Résolu(e)
Microsoft 365 Evènement worksheet_change
Réponses
2
Affichages
129
Francky79
F
J
  • Question Question
Microsoft 365 Probléme VBA
Réponses
8
Affichages
348
jalaba
J
S
  • Résolu(e)
Microsoft 365 Déclenchement macro en série suite à cellule fusionnées
Réponses
3
Affichages
302
spike29
S
  • Question Question
XL 2016 annulation ou désactivation de macro
2
Réponses
27
Affichages
660
job75
S
  • Résolu(e)
XL 2019 VBA automatiser hauteur de lignes
Réponses
7
Affichages
328
sofmat
S
S
  • Résolu(e)
Microsoft 365 Cliquer pour ouvrir des photos
Réponses
7
Affichages
559
Simon 1234
S
C
  • Question Question
Microsoft 365 worksheet_change
2
Réponses
29
Affichages
597
CortoXls
C
  • Question Question
Microsoft 365 [VBA] Listes déroulantes à choix multiples sur N colonnes discontinues
Réponses
4
Affichages
707
ralph45
A
  • Question Question
insertion d'une ligne automatique dans un tableau excel.
Réponses
1
Affichages
501
sylvanu
  • Résolu(e)
XL 2021 Bug dans code vba
Réponses
8
Affichages
383
thunder23
U
  • Question Question
Autres [RESOLU] Déclaration de variable
Réponses
5
Affichages
586
un internaute
U
S
  • Résolu(e)
XL 2016 Coller nom classeur sur plage cellules
Réponses
9
Affichages
279
safranien
S
S
  • Résolu(e)
Microsoft 365 Listes déroulantes multi-sélections et feuilles protégées.
Réponses
6
Affichages
609
selkis
S
  • Résolu(e)
XL 2013 (RESOLU) Code afficher/Masquer problème
Réponses
10
Affichages
615
chaelie2015
D
  • Question Question
Microsoft 365 Application.WorksheetFunction.VLookup ne fonctionne pas au delà de 8500 lignes
Réponses
4
Affichages
685
DimiJuju
D
P
  • Résolu(e)
Microsoft 365 Private Sub Worksheet_Change(ByVal Target As Range)
Réponses
8
Affichages
745
pat66
P
S
  • Résolu(e)
Microsoft 365 Ecrasement d'une ligne si déjà existante
Réponses
2
Affichages
282
sebastien176
S
C
  • Question Question
XL 2016 VBA Détecter la suppression de la dernière ligne d'un Tableau
Réponses
9
Affichages
575
crocrocro
C
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…