Microsoft 365 Code pour transfert

[Marvin57]

Bonjour à toutes et à tous,

en pièce jointe, un fichier dans lequel j'ai placé ma demande sur l'onglet Feuil1.
Il s'agit de pouvoir transférer automatiquement des données d'une colonne à l'autre suivant des dates précises.

Je vous serai très reconnaissant si vous pourriez me guider dans cette demande.

Merci d'avance à vous .

Marvin57

 

[Phil69970]

Bonjour @Marvin57

Je te propose ceci à mettre dans le code de la feuille fonctionne sur double clic mais il faudra attendre le 31/07/2024 et le 30/09/2025 pour le tester 🤣

Sub Transfert()
Application.ScreenUpdating = False
Dim MaDate As Date, Derlig&
Derlig = Range("I" & Rows.Count).End(xlUp).Row
MaDate = "31/07/" & [M1].Value

If MaDate = [K1].Value Then Range("H2:H" & Derlig) = Range("I2:I" & Derlig).Value
'If MaDate = [K1].Value + 193 Then Range("H2:H" & Derlig) = Range("I2:I" & Derlig).Value 'valable seulement aujourd’hui

MaDate = "30/09/" & [M1].Value + 1 'le +1 pour avoir l'année d'apres si pas besoin car tu veux juste septembre de l'année en cours le supprimer
If MaDate = [K1].Value Then Range("H2:H" & Derlig) = ""
'If MaDate = [K1].Value + 619 Then Range("H2:H" & Derlig) = "" 'valable seulement aujourd’hui + 619 ==> 30/09/2025 et 254 ==> 30/09/2024

End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Transfert
End Sub

Et si tu n'es pas patient alors tu ajoutes (valable seulement aujourd’hui) 193 jours pour avoir le 31/07/24 et 619 jours pour avoir le 30/09/2025 😉

Mais si tu n'ouvres pas le fichier et le double clic le jour J !!! il ne se passera rien !!!!
Ou bien il faut modifier la macro par :

If MaDate < [K1].Value Then

 

[Marvin57]

Bonsoir Phil69970,

Merci pour ton aide sur mon sujet.

Alors j'ai essayé et j'ai modifier ma date du pc, mais je n'arrive pas à comprendre ce que tu veux dire par double click !

 

[Phil69970]

@Marvin57

mais je n'arrive pas à comprendre ce que tu veux dire par double click !

Un double clic c’est quand tu cliques 2 fois de suite très vite avec le bouton gauche de la souris 😵

Événement Worksheet.BeforeDoubleClick (Excel)

Référence de langage VBA pour Office

learn.microsoft.com

Voir image

Après on peut modifier la macro pour que le code se déclenche avec le bouton droit au lieu du double clic

il suffit de supprimer

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Transfert
End Sub

et de le remplacer par ce code

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Transfert
End Sub

 

[Marvin57]

@Marvin57



Un double clic c’est quand tu cliques 2 fois de suite très vite avec le bouton gauche de la souris 😵

Événement Worksheet.BeforeDoubleClick (Excel)

Référence de langage VBA pour Office

learn.microsoft.com

Voir image

Regarde la pièce jointe 1188851



Regarde la pièce jointe 1188850

Après on peut modifier la macro pour que le code se déclenche avec le bouton droit au lieu du double clic

il suffit de supprimer


et de le remplacer par ce code

Re,

désolé de te poser une question de ce genre !!!! Parfois j'écris trop vite.
J'avais compris le double click, mais est-il possible de changer l'exécution de la macro de façon qu'elle le fasse au moment de l'ouverture du fichier ?

Le reste fonctionne comme voulu.

 

[Phil69970]

@Marvin57

Je te propose ce fichier à l'ouverture du fichier :

==> Les valeurs s'inscrivent si la date est égale au 31/07/2024
==> Les valeurs s’effacent si la date est égale au 30/09/2024

 

[Marvin57]

@Marvin57

Je te propose ce fichier à l'ouverture du fichier :

==> Les valeurs s'inscrivent si la date est égale au 31/07/2024
==> Les valeurs s’effacent si la date est égale au 30/09/2024

Re,

c'est exactement cela.👍

Une dernière question, car j'ai pas mentionné cela, désolé.

Dans les cellules en colonne I se trouvent des formules ! Comment modifier la ligne qui efface sans qu'elle supprime les formules STP.

 

[Phil69970]

@Marvin57

Dans les cellules en colonne I se trouvent des formules ! Comment modifier la ligne qui efface sans qu'elle supprime les formules STP.

