Les Allergies
Alimentaires
Posez votre question Signaler

Vba run-time error 13 type mismatch

mickysor - Dernière réponse le 26 sept. 2011 à 13:54
Bonjour,
Je suis débutant. j'ai plus ou moins fait une macro qui marche pas trop mal mais malheureusement pour une seule cellule.dés que je veux effacer plusieurs cellules
via macro ou en manuel j'ai un message comme ceci:
vba run-time error 13 type mismatch
lorsque je clique sur debug ceci est souligné:
If Target.Column = 5 And UCase(Target) = "YES" Then
et enfin voici ma macro complete:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 5 And UCase(Target) = "YES" Then
Target.EntireRow.Copy
Sheets("Feuil2").Select
ActiveSheet.Range("A1").Select
ActiveSheet.[A65536].End(xlUp).Select
ActiveCell.Offset(1, 0).Select
Selection.EntireRow.Insert
Sheets("Feuil1").Select
Target.EntireRow.ClearContents
End If
End Sub
merci pour tout aide.
Lire la suite 

Vba run-time error 13 type mismatch »

4 réponses
Réponse
+0
moins plus
ccm81 1502Messages postés 18 octobre 2010Date d'inscription 30 mai 2012Dernière intervention 25 sept. 2011 à 18:44
bonjour

pourrais tu expliquer ce que ta macro est censée réaliser ?

bonne suite

 Ajouter un commentaire
Ajouter un commentaire
Réponse
+0
moins plus
micky94500 26 sept. 2011 à 08:52
la macro doit faire:
si dans la colonne E:E le mot "yes" est inscrit alors déplacer le contenu de la colonne horizontale ou se trouve "yes" dans la "feuil2"

Plus tard je rajouterai d'autres mots clé à déplacer dans d'autres feuilles.
dommage pour l'instant personne n'arrive à résoudre mon problème.snif

 Ajouter un commentaire
Lentz - 26 sept. 2011 à 08:58
La colonne horizontale .. ?! Oo
Ajouter un commentaire
Réponse
+0
moins plus
ccm81 1502Messages postés 18 octobre 2010Date d'inscription 30 mai 2012Dernière intervention 26 sept. 2011 à 13:54
re

peut être quelque chose comme ça 

Private Sub Worksheet_Change(ByVal Target As Range) 
Dim li1 As Long, li2 As Long 
  If Not Intersect(Target, Range("E:E")) Is Nothing Then 
    If UCase(Target) = "YES" Then  
      li1 = Target.Row 
      li2 = Sheets("Feuil2").Range("A65536").End(xlUp).Row + 1 
      Sheets("Feuil1").Cells(li1, 1).EntireRow.Copy Sheets("Feuil2").Cells(li2, 1) 
    End If 
  End If 
End Sub

bonne suite

 Ajouter un commentaire
Ajouter un commentaire
Posez votre question
Ce document intitulé « vba run-time error 13 type mismatch » issu de CommentCaMarche (www.commentcamarche.net) est mis à disposition sous les termes de la licence Creative Commons. Vous pouvez copier, modifier des copies de cette page, dans les conditions fixées par la licence, tant que cette note apparaît clairement.
Dossier à la une
Passage au tout numérique : quel coût pour les particuliers ?