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
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
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.