XL 2016 copier coller avec condition

Lahou02

XLDnaute Nouveau
Bonjour à tous,

Je n’ai aucune connaissance en VBA ,même mes connaissances en Excel sont limitées.
J’ai besoin de votre aide pour créer des macros dans un classeur.

Ma demande :
En appuyant sur un bouton ,je vais transférer les données ( C4 au C15 ) vers la feuil 1
selon le mois qui corresponds à la cellule C3

veuillez trouver le fichier en PJ .

je vous remercie d'avance
 

Pièces jointes

  • exemple.xlsx
    11.7 KB · Affichages: 10

_Thierry

XLDnaute Barbatruc
Repose en paix
Bonjour @Lahou02 , le Forum

Voici une approche 100% VBA, je me suis efforcé de faire du code simple et de nommer de manière claire et compréhensible toutes les variables, pour que tu puisses suivre un peu...

J'ai fait une mini gestion de détection de doublon, au cas où....

Bonne découverte et bon courage...
Bien à toi, à vous
@+Thierry
 

Pièces jointes

  • XLD_Lahou02_Transpose_Tableau_To_Month_v00.xlsm
    23.1 KB · Affichages: 7

_Thierry

XLDnaute Barbatruc
Repose en paix
Re Bonjour, @Lahou02 , le Forum

C'est une démo, pour que ca ne s'éfface pas il faut envoyer des BitCoins !!!
ARF Meuh non, je déconne !!!

Pour que ca ne s'efface pas, il faut que tu neutralises cette ligne :
VB:
WSCible.Range("D7:O31").ClearContents

maintenant qu'on efface plus tu riques d'avoir tout le temps des messages de doublons, si tu n'en as pas l'utilité, tu peux aussi neutraliser cette ligne :
VB:
MsgBox "Sur " & CellCible.Offset & " il y a eu au moins un doublon, la somme a été cummulée !", vbInformation

Bien à toi, à vous
@+Thierry
 

Discussions similaires

Statistiques des forums

Discussions
311 711
Messages
2 081 794
Membres
101 817
dernier inscrit
carvajal