copier coller valeur

[jeremV]

Bonjour, je suis un peu perdu je voudrais à partir d'un checkbox faire plusieur action : copier coller une ligne et la mettre dans un autre document par onglet de mois, et ce fichier change chaque année lorsque je ferme le fichier mais je suis completement largué je sais pas ou commencer etant novice. cordialement. merci d'avance !!

 

[jeremV]

Re : copier coller valeur

j'ai quitté les autres forum car il été des imbecciles pour ne pas citer d'insulte, il était incompétant, m'aider même pas et d'ailleurs ça fait plus d'une semaine que j'ai quitté car je disais qu'il m'aidé mais pour finir c'est par moi meme que je reussisais 😉 , mais c vrai j'ai été prendre des infor sur d'autre question que j'ai ensuite mixé pour mon fichier :/ . voila j'ai modifié le fichier ^^. mais je peux te dire que les seules question que je demande son sur le forum maintenant car c'est le seule endroit où on a la signification d'aidé d'ailleurs 😉

 

[jeremV]

Re : copier coller valeur

vous avez recu mon fichier ? piece jointe svp

 

[Staple1600]

Re : copier coller valeur

Re

Oui j'ai bien vu ta nouvelle PJ.
(Merci d'avoir pris le temps de l’anonymisation 😉

Cependant, il me semble que tu as désormais toutes les infos pour adapter les codes de ta PJ et ceux présents dans ce fil pour obtenir le but recherché, non ?

 

[jeremV]

Re : copier coller valeur

bah le probleme c'est qu'il supprime la dernier ligne mais pas la ligne où l'on mets la checkbox 6 en coché :/ et comme c une checkbox différente dans chaque ligne :s:s:

 

[Staple1600]

Re : copier coller valeur

Re

bah le probleme c'est qu'il supprime la dernier ligne mais pas la ligne où l'on mets la checkbox 6 en coché :/ et comme c une checkbox différente dans chaque ligne :s:s:

Sauf erreur de ma part, je ne vois rien dans le code VBA de ta dernière pièce jointe qui supprime quoique ce soit.
notamment dans le code du bouton Valider ???

 

[jeremV]

Re : copier coller valeur

Justement si j'arrive deja a affectuer ce qu'il par rapport au bouton test à ma checkbox coché et qu'il fait son copie coller une fois le bouton valider cliquer de l'userform ça sera deja ça, apres il faudra juste que je lui dise tu supprime cette ligne 🙂

 

[jeremV]

Re : copier coller valeur

Fichier modifier 🙂 lorsque la checkbox6 valide il fait un copier coller sauf le probleme il prend la derniere et non celle ou l'on clique dans la ligne :/

 

[Staple1600]

Re : copier coller valeur

Re

Tout est déjà dans le fil comme je viens de le dire...

Il suffit d'adapter ici la manière de calcule Dlig
Dlig = wbSOURCE.Sheets(1).Cells(Rows.Count, "A").End(xlUp).Row
Set A_COPIER = wbSOURCE.Sheets("Tableau de Bord").Cells(Dlig, "A").Resize(, 7)
or dans le code du bouton Valider
on utilise ActiveCell
Donc on pourrait voir ce que donnerait l'emploi de ActiveCell.Row

Je le laisse mettre un peu les mains dans le cambouis et je repasse un peu plus tard pour voir si tu bloques toujours. 😉

 

[jeremV]

Re : copier coller valeur

Miracle sa fonctionne 🙂 mais pas la bonne ligne il me prend celle qui est juste au dessus 🙁

Dlig = wbSOURCE.Sheets(1).Cells(activecell.row, "A").End(xlUp).Row
Set A_COPIER = wbSOURCE.Sheets("Tableau de Bord").Cells(Dlig, "A").Resize(, 7)

 

[Staple1600]

Re : copier coller valeur

Re

...🙄
Dlig = wbSOURCE.Sheets(1).Activecell.Row

 

[jeremV]

Re : copier coller valeur

erreur debogage :/ je crois qu'il doit manquer une parti du programme car j'ai fait un copie coller de ce que tu viens de me donner et il veut pu ^^

 

[jeremV]

Re : copier coller valeur

j'ai mixé avec x1up.row + 1 mais sans succès :/

 

[Staple1600]

Re : copier coller valeur

Re

J'ose espérer que tu avais garder cette ligne
Set A_COPIER = wbSOURCE.Sheets("Tableau de Bord").Cells(Dlig, "A").Resize(, 7)

Le tout n'est pas de faire des copier/coller, il faut prendre aussi le temps de comprendre le fonctionnement du code, sinon ton fil risque de devenir une pelote 😉

 

[jeremV]

Re : copier coller valeur

Dlig = wbSOURCE.Sheets(1).ActiveCell.Row
Set A_COPIER = wbSOURCE.Sheets("Tableau de Bord").Cells(Dlig, "A").Resize(, 7)

Justement j'ai laissé :s:s

 

[Staple1600]

Re : copier coller valeur

Re

Peux-tu mettre le code VBA actuel du CommandButton [Valider] ?
Je devrais y voir plus clair.