Copie de valeur selon certaines conditions
HEMIYELY
Messages postés
61
Date d'inscription
Statut
Membre
Dernière intervention
-
fabien25000 Messages postés 673 Date d'inscription Statut Membre Dernière intervention -
fabien25000 Messages postés 673 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Je vous présente mon problème avec mon fichier pour être le plus explicite possible :
https://mon-partage.fr/f/TzVdgZgR/
- Dans la feuille "StockDyn" j'ai un tableau (B42:J94). Ce tableau contient des formules. Par l’intermédiaire d'une macro Copier/Coller, je souhaite fixer la valeur de certaines cellules si elles sont inférieures ou égales à une valeur.
- La première colonne de ce tableau fait référence à une date. Si cette date est égale ou inférieure à la date actuelle (cellule D40 toujours de la feuille "StockDyn") je souhaite recopier les lignes (sans les formules juste la valeur). Je souhaite ensuite coller les lignes au même endroit où elles ont été copiées.
- Par exemple, mon tableau commence à la date 30/10/2018. Nous sommes la semaine 14/11/2018.
- Je souhaite copier les valeurs des lignes contenant les dates antérieurs ou égale au 14/11/2018 et coller la valeur contenue dans ces cellules toujours sur la même plage (B43:J45).
Et ainsi de suite. Copier et coller les lignes si la date est inférieure à la date actuelle.
Ma demande est peut-être un peu tordue mais cela me permet de fixer les valeurs des lignes antérieures à la date actuelle et de continuer à avoir des formules pour calculer les valeurs des lignes postérieures à la date actuelle.
Je vous remercie par avance pour vos réponses.
Cordialement,
Je vous présente mon problème avec mon fichier pour être le plus explicite possible :
https://mon-partage.fr/f/TzVdgZgR/
- Dans la feuille "StockDyn" j'ai un tableau (B42:J94). Ce tableau contient des formules. Par l’intermédiaire d'une macro Copier/Coller, je souhaite fixer la valeur de certaines cellules si elles sont inférieures ou égales à une valeur.
- La première colonne de ce tableau fait référence à une date. Si cette date est égale ou inférieure à la date actuelle (cellule D40 toujours de la feuille "StockDyn") je souhaite recopier les lignes (sans les formules juste la valeur). Je souhaite ensuite coller les lignes au même endroit où elles ont été copiées.
- Par exemple, mon tableau commence à la date 30/10/2018. Nous sommes la semaine 14/11/2018.
- Je souhaite copier les valeurs des lignes contenant les dates antérieurs ou égale au 14/11/2018 et coller la valeur contenue dans ces cellules toujours sur la même plage (B43:J45).
Et ainsi de suite. Copier et coller les lignes si la date est inférieure à la date actuelle.
Ma demande est peut-être un peu tordue mais cela me permet de fixer les valeurs des lignes antérieures à la date actuelle et de continuer à avoir des formules pour calculer les valeurs des lignes postérieures à la date actuelle.
Je vous remercie par avance pour vos réponses.
Cordialement,
A voir également:
- Copie de valeur selon certaines conditions
- Copie cachée - Guide
- Super copie - Télécharger - Gestion de fichiers
- Copie écran samsung - Guide
- Copie disque dur - Guide
- Copie rapide - Télécharger - Gestion de fichiers
1 réponse
Bonjour,
un code qui devrait fonctionner, je l'ai mis sur open pensant que c'est le meilleur évènement pour cette tâche... Evidemment si on bosse dessus à miniut et qu'on change de date le taf ne se fait pas :
un code qui devrait fonctionner, je l'ai mis sur open pensant que c'est le meilleur évènement pour cette tâche... Evidemment si on bosse dessus à miniut et qu'on change de date le taf ne se fait pas :
Private Sub Workbook_Open()
Dim derlig, i, j As Long
derlig = Worksheets("StocksDyn").Range("A" & Rows.Count).End(xlUp).Row
For i = 40 To derlig
If Worksheets("StocksDyn").Range("A" & i) < Worksheets("StocksDyn").Range("D40") Then
For j = 1 To 10
Worksheets("StocksDyn").Range(Chr(64 + j) & i).Value = Worksheets("StocksDyn").Range(Chr(64 + j) & i).Value
Next j
End If
Next i
End Sub
Il y a juste un détail qui me dérange.
Lorsque cette macro s'applique, la cellule D40 contenant la formule =AUJOURDUI() est modifiée pour mettre la date sans la formule. Je souhaite garder la formule =AUJOURDUI dans cette cellule.
Y a t-il une solution pour ce problème ?
Encore merci
Cordialement
For i = 40 To derlig If Worksheets("StocksDyn").Range("A" & i) < Worksheets("StocksDyn").Range("D40") Then For j = 1 To 10 Worksheets("StocksDyn").Range(Chr(64 + j) & i).Value = Worksheets("StocksDyn").Range(Chr(64 + j) & i).Value Next j End If Next ipar :
For i = 43 To derlig If Worksheets("StocksDyn").Range("A" & i) < Worksheets("StocksDyn").Range("D40") And Worksheets("StocksDyn").Range("A" & i) <> "" Then For j = 1 To 10 Worksheets("StocksDyn").Range(Chr(64 + j) & i).Value = Worksheets("StocksDyn").Range(Chr(64 + j) & i).Value Next j End If Next ij'avais mis 40 au pif pensant verifier et corriger mais j'ai zappé désolé
edit j'en ai profité pour traiter "si vide" qu'excel interprète comme antérieur à aujourd'hui
J'aimerai ajouter une nouvelle condition pour rendre mon fichier plus automatique.
Pour le moment avec cette macro je copie et coller les valeurs si elles sont antérieurs à la date actuelle.
J'aimerai avoir une option qui me permettrait de revenir en arrière et de remettre ma formule.
Est-ce qu'il y aurait une solution?
Merci encore pour votre réponse
Cordialement
Le plus simple à mon avis est de demander la permissions avant de transformer les formules en valeurs :
Private Sub Workbook_Open() Dim derlig, i, j As Long Dim tmpMsgBox As Integer derlig = Worksheets("StocksDyn").Range("A" & Rows.Count).End(xlUp).Row For i = 43 To derlig If Worksheets("StocksDyn").Range("A" & i) < Worksheets("StocksDyn").Range("D40") And Worksheets("StocksDyn").Range("A" & i) <> "" Then tmpMsgBox = MsgBox("Une (ou plusieurs) date est antérieure à aujourd'hui." & vbCrLf & _ "Voulez vous transformer les formules en valeurs fixes?", vbQuestion + vbYesNo) Exit For End If Next i If tmpMsgBox = vbYes Then For i = 43 To derlig If Worksheets("StocksDyn").Range("A" & i) < Worksheets("StocksDyn").Range("D40") And Worksheets("StocksDyn").Range("A" & i) <> "" Then For j = 1 To 10 Worksheets("StocksDyn").Range(Chr(64 + j) & i).Value = Worksheets("StocksDyn").Range(Chr(64 + j) & i).Value Next j End If Next i Else Exit Sub End If End Subsi ça ne va pas il faudra intervenir sur un autre événement pour ré-écrire les formules
Peut être déterminer sur quelles lignes et comment faire pour que la macro sur open ne refasse pas l'inverse à la prochaine ouverture...
Lorsque je "reset" tout mon fichier, je souhaiterai que les formules de ce tableau réapparaissent.