Aide Vba copier coller sous condition

Version imprimable

1 pièce(s) jointe(s)

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

Code:

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

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

Code:

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

Code:

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

21/08/2013, 21h06
d.deneys

1 pièce(s) jointe(s)

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 ^^
21/08/2013, 21h47
casefayere

Je pourrais peut-être te proposer de passer par des boutons de commande mais il faut que je comprenne bien le but recherché
21/08/2013, 22h10
d.deneys

1 pièce(s) jointe(s)

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
21/08/2013, 22h35
casefayere

Peux-tu me dire à quoi servent les colonnes masquées dans lesquelles il n'y a que "#REF!" ?
21/08/2013, 22h44
d.deneys

1 pièce(s) jointe(s)

oui bien sur, en fait il y a une fonction qui permet de rechercher si la marchandise pour le chantier est en magasin ou pas via une formule rechercheV
la liste des marchandises est sur une autre feuille actuellement pour ne pas encombré le fichier pour le forum

Le voici le fichier complet
21/08/2013, 23h11
casefayere

Essaies avec le bouton et dis-moi
22/08/2013, 08h03
d.deneys

Bonjour,
C'est presque çà, sauf que maintenant le 1er jour ne ce copie plus :calim2:
J'ai le mardi le mercredi mais plus le lundi.
Bat

Bonjour d.deneys, le forum,

Changes simplement cette ligne, c'est une étourderie de ma part :
Code:

1 2 3 ... For x = 19 To 49 Step 9 ...
pour :
Code:

1 2 3 ... For x = 10 To 49 Step 9 ...
autre question : j'ai vu que chaque numéro de groupe contient 2 lignes, faut-il tenir compte de cette 2ème ligne ?, si oui changes ce bout de code :
Code:

1 2 3 4 5 ... With Sheets(Varfeuille) .Range(.Cells(y, x - 7), .Cells(y, x)) = Range(Cells(y, x - 7), Cells(y, x)).Value End With ...
en :
Code:

1 2 3 4 5 6 ... With Sheets(Varfeuille) .Range(.Cells(y, x - 7), .Cells(y + 1, x)) = Range(Cells(y, x - 7), Cells(y + 1, x)).Value End With ....

22/08/2013, 10h13
d.deneys

Re Bonjour,
Cela fonctionne impeccable.
Pour la 2eme ligne c'est tout simplement car si un chantier dure - de 1 jour genre 0,6 on peux ajouter un autre chantier avec de max 0,3.
Donc il faut que ça fasse pareil que pour le reste si y a un V on copie si pas de V on fait rien.

Apres, c'est vraiment indispensable de passé par un bouton?, vraiment impossible juste d'automatiser?

Re,

Citation:

Pour la 2eme ligne c'est tout simplement car si un chantier dure - de 1 jour genre 0,6 on peux ajouter un autre chantier avec de max 0,3.
Donc il faut que ça fasse pareil que pour le reste si y a un V on copie si pas de V on fait rien.

Donc, il faut enlever dans la boucle "Step 2", soit :
Code:

1 2 3 4 5 6 7 8 9 For x = 10 To 49 Step 9 For y = 6 To Dl If UCase(Cells(y, x)) = "V" Then With Sheets(Varfeuille) .Range(.Cells(y, x - 7), .Cells(y, x)) = Range(Cells(y, x - 7), Cells(y, x)).Value End With End If Next y Next x
Citation:

Apres, c'est vraiment indispensable de passé par un bouton?, vraiment impossible juste d'automatiser?

Je vais y réfléchir car, comme tu le disais, tes formules pertubent l'évènement "Change"
On peut toujours automatiser à l'ouverture du classeur, à sa fermeture, avant son enregistrement...etc., mais je ne pense pas que ce se soit ça qui t'intéresse.

Citation:

Apres, c'est vraiment indispensable de passé par un bouton?, vraiment impossible juste d'automatiser?

essayes comme ça
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 Private Sub Worksheet_Change(ByVal Target As Range) varcol = Target.Column y = Target.Row If varcol <> 10 And varcol <> 19 And varcol <> 28 And varcol <> 37 And varcol <> 46 Then Exit Sub With ActiveSheet Varfeuille = "Reel " & Right(.Name, Len(.Name) - 6) Dl = .Range("B" & .Rows.Count).End(xlUp).Row End With With Sheets(Varfeuille) For x = 10 To 49 .Range(.Cells(y, x - 7), .Cells(y, x)).ClearContents Next x For x = 10 To 49 Step 9 If UCase(Cells(y, x)) = "V" Then .Range(.Cells(y, x - 7), .Cells(y, x)) = Range(Cells(y, x - 7), Cells(y, x)).Value End If Next x End With End Sub

22/08/2013, 11h22
d.deneys

GENIALLLLLLLLLLLLLLLLLL :lol:

Merci infiniment !!!!

Excel ne finira pas de impressionner et vos connaissances également :mrgreen:

Voila mon projet finit a 95%
Il me reste juste a trouver comment faire pour que tout ce qui n'a pas été validé dans le prévisionnel "V" une fois la date dépassée apparaisse sous forme de liste dans une nouvelle feuille que je dois appeler "A replanifier"

Vous qui avez l'air bien caler la dedans, que pensez vous de ce genre de planning, il y a bcp de planning qui existent en excel mais je n'en avais trouver aucun sous cette forme, le planning de Gant n'est vraiment dans ce cas pas adapter car je trouve qu'il est plutôt fait pour de très long chantier ou il y a plusieurs corps de métier qui interviennent.

Auriez vous fait autrement?
22/08/2013, 11h34
casefayere

Citation:

Il me reste juste a trouver comment faire pour que tout ce qui n'a pas été validé dans le prévisionnel "V" une fois la date dépassée apparaisse sous forme de liste dans une nouvelle feuille que je dois appeler "A replanifier"

Je pense que ça mérite un nouveau sujet afin de ne pas alourdir la discussion (dans ton intérêt)

Mets ce sujet en résolu, penses à voter (ça fait toujours plaisir :oops:) et crées une nouvelle discussion, je m'y attellerai.