Bonsoir à tous et toutes,
Voilà j'essaye de modifier un code vba:
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
Voilà j'essaye de modifier un code vba:
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
Pièces jointes
Dernière édition: