Discussion :

[d.deneys]

Bonsoir à tous et toutes,
Voilà j'essaye de modifier un code vba:

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
21
22
23
24
Private Sub Worksheet_Change(ByVal Target As Range)
  Dim varcol As Integer
  Dim varlig As Integer
  Dim varfeuille As String
  varcol = Target.Column
  varlig = Target.Row
  varfeuille = "Reel " & Right(ActiveSheet.Name, Len(ActiveSheet.Name) - 6)
  If varcol <> 10 And varcol <> 19 And varcol <> 28 And varcol <> 37 And varcol <> 46 Then Exit Sub
  If Len(Target.Value) = 0 Then
    For i = 0 To 7
    Sheets(varfeuille).Cells(varlig, varcol - i).ClearContents
    Next
    Exit Sub
  End If
  If Target.Value = "v" Then Target.Value = "V"
  Sheets(varfeuille).Cells(varlig, varcol) = Target.Value
  Sheets(varfeuille).Cells(varlig, varcol - 1) = Cells(varlig, varcol - 1).Value
  Sheets(varfeuille).Cells(varlig, varcol - 2) = Cells(varlig, varcol - 2).Value
  Sheets(varfeuille).Cells(varlig, varcol - 3) = Cells(varlig, varcol - 3).Value
  Sheets(varfeuille).Cells(varlig, varcol - 4) = Cells(varlig, varcol - 4).Value
  Sheets(varfeuille).Cells(varlig, varcol - 5) = Cells(varlig, varcol - 5).Value
  Sheets(varfeuille).Cells(varlig, varcol - 6) = Cells(varlig, varcol - 6).Value
  Sheets(varfeuille).Cells(varlig, varcol - 7) = Cells(varlig, varcol - 7).Value
End Sub

Le code est visible sur les feuilles "prévi"
Ce code permet de recopier des valeurs si en colonne J;S;AB;AK OU AT
ce trouve la valeur "V", le code fonctionne actuellement si le "V" est mis manuellement mais pas si ils sont mis via formules.

Les V sont mis sur les feuilles correspondante a tout ce qui est prévi (12 feuilles, 1/mois) et les données sont recopiées sur les feuilles réel (12 feuilles, 1/mois)

Merci d'avance a qui pourra m'aider