Placé le cusseur après la dernière cellule pleine

[excelman]

Salut à tous.

Je suis restaurateur à amiens et ma caisse enregistreuse vient de planter. Ca va prendre du temps pour la réparer. Je me suis donc fait un petit fichier sur excel qui reprend les fonctionnalité de séléction de table avec des boutons etc... (enfin pour ceux qui veulent voir je joints le fichier).
Mon problème est le suivant :

Quand une table est finie je veux la copier via une macro dans une autre feuille. (ca je sais faire).
Mais quand un deuxième table est finie je souhaite la copier dans la meme feuille mais juste en dessous de la première afin qu'elle ne se superpose pas pour pouvoir faire ma caisse en fin de journée.
Auriez vous une idée???
Merci d'avance

 

[pierrejean]

Re : Placé le cusseur après la dernière cellule pleine

bonjour excelman

vois si cela te convient

modif:

Sub Macro1()
Range("a15").Select
    ActiveCell.FormulaR1C1 = "Fin de table"
    Range("A2:E15").Select
    Selection.Copy
    Sheets("le 9 juin 2007").Select
   [COLOR=red]Range("A65536").End(xlUp).Offset(1, 0).Select
[/COLOR]   ActiveSheet.Paste
    Sheets("secteur 1").Select
    Range("A5:B12,D3,a15").Select
    Range("D3").Activate
    Selection.ClearContents
    Sheets("feuil5").Select
 
End Sub

 

[excelman]

Re : Placé le cusseur après la dernière cellule pleine

sUPER PIERREJEAN

Si je souhaite décaler le tout d'une ou deux cellules vers le bas je dois utiliser quelle formule

merci a toi
cordialement

 

[excelman]

Re : Placé le cusseur après la dernière cellule pleine

ok j'ai trouvé
merci

 

[excelman]

Re : Placé le cusseur après la dernière cellule pleine

par contre je ne sais pas si tu as un peu regardé le fichier mais j'ai mis des boutons choix sur la table2 de la feuille secteur 1. Quand je lance la copie il me copie aussi les boutons et ne veux pas que cela se fasse ainsi mais juste les formule et l'encadrement ?

 

[excelman]

Re : Placé le cusseur après la dernière cellule pleine

une dernière chose :

Il n'y aurait pas un moyen plus simple d'utiliser les boutons choix ?
Style liste de choix à chaque ligne ou quelquechose dans le genre ?

 

[pierrejean]

Re : Placé le cusseur après la dernière cellule pleine

bonsoir excelman

rendez vous lundi dans la journée

ce soir je ferme et demain est reservé pour la famille

 

[excelman]

Re : Placé le cusseur après la dernière cellule pleine

ok bonne soirée
Merci

 

[excelman]

Re : Placé le cusseur après la dernière cellule pleine

Bonsoir,

Je voulais te remercier Pierre Jean car ca marche nickel..

Merci encore et bonne soirée

Cordialement

Thierry

 

[pierrejean]

Re : Placé le cusseur après la dernière cellule pleine

bonjour Thierry

j'ais été plus pris que prévu

vois ma proposition

Elle demande a etre paufinée mais je crois avoir fait l'essentiel

va en feuille Secteur 1 et teste (si le bouton quand fin cliquer n'est pas present appeler la macro1)

en cas de probleme n'hesite pas a revenir

http://cjoint.com/?gnpU5hUfiD

ps: j'ais essayé en vain de passer sous 48k
il y a donc eu degraissage
n'ecrase surtout pas l'original

 

[excelman]

Re : Placé le cusseur après la dernière cellule pleine

Bonjour PierreJean

J'ai bien recu ton fichier et ca marche pas mal.
Je vais essayer d'étudier le code afin de le paufiner pour qu'il marche
comme je le voudrais...
Je te tiens au courant
Merci d'avoir pris du temps pour ça
Cordialement
Thierry