Sommeprod et variable

Fermé

max850 Messages postés 305 Date d'inscription dimanche 10 janvier 2016 Statut Membre Dernière intervention 4 janvier 2020 - 22 mai 2017 à 17:13
max850 Messages postés 305 Date d'inscription dimanche 10 janvier 2016 Statut Membre Dernière intervention 4 janvier 2020 - 22 mai 2017 à 18:16

Bonjour le forum,

Dim dern As Long
Dim l As Integer
dern = Range("D" & Rows.Count).End(xlUp).Row
l = Left(TextBox11.Value, 2)
With Range("d6:d" & dern)
  If .Find(l, LookIn:=xlValues) Is Nothing Then
      MsgBox "erreur"
      Exit Sub
  End If
Range("N7:N" & dern).NumberFormat = "0.00"
Range("M7").FormulaLocal = "=SOMMEPROD((GAUCHE(D6:D" & dern & ";2)=" & l & ")*H6:H" & dern & ")"
Range("N7").FormulaLocal = "=SOMMEPROD((GAUCHE(D6:D" & dern & ";2)=" & l & ")*J6:J" & dern & ")"
Range("M7").Value = (Range("M7").Value + Range("N7").Value)
Range("N7").Clear

End With

lorsque je mets mon nombre "=SOMMEPROD((GAUCHE(D6:D" & dern & ";2)=""60"")..
pas de problème mais je voudrais remplacer 60 par une variable comme ci-dessus et j'obtiens 0.00
ma variable "l" correspond bien à mon nombre 60
pouvez vous m'aider s'il vous plait
merci

A voir également:

Sommeprod et variable
Vba excel sélectionner une plage de cellules variable ✓ - Forum VB / VBA
Formule excel plage de données variable ✓ - Forum Excel
Vba msgbox variable ✓ - Forum VB / VBA
Affecter la valeur d'une cellule à une variable vba ✓ - Forum Bureautique
Variable drapeau - Forum Python

2 réponses

Réponse 1 / 2

Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 775
22 mai 2017 à 17:56

Bonjour,

Il manque 2 guillemets dans la formule, donc 4 dans le code, i.e. :

Range("M7").FormulaLocal = "=SOMMEPROD((GAUCHE(D6:D" & dern & ";2)=""" & l & """)*H6:H" & dern & ")"

Idem pour N7

Réponse 2 / 2

max850 Messages postés 305 Date d'inscription dimanche 10 janvier 2016 Statut Membre Dernière intervention 4 janvier 2020 3
22 mai 2017 à 18:16

parfait Patrice

merci bonne soirée

Discussions similaires

programme qui n'affiche pas le mot secret

VBA : Range avec références variables..

variable objet ou variable de bloc with non définie

vérifiez la variable d'environnement TEMP

RechercheV avec sommeprod

Discussions similaires

Newsletters