Astuces Excel
  1. Astuces Excel
  3. Comment réparer cette erreur 1004? Réérez la ligne
Intereting Posts
Dépasser la conversion de la formule excel csv sur les champs commençant par + ou – Comment puis-je rendre mon code VBA compatible avec Windows 64 bits? Utilisez le code de excel vba addin Excel Insertion de données entre le champ de ligne Modifier le code VBA qui regroupe les classurs La sélection de la combinaison de vba excel s'efface lorsque je clique dessus Analyse XML de VBA ne fonctionne pas Excel VBA pour les instructions Loop et Nested IF pour Counter Excel: whatif lorsqu'il existe des nombres positifs et négatifs dans une colonne Les IF anées en fonction ne fonctionnent pas Ssortingkethrough une rangée Comment aller à la cellule dont la valeur est écrite dans une boîte de saisie? (VBA) Comment puis-je utiliser la notation , ] avec une table ListObject au lieu d'un "TableName"? Excel VBA Utiliser la feuille sélectionnée Mesurer le time de chargement d'Excel

Comment réparer cette erreur 1004? Réérez la ligne

J'ai la ligne de code suivante dans VBA: 

Range("A40:A64").Formula = "=IF(index(optional_processes,row()-39)=0;"";optional_processes,row()-39))"

Sans l' if-statement , certaines cellules affichent 0 . Je veux que ces 0 soient en blanc. C'est ce que l' if-statement devrait faire. Je pense que cela donne l'erreur de l'application ou de l'object en raison des guillemets doubles dans la déclaration. Comment puis-je get des cellules vierges au lieu de 0 ?

Même si vous utilisez Excel local ; (point virgule) comme séparateur de parameters dans les formules, lors de l'écriture d'une formule avec VBA, vous devez utiliser (virgule)

À côté de cela, il existe d'autres problèmes avec la formule:

  • Vous manquez un index à l' else
  • Utilisez """" plutôt que "" comme le suggère Kresimir
  • Utilisez un ISERROR comme Kiran écrit dans sa première suggestion

Je pense que cela fonctionnera: 

 Range("A40:A64").Formula = "=IF(isError(index(optional_processes,row()-39)),"""",index(optional_processes,row()-39))"

Essaye ça: 

 Range("A40:A64").Formula = "=IF(ISERROR(index(optional_processes,row()-39)),'',index(optional_processes,row()-39))"

OU 

 Range("A40:A64").Formula = "=IF(index(optional_processes,row()-39)=0,"""",index(optional_processes,row()-39))"