Microsoft 365 formule selon données

[FCMLE44]

Bonjour
Lorsque je sélectionne la donnée souhaitée en cellule B1 de la feuille "Sélection feuille", je souhaite faire la chose suivante
1- Rechercher dans la feuille "Paramètrage" en colonne A, la donnée inscrite en cellule B1 de la feuille "Sélection Feuille"
2- Je récupère les données de cette cellule B1 et les mets automatiquement dans les cellules concernées aux endroits indiquées en feuille "Feuille Calcul Indemnités"
3 - Mettre à jour des cellules selon ces données

Voir mon fichier explicatif en pièce jointe

Quelqu'un peut il m'aider SVP

Merci

 

[sousou]

Ce lien n'existe plusCe lien n'existe plus

 

[FCMLE44]

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

 

[sousou]

 

[sousou]

Avec le dernier fichier

 

[FCMLE44]

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

 

[sousou]

Vue!!
et comme ceci

 

[FCMLE44]

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

 

[sousou]

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

 

[FCMLE44]

Merci beaucoup

 

[FCMLE44]

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

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 ?

 

[sousou]

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)

 

[FCMLE44]

Voici le fichier. Les formules sont bien correctes

 

[sousou]

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?

 

[FCMLE44]

oui tu as raison effectivement

 

[FCMLE44]

A quelles lignes as tu vu çà ?