Astuces Excel
  1. Astuces Excel
  3. Utilisation de VBA Runtime error 13 'type mismatch' en assignant une valeur de cellule modifiée à la cellule
Intereting Posts
Email du file CSV avec PHP Comment append la valeur du countur de boucle en tant que suffixe de nom de tableau Obtenir le directory du file et envoyer comme pièce jointe dans Outlook Définir les critères de count de la boîte de list dans plusieurs listboxes Exception PHP non saisie lorsque vous tentez d'get la première ligne d'une table Excel Désactivez l'option d'logging Excel, mais permettez la sauvegarde de macro Excel xlXYScatter a des lignes générées par C # Existe-t-il un moyen rapide de faire correspondre un document Excel à une fonction en python? Fonction de feuille de calcul dans VBA Fonction Excel pour maximiser une cellule avant de passer à la cellule suivante Comparaison des données dans Excel vba stockant une valeur à coller à partir d'une window non active Définir une cellule à une valeur d'une autre cellule SI une autre cellule était la valeur X Quel est le point d'input d'une extension de .xlam excel Envoyer des données d'Excel à Access

Utilisation de VBA Runtime error 13 'type mismatch' en assignant une valeur de cellule modifiée à la cellule

Mon code est ci-dessous, la ligne qui donne l'erreur, tapez non correspondance, l'erreur d'exécution 13 est la ligne dans la boucle for. Pourquoi cela se passe-t-il et comment puis-je l'éviter? 

Workbooks(theFile).Worksheets(1).Columns("G:G").EntireColumn.NumberFormat = "0.00" For Each myCell In Columns("G:G") myCell.Value = WorksheetFunction.Trim(WorksheetFunction.Clean(myCell.Value)) Next

Probablement quelque chose comme 

 For Each myCell In Columns("A:A").Cells myCell.Value = WorksheetFunction.Trim(myCell.Value) Next