Astuces Excel
  1. Astuces Excel
  3. total = total + ActiveCell.Value ne fonctionne pas dans un pour chaque boucle
Intereting Posts
Exporter la table SQL Server vers le file Microsoft Excel xlsx Convertir le format 0d 22h 41min à une heure dans n'importe quel format en utilisant une formule Comment searchr en PDF en utilisant VBA Le file Excel ne peut normalement pas ouvrir Combinaison de tables Excel à l'aide d'Excel ou Access 2003 Comment puis-je permettre à l'user d'ouvrir un file à partir d'un endroit spécifique dans VBA? Erreur 13 avec list déroulante Journal d'audit Exportation d'un tableau vers Excel Comment utiliser une reference (indirecte) dans l'input de tableau pour SUMPRODUCT dans excel Transformer une list d'une colonne dans une table rectangular en excel Comment éviter de modifier automatiquement le type de données dans le file .CSV Lors de l'export d'un file xml depuis Excel, les dates sont devenues des nombres à 5 numbers Sélectionnez plusieurs lignes dans Excel et lisez par VBA Code VBA qui maximisera la zone de traçage d'un graphique pour remplir la zone de graphique entière Erreur lors de l'appel de Sub dans VBA

total = total + ActiveCell.Value ne fonctionne pas dans un pour chaque boucle

J'ai ce code où je veux searchr certaines cellules dans une autre feuille, et si elles correspondent aux critères, ajoute une cellule voisine au total qui est returnné à la cellule. 

Function collectUtfall(A1 As Ssortingng, Ax As Ssortingng) Dim rng As Range Dim total As Long: total = 0 Set rng = Sheets("Utfall").Range("M2:O272") Dim cell As Range For Each cell In rng If StrComp(cell.Offset(0, 1).Text, Ax, vbTextCompare) = 0 Then total = total + ActiveCell.Value Else End If Next collectUtfall = total End Function

Le problème est que j'obtiens une erreur de «Référence du cercle» lors de l'exécution. Existe-t-il un problème dans l'utilisation de ActiveCell.Value de cette façon?

Si j'essaye juste avec une valeur, dis 10, ça marche très bien: 

 total = total + 10

Le problème doit donc être avec ActiveCell.Value ? 

 Function collectUtfall(A1 As Ssortingng, Ax As Ssortingng) Dim rng As Range Dim total As Long set total = 0 Set rng = Sheets("Utfall").Range("M2:O272") Dim cell As Range For Each cell In rng If StrComp(cell.Offset(0, 1).Text, Ax, vbTextCompare) = 0 Then total = total + Cell.Value Else End If Next Cell collectUtfall = total End Function