J'ai pas compris ce que tu veux.

Ma macro copie :
==> Les valeurs des cellules I2:I7 dans les cellules H2:H7 si la date = 31/07/2024
La macro efface :
==> Les valeurs des cellules H2:H7 si la date = 30/09/2024

Et il n'y a aucune formule modifié, effacer ou copier donc je comprends pas ce que tu veux dire ???

As tu fait l'essai ??

 

[Marvin57]

@Marvin57


J'ai pas compris ce que tu veux.

Ma macro copie :
==> Les valeurs des cellules I2:I7 dans les cellules H2:H7 si la date = 31/07/2024
La macro efface :
==> Les valeurs des cellules H2:H7 si la date = 30/09/2024

Et il n'y a aucune formule modifié, effacer ou copier donc je comprends pas ce que tu veux dire ???

As tu fait l'essai ??

Re,
Oui j'ai fais des essais et cela fonctionne très bien. Le soucis c'est que je pensais pas aux formules qui se trouvent dans la colonne I. Je suis désolé.
Donc au moment où il copie ou au moment ou il efface les données de cette colonne, peut-on faire en sorte qu'il n'efface pas les formules ?
Merci

 

[Phil69970]

@Marvin57

Fournit un fichier avec tes formule car je ne comprends pas ce que tu dis car

il n'y a aucune formule modifié, effacer ou copier de la colonne I qui est touché

 

[Marvin57]

@Marvin57

Fournit un fichier avec tes formule car je ne comprends pas ce que tu dis car

il n'y a aucune formule modifié, effacer ou copier de la colonne I qui est touché

Re,
En cellule I2 par exemple il y a =B2+F2×3
En cellule I3 il y a =B3+F3×3
Et ainsi de suite.

 

[Phil69970]

Re

Je me répète mon code ne modifie,copie ou efface aucune formule donc fournit un fichier avec mon code et tes formules et explique ce que tu veux faire....

Le code copie uniquement LES VALEURS de la colonne I vers la colonne H
Cela veut dire qu'aucune formule n'est copié

Le code efface uniquement LES VALEURS de la colonne H
Cela veut dire qu'aucune formule n'est éffacé

 

[Marvin57]

Re

Je me répète mon code ne modifie,copie ou efface aucune formule donc fournit un fichier avec mon code et tes formules et explique ce que tu veux faire....

Le code copie uniquement LES VALEURS de la colonne I vers la colonne H
Cela veut dire qu'aucune formule n'est copié

Le code efface uniquement LES VALEURS de la colonne H
Cela veut dire qu'aucune formule n'est éffacé

OK. Il se fait tard. Je vais faire de plus amples tests et si cela pose problème je te tiens au courant dans la matinée.
Je ne vais pas abuser de ton week-end. On verra ce que ça donne ok.
En attendant bonne soirée et Merci, surtout pour la patience.
A+

 

[Marvin57]

Re

Je me répète mon code ne modifie,copie ou efface aucune formule donc fournit un fichier avec mon code et tes formules et explique ce que tu veux faire....

Le code copie uniquement LES VALEURS de la colonne I vers la colonne H
Cela veut dire qu'aucune formule n'est copié

Le code efface uniquement LES VALEURS de la colonne H
Cela veut dire qu'aucune formule n'est éffacé

Bonjour Phil69970,

après pas mal d'essais, j'ai réussi à adapter les codes à mon fichier réel.
Le fichier ci-joint ressemble au tableau du réel.( en ayant supprimé les données sensibles bien sûr)

Alors si tu veux bien vérifier et me dire si cela peut rester d'après toi.

Le dernier point lequel je voudrai bien mettre en place est le suivant;

J'ai placé un code dans le Thisworkbook afin qu'il puisse exécuter le transfert ou la suppression lors de l'ouverture du fichier.

Si tu veux bien y jeter un œil et me dire également si cela est correct.

Merci d'avance pour ton retour et A+.
Marvin57

 

[Marvin57]

Re

Je me répète mon code ne modifie,copie ou efface aucune formule donc fournit un fichier avec mon code et tes formules et explique ce que tu veux faire....

Le code copie uniquement LES VALEURS de la colonne I vers la colonne H
Cela veut dire qu'aucune formule n'est copié

Le code efface uniquement LES VALEURS de la colonne H
Cela veut dire qu'aucune formule n'est éffacé

Bonjour Phil69970,

avez vous eu le temps de jeter un oeil à mon message SVP ?

Merc à vous pour votre retour

Marvin57