COPIER COLLER EN VBA.........!!

[Caninge]

Bonjour à tous forumeurs et forumeuses

Ca y'est je me lance dans le VBA (petit petit)

Je réalise un tableau en faisant des copier - coller en vba
Quelques problèmes m'entravent.

1) Comment ne pas effacer les cellules A4 et D4 pour commencer sur la ligne 5 (Offset 4,0) à changer

2)Comment éviter les trous dans les lignes entre chaque macro.

3) Peut-être alléger la macro ou bien simplifier. A voir

je vous remercie:


CANINGE


:ermm: [file name=CopierCollerEnVBA.zip size=15601]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/CopierCollerEnVBA.zip[/file]

 

[ChTi160]

Salut Caninge

pour ce qui est de tes trous dans la liste il faut mettre OffSet(1,0)
ce qui te Selectionnera la ligne sous la derniere ligne non vide

Range('A65536').End(Xlup).Offset(1,0).Select
si A4 est non vide
te Selectionne la cellule A5
je tenterai demain de regarder ce que je peux faire sur ton fichier

bonne fin de Soirée

 

[Caninge]

Oui bonjour

Merci de m'avoir répondu.

Je comprends qu'il fait mettre offset(1,0)

Mais la 1ère macro doit démarrer à la ligne 5 sinon pour les autres c'est Ok

Merci

CANINGE

 

[porcinet82]

salut,

Je te propose pas la solution a ton probleme mais plutot un moyen de le contourner, je pense qu'il possible de forcer l'utilisateur a cliquer par exemple en premier sur le bouton MONTBEUGNY THIEL, a condition qu'il s'agisse de CommandButton1.

regarde le fichier joint et dis moi si cela te convient.

[file name=CopierCollerEnVBA_V2.zip size=22781]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/CopierCollerEnVBA_V2.zip[/file]

@+

 

[Caninge]

Bonjour Porcinet82

Je vais regarder ta solution.

Si tu veux bien, laisse moi un peu de temps
pour regarder le fichier joint.
ensuite je te tiendrai au courant.





Merci

 

[Caninge]

Bonjour Porcinet82

Me revoilà. j'ai donc regardé ta solution et je crois comprendre.
enfin un peu. je pense que je vais pouvoir me débrouiller avec ça.

je te remercie

Amitiés !!!!!!!!!!!

CANINGE