macro copier coller derniere cellul

mth

XLDnaute Barbatruc

• 20 Novembre 2010

• #2

Re : macro copier coller derniere cellul

Bonsoir,

Peut-être quelque chose comme ça ? (pas sûre d'avoir compris ce que tu voulais):

Code:

Sub Macro1()
With Sheets("Feuil1")
    .Range("H2").Copy Range("H3:H" & Cells(Rows.Count, 5).End(xlUp).Offset(1, 0).Row)
End With
End Sub

Vois si cela peut t'aider malgré tout,

Bien à toi,

mth

 

Vote positif 0 Vote négatif

S

Softmama

XLDnaute Accro

• 20 Novembre 2010

• #3

Re : macro copier coller derniere cellul

Bonsoir lmylvc et mth,

Pour ce que j'ai compris de mon côté, je ferais un truc dans ce genre :

Code:

Sub Macro
With Sheets("Feuil1")
    .Range("H2").Copy Range("H3:H" & Range("E2:E65536").SpecialCells(xlcelltypeBlanks).cells(1).Row)
End With
End Sub

 

Vote positif 0 Vote négatif

L

lmylvc

XLDnaute Occasionnel

• 20 Novembre 2010

• #4

Re : macro copier coller derniere cellul

😉Hello mth

Cela fonctionne et je t'en remercie

Toutefois, la macro colle également la cellule H2 dans la dernière cellule +1
et cela me pose pb pour une formule d'analyse de données
Peux-tu rectifier légèrement cette macro pourtant tellement mieux
construite que ce que je n'ai su et pu faire jusqu'à présent ?

Merciiii

Vincent, Qui va aller au dodo car mort de fatigue

Bonne nuit à tous
😀😀😀

 

Vote positif 0 Vote négatif

L

lmylvc

XLDnaute Occasionnel

• 20 Novembre 2010

• #5

Re : macro copier coller derniere cellul

Hello Softmama

Même avantage et inconvéniant que la proposition de mth
la macro colle également la cellule H2 dans la dernière cellule vide +1
si tu peux la rectifier alors forcément
ça devrait mieux fonctionner

Merciiiiii

Vincent😉😉😉

 

Vote positif 0 Vote négatif

mth

XLDnaute Barbatruc

• 20 Novembre 2010

• #6

Re : macro copier coller derniere cellul

re 🙂

Les codes présentés répondent à cette partie de ta question :

première cellule vide

Cliquez pour agrandir...

Maintenant, si tu veux remonter d'un cran, plus besoin du offset, ce qui devient si j'ai bien compris:

Code:

Sub Macro1()
With Sheets("Feuil1")
    .Range("H2").Copy Range("H3:H" & Cells(Rows.Count, 5).End(xlUp).Row)
End With
End Sub

Bonne nuit 🙂

mth

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 20 Novembre 2010

• #7

Re : macro copier coller derniere cellul

Bonjour à tous


Si j'ai bien compris

Code:

Range("H3:H" & [E65536].End(xlUp).Row)=[H2]

PS: Mon Canard, mes hommages 😉

 

Vote positif 0 Vote négatif

L

lmylvc

XLDnaute Occasionnel

• 20 Novembre 2010

• #8

Re : macro copier coller derniere cellul

Hello mth Softmama & Staple1600

L'ensemble des propositions fonctionnent parfaitement
aussi je tenais à vous remercier chalereusement car grâce
à des personnes aussi volontaires, je m'affute de plus
en plus et j'y gagne en efficacité.

Je suis également à la recherche d'un livre et d'un site internet
qui explique bien comment réaliser ou qui propose des macros spécifiques
couramment utilisées par les développeurs.

Aussi si vous en connaissez, un ou plusieurs je suis preneur

A+ sur ce forum, bonne journée et encore merci

Vincent😀😀😀

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 20 Novembre 2010

• #9

Re : macro copier coller derniere cellul

Re

Je suis également à la recherche d'un livre et d'un site internet
qui explique bien comment réaliser ou qui propose des macros spécifiques
couramment utilisées par les développeurs.

Cliquez pour agrandir...

Ici c'est déjà un bon début non ?

tu peux aussi aller voir là.

Bonnes lectures, apprentissages et essais.

EDITION: bonjour James007

 

Dernière édition: 20 Novembre 2010

Vote positif 0 Vote négatif

James007

XLDnaute Barbatruc

• 20 Novembre 2010

• #10

Re : macro copier coller derniere cellul

Bonjour,

A mon avis, rien ne peut remplacer la pratique ... résoudre des cas concrets ... et naviguer le plus possible sur le Forum : une source inépuisable de connaissances ... !!!

 

Vote positif 0 Vote négatif

L

lmylvc

XLDnaute Occasionnel

• 20 Novembre 2010

• #11

Re : macro copier coller derniere cellul

Hello James & staple1600

Ok, je vais suivre vos remmandations, car je suis convaincu.
Toutefois quand on ne comprend rien au code vba comment
peux-t-on faire pour trouver des codes bien expliqué ?
Car les liens proposés ne me donnent pas suffisament
d'indications pour un petit gars come moi.


Vincent😕😀

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 20 Novembre 2010

• #12

Re : macro copier coller derniere cellul

Re

Pour mieux comprendre, il faut la caresser hardiment ...Quoi ça ?
Elle bien sur... (au préalable dans Excel, faire ALT+F11 )

Car les liens proposés ne me donnent pas suffisament

Cliquez pour agrandir...

Tu n'as pas eu matériellement le temps de tout compulser
Il y pourtant de quoi faire non ?
Dans ce lien (précédemment donné*)

*
​

Excel Downloads - VBA Il y a 4 pages !! et 38 fichiers exemples à tester !!!

 

Pièces jointes

• kf1.jpg

  1 KB · Affichages: 122
• kf1.jpg

  1 KB · Affichages: 118

Dernière édition: 20 Novembre 2010

Vote positif 0 Vote négatif

L

lmylvc

XLDnaute Occasionnel

• 20 Novembre 2010

• #13

Re : macro copier coller derniere cellule résolu

Oups, je n'avais pas bien regardé.
en effet, il y a de quoi faire avec ce lien et les leçons proposées
pourtant précédemment je n'avais pas vu ce point
et m'étais focalisé sur les fichiers exemples du dessous

Les leçons proposées vont être épluchées.

Merci d'avoir souligné ces points
Je m'y attèle dès que possible ce jour

Bye et bonne journée

A+

Vincent😀😀😀

 

Vote positif 0 Vote négatif