demande de formule svp

[vtt60]

je voudrai incerer quelques cellules bien defini par une macro qui copirait ces cellules juste sous la derniere cellule remplie d une colonne bien defini en esperant avoir ete suffisament claire

 

[andré]

Salut vvt60,

Tu trouveras un début de réponse ici :

http://www.technicland.com/malpolitus.swf

Â+

 

[Tibo]

Bonjour vtt60,

Pas bien sûr d'avoir compris ce que tu voulais.

A défaut, un lien qui te permettra sans doute d'obtenir plus facilement une réponse :

https://www.excel-downloads.com/help/charte/

Bon dimanche et

à bientôt

Edition : Salut André, j't'avais pas vu. Bon dimanche à toi.

Message édité par: tibo, à: 04/09/2005 10:42

 

[andré]

Salut Tibo,

Même longueur d'onde, même combat !

Je viens de voir tes deux messages (inverser les lettres et chiffres romains).
Tellement bien, que j'ai d'abord pris soin de les enregistrer, de peur qu'ils ne disparaissent !

C'est du beau travail, je m'incline.

Bon dimanche.
Â+

 

[Hervé]

Bonjour vtt, tibo, andré, le forum

Vtt, je suis pas sur d'avoir compris ta question, mais si tu veux trouver la premiere celllule vide d'une colonne en VBA, utilises ceci :

range('a65536').end(xlup).row + 1

ceci va te donner le numéro de la première ligne vide de la colonne A.

A ce numéro tu joins une lettre de colonne :

range('a' [color=#FF0000]&[/color]  range('a65536').end(xlup).row + 1)

Ainsi tu auras trouvé la cellule de la colonne A qui est vide.

Pour copier, tu as ce type de code :

Range('b1').Copy
Range('a' & Range('a65536').End(xlUp).Row + 1).Select
ActiveSheet.Paste

qui copie la cellule b1 sur la première cellule vide de la colonne A. ce code peut etre avantageusement remplacé par :

Range('a' & Range('a65536').End(xlUp).Row + 1)=Range('b1')

Voilà, je suis vraiment pas sur que ma réponse trouvera ton suffrage, mais eu regard de tes explications, j'ai pas trouvé mieux.

sinon joins-nous un classeur en expliquant précisément ton souci.

d'ailleurs accompagne ce classeur d'un bonjour toujours agréable à lire

salut

 

[vtt60]

je te remerci pour ta rapiditee de reponse et en plus cela fonctionne pile comme je l esperai merci encore et a plus