Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Microsoft 365 Code pour transfert

M

Marvin57

XLDnaute Occasionnel
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
 

Pièces jointes

  • MARVIN57 FORMULES TRANSFERT.xlsm
    10.7 KB · Affichages: 9
Solution
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é
Trier par date Trier par votes

Phil69970

XLDnaute Barbatruc
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

VB: 
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
Cliquez pour agrandir...
 
Dernière édition:
Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc
@Marvin57


Marvin57 à dit:
mais je n'arrive pas à comprendre ce que tu veux dire par double click !
Cliquez pour agrandir...
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
Cliquez pour agrandir...

et de le remplacer par ce code
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Transfert
End Sub
Cliquez pour agrandir...
 
Dernière édition:
Vote positif 0 Vote négatif
M

Marvin57

XLDnaute Occasionnel
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.
 
Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc
@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
 

Pièces jointes

  • Transfert sur ouverture fichier V1.xlsm
    17.4 KB · Affichages: 3
Vote positif 0 Vote négatif
M

Marvin57

XLDnaute Occasionnel
Phil69970 à dit:
@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
Cliquez pour agrandir...
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.
 
Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc
@Marvin57

Marvin57 à dit:
Dans les cellules en colonne I se trouvent des formules ! Comment modifier la ligne qui efface sans qu'elle supprime les formules STP.
Cliquez pour agrandir...
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 ??
 
Vote positif 0 Vote négatif
M

Marvin57

XLDnaute Occasionnel
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
 
Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc
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é
 
Vote positif 0 Vote négatif
Solution
M

Marvin57

XLDnaute Occasionnel
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+
 
Vote positif 0 Vote négatif
M

Marvin57

XLDnaute Occasionnel
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
 

Pièces jointes

  • MARVIN57 FORMULES TRANSFERT.xlsm
    18.5 KB · Affichages: 4
Vote positif 0 Vote négatif
M

Marvin57

XLDnaute Occasionnel
Bonjour Phil69970,

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

Merc à vous pour votre retour

Marvin57
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

M
  • Résolu(e)
Microsoft 365 Différence en jours
2
Réponses
19
Affichages
1 K
Marvin57
M
M
  • Résolu(e)
Microsoft 365 code pour ajout
Réponses
13
Affichages
397
Marvin57
M
M
  • Résolu(e)
Microsoft 365 Code pour mise en couleur
Réponses
2
Affichages
361
Marvin57
M
M
  • Résolu(e)
Microsoft 365 Code pour index
Réponses
9
Affichages
353
Marvin57
M
M
  • Résolu(e)
Microsoft 365 Code pour purger
Réponses
6
Affichages
478
Marvin57
M
M
  • Résolu(e)
Microsoft 365 Rafraîchir listbox
Réponses
9
Affichages
896
Marvin57
M
B
  • Résolu(e)
Microsoft 365 Problème dans formule VBA
Réponses
7
Affichages
200
BOILEAU
B
M
  • Résolu(e)
Microsoft 365 Code de tri
2
Réponses
22
Affichages
810
Dudu2
M
  • Résolu(e)
Microsoft 365 Code affichage
Réponses
11
Affichages
716
Marvin57
M
M
  • Résolu(e)
Microsoft 365 Code pour tri avec critère
2
Réponses
18
Affichages
983
Marvin57
M
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…