Microsoft 365 SOMME.SI.ENS et MOIS.DECALER

R@chid

XLDnaute Barbatruc

Supporter XLD

• 16 Mars 2023

• #2

Bonjour,
Il faut éviter de stocker les dates sous forme de texte.

Amicalement

 

Pièces jointes

• eric72_SOMMESIENS.xlsm

  15.4 KB · Affichages: 6

Vote positif 0 Vote négatif

E

eric72

XLDnaute Accro

• 16 Mars 2023

• #3

Bonjour
Merci pour votre réponse, justement je voulais savoir si c'était possible avec des dates en Texte, lol!!!
Ca n'est pas possible?
Merci
Eric

 

Vote positif 0 Vote négatif

R@chid

XLDnaute Barbatruc

Supporter XLD

• 16 Mars 2023

• #4

Re,

eric72 à dit:

Merci pour votre réponse, justement je voulais savoir si c'était possible avec des dates en Texte, lol!!!
Ca n'est pas possible?

Cliquez pour agrandir...

Oui c'est possible..

VB:

=LET(PlgD;TbObjFerm[mois/annee]*1;CelD;A20*1;SOMME(FILTRE(TbObjFerm[Somme/Mois];(PlgD<=CelD)*(PlgD>=MOIS.DECALER(CelD;-12)))))

Amicalement

 

Vote positif 0 Vote négatif

E

eric72

XLDnaute Accro

• 16 Mars 2023

• #5

Ah oui en effet, c'est plus compliqué!!!
Merci beaucoup pour vos réponses et votre dévouement.
Très bonne soirée
Eric

 

Vote positif 0 Vote négatif

E

eric72

XLDnaute Accro

• 17 Mars 2023

• #6

Bonjour R@chid,
Si je me retrouve avec du texte, c'est parce que ces données viennent d'un Userform et que lorsque je met des dates comme vous me l'avez justement indiqué je n'arrive plus à remplir mon Userform à l'aide de ma combobox nommée "CbRecherche" d'autant plus que le userform a pour origine plusieurs lignes de ma "Bse Objectif, c'est la raison pour laquelle c'était en texte, j'espère être assez clair dans mes explications.
Merci beaucoup
Eric

 

Pièces jointes

• eric72_SOMMESIENS.xlsm

  60.9 KB · Affichages: 2

Vote positif 0 Vote négatif

E

eric72

XLDnaute Accro

• 17 Mars 2023

• #7

Re,
J'ai trouvé un code dans ce style là et apparemment cela résout mon souci

Private Sub CbRecherche_Change()
Dim Nom As Range
With ThisWorkbook.Sheets("Base Objectif")
For Each Nom In .Range("a2:a" & .[a65000].End(xlUp).row)
If CStr(Nom) = CStr(Me.CbRecherche.Value) Then
'Comm1
CbComm1.Value = .Cells(Nom.row, 2): TextBox156.Value = .Cells(Nom.row, 3): TextBox157.Value = .Cells(Nom.row + 1, 3): TextBox158.Value = .Cells(Nom.row + 2, 3)
TextBox159.Value = .Cells(Nom.row + 3, 3): TextBox160.Value = .Cells(Nom.row + 4, 3): TextBox161.Value = .Cells(Nom.row + 5, 3): TextBox162.Value = .Cells(Nom.row + 6, 3)
TextBox163.Value = .Cells(Nom.row + 7, 3): TextBox164.Value = .Cells(Nom.row + 8, 3): TextBox165.Value = .Cells(Nom.row + 9, 3): TextBox166.Value = .Cells(Nom.row + 10, 3)
TextBox167.Value = .Cells(Nom.row + 11, 3)

Bonne journée à tous les passionnés.
Eric

 

Vote positif 0 Vote négatif

E

eric72

XLDnaute Accro

• 17 Mars 2023

• #8

Re à tous,
Alors j'ai bien réussi à alimenter mes textbox avec les dates en "date" mais maintenant je ne parviens plus à trouver mon numéro de ligne avec:
no_ligne = Application.Match(CbRecherche, Feuil5.[a:a], 0) 'renvoie N°ligne
Quelqu'un a-t-il une idée?
Décidemment je tourne en rond et je ne m'en sors pas.
(Je retire le résolu en attendant)
Merci beaucoup à tous
Eric

 

Pièces jointes

• eric72_SOMMESIENS (1).xlsm

  61.3 KB · Affichages: 3

Vote positif 0 Vote négatif

E

eric72

XLDnaute Accro

• 17 Mars 2023

• #9

Me suis-je mal expliqué ou n'y a-t-il pas de solution pour "Modifier" avec cette méthode?
Merci beaucoup
Eric

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 17 Mars 2023

• #10

Bonjour eric72,

Je passe par ici juste pour répondre à votre question :

eric72 à dit:

je ne parviens plus à trouver mon numéro de ligne avec:
no_ligne = Application.Match(CbRecherche, Feuil5.[a:a], 0) 'renvoie N°ligne

Cliquez pour agrandir...

Il faut convertir CbRecherche en date puis en nombre :

VB:

no_ligne = Application.Match(CLng(CDate(CbRecherche)), Feuil5.[a:a], 0)

A+

 

Vote positif 0 Vote négatif

Solution

E

eric72

XLDnaute Accro

• 17 Mars 2023

• #11

Bonjour job75,
Tout d'abord merci beaucoup pour votre réponse, j'ai mis votre code dans mon code du Bouton de Modif mais malheureusement ça ne change rien, il ne prend pas la modification.
Peut-être que je ne l'i pas mis au bon endroit!!!
Merci beaucoup
Eric

 

Vote positif 0 Vote négatif

E

eric72

XLDnaute Accro

• 17 Mars 2023

• #12

Oups Je n'avais pas mis le code au bon endroit, cela fonctionne par contre après la modification prise en compte il me met des 0 dans mes combobox (les 10 qui sont a gauche dans le userform) et des chiffres bizarres dans ma 1ere colonne de textbox, je ne sais pas d'ou viennent ces chiffres!!!
Auriez-vous l'amabilité de modifier le fichier joint pour éviter de vous faire perdre votre temps?
Merci encore pour votre bonne volonté.
Eric

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 17 Mars 2023

• #13

J'ai dit que je répondais juste à votre question car il est exclu que je passe en revue tout votre projet.

 

Vote positif 0 Vote négatif

E

eric72

XLDnaute Accro

• 17 Mars 2023

• #14

Je comprends, désolé.
Bonne journée et merci encore
Eric

 

Vote positif 0 Vote négatif