Microsoft 365 formule selon données

sousou

XLDnaute Barbatruc

• 6 Novembre 2020

• #31

Ce lien n'existe plusCe lien n'existe plus

 

Vote positif 0 Vote négatif

F

FCMLE44

XLDnaute Impliqué

• 6 Novembre 2020

• #32

En ligne 61 et 62 colonne D il devrait s'afficher

 

Vote positif 0 Vote négatif

sousou

XLDnaute Barbatruc

• 6 Novembre 2020

• #33

 

Vote positif 0 Vote négatif

sousou

XLDnaute Barbatruc

• 6 Novembre 2020

• #34

Avec le dernier fichier

 

Vote positif 0 Vote négatif

F

FCMLE44

XLDnaute Impliqué

• 6 Novembre 2020

• #35

Il devrait y avoir des données ou valeur à l'endroit en surbrillance

 

Vote positif 0 Vote négatif

sousou

XLDnaute Barbatruc

• 6 Novembre 2020

• #36

Vue!!
et comme ceci

 

Pièces jointes

• Copie de Maquette STC1-2.xlsm

  349.5 KB · Affichages: 7

Vote positif 0 Vote négatif

F

FCMLE44

XLDnaute Impliqué

• 6 Novembre 2020

• #37

Ca semble OK
C'était quoi le problème, j'ai fait une erreur ?

 

Vote positif 0 Vote négatif

sousou

XLDnaute Barbatruc

• 6 Novembre 2020

• #38

Non c'est moi correction
de cette procédure, J'avais laissé trainée la moitié d'une première erreur 😉
Sub remplir(r, n)
With Sheets("Indemnités")
lg1 = r.Parent.Cells(1, 2)
lg2 = r.Parent.Cells(1, 3)
lg3 = r.Parent.Cells(1, 4)
'MsgBox r.Row
.Range(lg1).Offset(n, 0) = r.Offset(0, 1)
.Range(lg2).Offset(n, 0) = r.Offset(0, 2)
'MsgBox r.Offset(, 3)
If r.Offset(0, 3) <> "" Then phrase = Right(r.Offset(0, 3), Len(r.Offset(0, 3)) - 1) Else phrase = ""
.Range(lg3).Offset(n, 0).FormulaLocal = phrase
End With
End Sub

 

Vote positif 0 Vote négatif

F

FCMLE44

XLDnaute Impliqué

• 6 Novembre 2020

• #39

Merci beaucoup

 

Vote positif 0 Vote négatif

F

FCMLE44

XLDnaute Impliqué

• 9 Novembre 2020

• #40

sousou à dit:

Non c'est moi correction
de cette procédure, J'avais laissé trainée la moitié d'une première erreur 😉
Sub remplir(r, n)
With Sheets("Indemnités")
lg1 = r.Parent.Cells(1, 2)
lg2 = r.Parent.Cells(1, 3)
lg3 = r.Parent.Cells(1, 4)
'MsgBox r.Row
.Range(lg1).Offset(n, 0) = r.Offset(0, 1)
.Range(lg2).Offset(n, 0) = r.Offset(0, 2)
'MsgBox r.Offset(, 3)
If r.Offset(0, 3) <> "" Then phrase = Right(r.Offset(0, 3), Len(r.Offset(0, 3)) - 1) Else phrase = ""
.Range(lg3).Offset(n, 0).FormulaLocal = phrase
End With
End Sub

Cliquez pour agrandir...

Bonjour
Quand je mets le code sur mon fichier définitif et que je lance la macro, j'obtiens cette ligne en débogage


Tu saurais d'ou ca vient ?

 

Vote positif 0 Vote négatif

sousou

XLDnaute Barbatruc

• 9 Novembre 2020

• #41

Bonjour
Le débogage te signifie une formule fausse.
Vérifie la formule. As tu corrigé lmes erreurs dans max()?
Pour cela tu peux enlever le ' du msgbox r.offset(0,3), et envoi l'image, (ou le fichier)

 

Vote positif 0 Vote négatif

F

FCMLE44

XLDnaute Impliqué

• 9 Novembre 2020

• #42

Voici le fichier. Les formules sont bien correctes

 

Pièces jointes

• Maquette STC Def V2.xlsm

  348.7 KB · Affichages: 2

Vote positif 0 Vote négatif

sousou

XLDnaute Barbatruc

• 9 Novembre 2020

• #43

Prenons exemple de celle formule:
=MAX(Indemnités!$E$41;Indemnités!$E$44);0*8
Il me semble que ce devrait être
=MAX(Indemnités!$E$41;Indemnités!$E$44;0)*8
Non?

 

Vote positif 0 Vote négatif

F

FCMLE44

XLDnaute Impliqué

• 9 Novembre 2020

• #44

oui tu as raison effectivement

 

Vote positif 0 Vote négatif

F

FCMLE44

XLDnaute Impliqué

• 9 Novembre 2020

• #45

A quelles lignes as tu vu çà ?

 

Vote positif 0 Vote négatif