XL 2016 copier coller avec condition

_Thierry

XLDnaute Barbatruc

Repose en paix

• 23 Mai 2020

• #2

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

Vote positif 0 Vote négatif

L

Lahou02

XLDnaute Nouveau

• 23 Mai 2020

• #3

très bien fait Thierry , mais lorsque je change le mois les valeurs ne s'enregistrer pas dans le mois précédent ..je souhaite que les valeurs reste enregistrer dans le tableau lorsque je change le mois.


merci d'avance

 

Vote positif 0 Vote négatif

_Thierry

XLDnaute Barbatruc

Repose en paix

• 23 Mai 2020

• #4

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

 

Vote positif 0 Vote négatif

L

Lahou02

XLDnaute Nouveau

• 23 Mai 2020

• #5

haha franchement u m'as sauvé , j'ai pas de mots pour te remercier
ça fonctionne parfaitement , mais je reçois des messages pour les doublant car cela ne me dérange pas d'avoir des doublant

Bitcoinnement

 

Vote positif 0 Vote négatif

L

Lahou02

XLDnaute Nouveau

• 23 Mai 2020

• #6

c'est bon ça marche parfaitement 😉

 

Vote positif 0 Vote négatif