Remplir automatiquement une cellule en fonction d'autres cellules

Bonjour à La Communauté
Bonjour FFO
Ma question
Comment remplir automatiquement une cellule en fonction d’autres cellules (5 saisies manuelles sur la journée) sur une même colonne. A chaque saisie le résultat change dans le cellule de destination
Cellules de saisie GY1 GY2 GY3 GY6 GY7
Cellule de destination GY8
Merci
Bonne fin d’année
A bientôt
PB

Bonjour,
Un exemple en VBA
Bauvois.xlsm (13,4 Ko)

Bonsoir Mimimathy
Grand merci
Super cela fonctionne pour la colonne GY comme demandé
J’ai omis de dire que je voulais étendre aux autres colonnes G / H / I / J etc
Peut on adapter ta solution
Merci
Bonne soirée
PB

Re,
Un exemple pour les colonnes de G à GY
Bauvois.xlsm (13,5 Ko)

Bonjour
Merci pour ton retour
Ca fonctionne très bien
Bonne fin d’année
Meilleurs vœux pour 2022
PB

Bonjour Mimimathy
Meilleurs Vœux pour 2022
Bonheur Santé Sérénité
Bon vent …

J’aurai besoin de ton aide si tu peux
Intégration de ton codage, dans le codage existant de la feuille concernée
Je te joins les infos reprenant les codes et tes lignes de codage

Codes existants sur feuille concernée

Private Sub Worksheet_Change(ByVal Target As Range)

listeligne1 = « /70/60/80/90/100/110/120/130/140/150/160/170/180/190/201/212/222/232/242/252/ »

ligne = Target.Row

If listeligne1 Like « /" & ligne & "/ » Then

Range(« L » & ligne, « EV » & ligne).Interior.ColorIndex = xlNone

dercolonne = Cells(ligne, Columns.Count).End(xlToLeft).Column

coursmaxi = Range(« B » & ligne + 4).Value

dervaleur = 0

For i = 12 To dercolonne

If Cells(ligne, i) > coursmaxi And Cells(ligne, i) > dervaleur Then

Cells(ligne, i).Interior.ColorIndex = 6

dervaleur = Cells(ligne, i).Value

Else

Cells(ligne, i).Interior.ColorIndex = xlNone

End If

Next

End If

listeligne2 = « 70/60/80/90/100/110/120/130/140/150/160/170/180/190/201/212/222/232/242/252 »

For i = 0 To UBound(Split(listeligne2, « / »))

ligne = Split(listeligne2, « / »)(i)

If Range(« C » & ligne).Value <> Range(« C » & ligne + 1).Value Then

Range(« C » & ligne + 1).Value = Range(« C » & ligne).Value

If Range(« E » & ligne) = «  » Then

Range(« E » & ligne) = Format(Range(« D » & ligne), « MM/DD/YYYY »)

Else

Range(« E » & ligne) = Range(« E » & ligne) & « - » & Range(« D » & ligne)

End If

Range(« D » & ligne) = Date

End If

Next

End Sub

Ta modification fonctionnelle

Ajout à intégrer **COMMENT MERCI …

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Union([G1:GY3], [G6:GY7])) Is Nothing Then

Cells(8, Target.Column) = Target.Value

End If

End Sub

Comment faire un assemblage adapté fonctionnel
**Si tu peux faire la modif **
Je ferai le nécessaire dans le fichier
**Merci pour ton aide **
**Amicalement **
PB

Je pensais de joindre un fichier World (pas accepter)
J’espère que le copié collé conviendra
Je suis à ton écoute

Bonsoir Mimimathy
As tu pris connaissance de ma requête du 3 janvier
Peux tu donner une suite favorable à cette demande d’association des codages
Dépasse mon niveau de compétences
Bonne soirée
Merci pour ta réponse
Cordialement
PB

Bonjour à La Communauté

Le problème est réglé dans sa globalité
Solution voir échange 3/7 Décembre 2021
Fichier Bauvois.xlsm (13.5Ko)

Merci
Amicalement
PB

Ce sujet a été automatiquement fermé après 30 jours. Aucune réponse n’est permise dorénavant.