Sumifs all range to textbox

Bonjour

S'il vous plaît aidez-moi à contrarier toutes les valeurs basées sur une certaine date à travers des sumifs

Sumifs of values between two dates to all textbox

Hi Mody

Voici une possibilité de code en se basant sur la ligne de départ et la ligne de fin des dates données

' Cod sumifs all range and between tow texstbox and all textbox
Private Sub CommandButton18_Click()
  Dim FirstDate As Date, StartDate As Date, LastDate As Date
  Dim FirstRow As Long, LastRow As Long, lRow As Long
  Dim Col As Long, NbCol As Long
  Dim Tot As Single

  With ActiveSheet
    FirstDate = .Range("A2")
    NbCol = .Cells(1, Columns.Count).End(xlToLeft).Column - 2
    '
    StartDate = Me.Date_str: LastDate = Me.Date_End
    '
    FirstRow = 1 + StartDate - FirstDate + 1
    LastRow = 1 + LastDate - FirstDate + 1
    ' Pour chaque colonne
    For Col = 3 To NbCol
      ' Pour chaqse ligne
      For lRow = FirstRow To LastRow
        Tot = Tot + .Cells(lRow, Col).Value
      Next lRow
      Me.Controls("TextBox" & Col - 2).Value = Format(Tot, "#,##0.00")
      Tot = 0 ' Réinitialize
    Next Col
  End With

End Sub

Attention !

Dans votre USF les contrôles pour les dates ne sont pas dans le bon ordre
Menu -> Affichage -> Ordre de tabulation

A+

Merci Et j'ai oublié de dire Zone de texte Ça commence du 13 au 21 Et du 31 au 39 Et aussi 42, 46 et 48

Re,

Quant à ce formulaire, que j'ai développé comme exemple expérimental, il est différent des numéros de zone de texte

Merci

Veuillez modifier le code pour qu'il corresponde à la zone de texte ci-dessous

Et j'ai oublié de dire Zone de texte Ça commence du 13 au 21 Et du 31 au 39

Lock Userform 2

Bonjour Mody

Désolé, mais si vous ne comprenez pas le code donné et n'êtes pas capable de le modifier,
je ne peux rien faire pour vous

Commencez par la base : apprendre le VBA

Bonne chance

Edit modo : n'a rien à voir avec le sujet

Faire à la place de l'autre, n'a jamais permis d'enrichir sa culture

BrunoM45

Merci,

mais j'ai essayé sachant que j'ai une zone de texte différente et que les colonnes sont également différentes et non disposées

Re,

Pourquoi ne pas simplement les renommer, plutôt que de les laisser ainsi

A+

Bonjour Mody,

Et bien voilà, pour nous c'est plus simple à comprendre

Dans le cas de colonnes discontinues, on peut utiliser un tableau des colonnes à utiliser

Bon ça peut-être très long selon les dates choisies, il faudra mieux passer par un SumIF

A+

أLe code fonctionne Mais il y a un problème avec le format de la date Ici, la valeur est manquante Je dois commencer la date du début de l'année jusqu'à la fin de l'année pour que la valeur soit correcte Même après avoir fait ce code, cela ne fonctionnait toujours pas

StartDate=Cling(CDate(me Date_Str)) :LasttDate=Cling(CDate(me Date_End))

Le code fonctionne Mais il y a un problème avec le format de la date Ici, la valeur est manquante Je dois commencer la date du début de l'année jusqu'à la fin de l'année pour que la valeur soit correcte Même après avoir fait ce code, cela ne fonctionnait toujours pas

StartDate=format(Cling(CDate(me.Date_Str,"dd,mm,yyyy'))) :LasttDate=format(Cling(CDate(me.Date_End,"dd,mm,yyyy")))