Discussion :

[Nightrotou2702]

Bonjour à tous,

Je me permets de vous contacter en tout désespoir...
J'ai un fichier professionnel à rendre à mon supérieur pour la fin de la journée et ce matin, il me demande d'ajouter une modification sur le fichier... Je ne sais même pas si cela est possible!! ?

J'ai inséré le fichier concerné pour donner un exemple concret.
Les explications sont dessus...

Merci beaucoup pour toute l'aide que vous pourrez m'apporter!
Cordialement,

[Marc-L]

Bonjour,

pour rappel, ce forum est dédié aux développeurs pour aider à résoudre des points précis et particuliers,
pas du tout pour faire le travail bénévolement de salariés ‼

Sachant que certains de ces intervenants bénévoles sont soit à leur compte soit au chômage …

Qui plus est certains ne peuvent pas - ou ne veulent pas - télécharger de pièces jointes …

Cordialement.

[casefayere]

Bonjour,

Pour faire plaisir, essayes ce code, en espérant que tu connaisses le principes de base

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Sm As String, x As Integer, y As Integer
Dim Dl As Range
If Not IsEmpty(Target) And Target.Row > 6 And (Target.Column = 5 Or Target.Column = 5 Or Target.Column = 15 Or Target.Column = 25 Or _
Target.Column = 35 Or Target.Column = 45 Or Target.Column = 55) Then
 
  For x = 1 To 7
    If Target.Offset(-x, -3) Like "Semaine*" Then
      y = WorksheetFunction.Search("-", Target.Offset(-x, -3))
      Sm = "S" & Trim(Split(Left(Target.Offset(-x, -3), y), "°")(1))
      Exit For
    End If
  Next x
  With Sheets("Tableau de suivi")
    Set Dl = .Range("C" & .Rows.Count).End(xlUp)(3, 1)
    Dl = Target.Value
    .Range("F" & Dl.Row) = Sm
  End With
End If
End Sub

[nibledispo]

Bonjour casefayere,

J'ai eu la curiosité de regarder ta proposition à laquelle j'adhère entièrement si ce n'est trois corrections pour le questionneur qui ne connait peut-être pas VBA.

Voyant que tu utilises "search" sur lequel j'ai interrogé en vain sur une autre discussion je rebondis :
Qu'est ce qui justifie l'emploi de "search" plutôt que "instr" qui tous deux renvoient une position. Hors le fait que la première exige "worksheetfunction" dans son application, je ne vois pas.

Corrections sauf avis contraire :

- "Or Target.Column = 5" fait doublon,
- "For x = 1 To 8" je crois ,
- ".Range("E" & Dl.Row) = Sm" selon demande

et enfin cette procédure doit être logée dans la feuille VBA "Calendrier"

Cordialement,

[casefayere]

Corrections sauf avis contraire :

tu as raison de reprendre le code

Or Target.Column = 5" fait doublon,

de l'inattention

et qu'enfin cette procédure doit être logée dans la feuille VBA "Calendrier"

de toute façon, elle est logée dans l'événement "Change" de la feuille, à moins que tu ne t'adresses qu'au demandeur, qui, j'ai l'impression, ne reviendra pas.

Bonne fin de journée