Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Probleme VBA

Probleme VBA

1 réponse
Avatar
Christian.L
Bonjour à tous

Je cherche a créer une fonction

Dans ma cellule Excel j'ai :
=Cumul2("Ligne";"PB-EF") qui me sort une erreur "#VALEUR"

Pour ma fonction j'ai :
Function Cumul2(Bloc, Calque As String) As Double
Total = 0
Ligne = 2
While Sheets("Recap").Cells(3, 1) <> ""
If Sheets("Recap").Cells(Ligne, 3).Value = Bloc Then
If Sheets("Recap").Cells(Ligne, 5).Value = Calque Then
Total = Total + Sheets("Recap").Cells(Ligne, 6).Value
End If
End If
Ligne = Ligne + 1
Wend

Cumul2 = Total
End Function

Que faire pour cela marche

Merci d'avance
Signaler un problème avec ce contenu

1 réponse

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Christian.L
Ne cherchez plus j'ai trouver

Merci de votre attention

C.L.


"Christian.L" a écrit dans le message de
news: %
Bonjour à tous

Je cherche a créer une fonction

Dans ma cellule Excel j'ai :
=Cumul2("Ligne";"PB-EF") qui me sort une erreur "#VALEUR"

Pour ma fonction j'ai :
Function Cumul2(Bloc, Calque As String) As Double
Total = 0
Ligne = 2
While Sheets("Recap").Cells(3, 1) <> ""
If Sheets("Recap").Cells(Ligne, 3).Value = Bloc Then
If Sheets("Recap").Cells(Ligne, 5).Value = Calque Then
Total = Total + Sheets("Recap").Cells(Ligne, 6).Value
End If
End If
Ligne = Ligne + 1
Wend

Cumul2 = Total
End Function

Que faire pour cela marche

Merci d'avance