macro copier coller derniere cellul

[lmylvc]

Hello les amis

Je suis pas fort en macro spécifique mais ai besoin d'en composer
une qui est capable de
1) Copier la cellule H2
2) Rechercher de la première cellule vide de la colonne E
3)Decaler la sélection de 3 cellules vers la droite
4)Coller la copie de H2 de cette cellule jusqu'à la cellule H3
5) Vous remercier, car sans vous rien ne serait possible😀😀😀

Merci d'avance

Vincent

 

[mth]

Re : macro copier coller derniere cellul

Bonsoir,

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

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

 

[Softmama]

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 :

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

 

[lmylvc]

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
😀😀😀

 

[lmylvc]

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😉😉😉

 

[mth]

Re : macro copier coller derniere cellul

re 🙂

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

première cellule vide

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

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

 

[Staple1600]

Re : macro copier coller derniere cellul

Bonjour à tous


Si j'ai bien compris

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

PS: Mon Canard, mes hommages 😉

 

[lmylvc]

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😀😀😀

 

[Staple1600]

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.

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

tu peux aussi aller voir là.

Bonnes lectures, apprentissages et essais.

EDITION: bonjour James007

 

[James007]

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 ... !!!

 

[lmylvc]

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😕😀

 

[Staple1600]

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

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 !!!

 

[lmylvc]

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😀😀😀