Problème Excel Macro ou Autre

Bonjour à tous,

Je fais appel à la communauté pour m'aider sur un sujet !

Je travaille actuellement sur la construction d'un planning prod.

Ma première colonne A contient des temps de production puis de B à F les jours de semaine.

J'aimerais avec un simple clic souris pouvoir faire un copier/coller de ma valeur temps dans une des cellules jours !

Exemple :

Ligne 7 clic sur mercredi (D7) alors valeur A7 vient se renseigner en D7 (Voir pièce jointe)

Merci pour votre aide !

Cordialement,

Bonjour,

copier cette macro sur la page code de la feuille "EXEMPLE"

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 Then
  j = Weekday(Date, 2) + 1
  Cells(Target.Row, j) = Target.Value
End If
End Sub

Merci pour le retour mais c'est possible de le renseigner directement dans mon exemple car je ne sais pas ou mettre le code autre que dans une macro...

Bonsoir Munff, bonsoir sabV,

Voici ton fichier avec la macro copiée sur ta page "EXEMPLE"

Bonne soirée.

Ok par contre ce n'est pas exactement ma demande Xd

J'aimerais après un clic sur n'importe quelle cellule des colonnes B à F reporter le temps correspondant à la ligne

Exemple un clic sur D4 renseignerait ma valeur temps A4 en D4

Bonjour,

Voici la modification,

Au top !

Merci !!!

@sabV,

Je me suis permis de corrigé car la colonne du lundi n'était pas prise en compte.

Juste une dernière précision si ma colonne temps n'est pas en A mais en T comment je peux le modifier dans le code ?

Tu change le N° de colonne dans le code, donc colonne 20 :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set isect = Application.Intersect(Target, Range("B3:F19"))
If Not isect Is Nothing Then
  Cells(Target.Row, Target.Column).Value = Cells(Target.Row, 20).Value
End If
End Sub

Juste une dernière précision si ma colonne temps n'est pas en A mais en T comment je peux le modifier dans le code ?

voilà

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set isect = Application.Intersect(Target, Range("B3:F19"))
If Not isect Is Nothing Then
  Cells(Target.Row, Target.Column).Value = Cells(Target.Row, "T").Value
End If
End Sub

OK parfait merci à toi !

Si tu as trouvé tes réponses, n'oublie pas de cocher "Résolu"