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

[casefayere]

Bonsoir,
Une première chose, apprends-toi à mettre les balises code "#"
Sans avoir analysé ton code, transformes cette partie

Code :

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

1
2
3
4
5
6
7
8
9
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

en

Code :

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

1
2
3
4
5
6
7
8
   With Sheets(varfeuille)
    If UCase(Target.Value) = "V" Then
      .Cells(varlig, varcol) = Target.Value
      For i = 1 To 7
        .Cells(varlig, varcol - i) = Cells(varlig, varcol - i).Value
      Next i
    End If
  End With

si c'est ce que tu cherches

[d.deneys]

Bonsoir casefayere
Tout d'abord merci de ta réponse, le soucis en fait c'est que cela ne recopie que pour le lundi dans le réel et pas pour les autres jours.

Je m explique, dans le prévi si par exemple dans la colonne temps je met 2 les données sont recopiées dans le jour d’après par formule si je met 3 dans les 2 jours d’après etc

Mais dans le réel seul ce qui est dans le 1er jour est recopier c'est ça le soucis..
A mon avis c'est du au fait que le "V" est mis fia formule et pas manuellement

change par ex la valeur de "tps" dans prévi Aout au lundi 5 en "2" au lieu de "1" et met le "V" en colonne conf, ensuite regarde dans réel Aout tu comprendra mieux le soucis

Je suis encore a mes début en formules excel et en vba / macro, n'en parlons pas .... Peut être existe il également un moyen autre de remplir les autres jours en fonction du temps (macro ou vba) ce qui eviterais les multiples formules ^^

[casefayere]

Je pourrais peut-être te proposer de passer par des boutons de commande mais il faut que je comprenne bien le but recherché

[d.deneys]

En somme il y a un planning prévisionnel, et un planning réel.
Je cherche juste a transférer les données du mois prévi dans le mois réel si la pose est confirmée "V"

Je me suis faciliter la tache dans le prévisionnel en faisant en sorte que lorsqu'un chantier dure + d'1 jour, il soit copier dans les jours suivants (via formule si) sous base de la durée colonne "tps".

En fait actuellement les données ce recopient bien dans le réel SI je remplis manuellement le "V" mais lors d'un chantier de plusieurs jours, le "V" est mis automatiquement via ma formule et je crois que c'est a cause de ça que le code VBA ne fonctionne pas et que cela ne recopie que les données pour le jour auquel j'ai mis manuellement le "V"

Plus explicite dans le fichier si joint sur les feuilles prévi Aout et Reel Aout

[casefayere]

Peux-tu me dire à quoi servent les colonnes masquées dans lesquelles il n'y a que "#REF!" ?