Sommeprod et variable

max850 Messages postés 304 Date d'inscription Statut Membre Dernière intervention -
max850 Messages postés 304 Date d'inscription Statut Membre Dernière intervention - 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

Afficher la suite

A voir également:

2 réponses

Réponse 1 / 2

Patrice33740 Messages postés 8561 Date d'inscription Statut Membre Dernière intervention 1 780

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 304 Date d'inscription Statut Membre Dernière intervention 3

parfait Patrice

merci bonne soirée

Discussions similaires

vérifiez la variable d'environnement TEMP

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

VBA Excel : sélection d'une plage variable

Vérifier variable d'environnement TEMP

Syntaxe VBA Sheets.Range avec Range variable

Votre réponse

Discussions similaires