selection d'une feuille

[al1000]

Bonjour,

1) j'ai un classeur avec 2 onglet 1 nommé aa et le 2eme nommé bb
2)Je voudrais recopier une cellule que je choisis soit dans l'onglet aa ou bb
3) et recopier cette cellule en bas de la liste , mais sur le meme onglet
C'est a dire que si je selectionne la cellule a1 de l'ongler aa; elle recopie la cellule a1 en bas de la liste de l'ongler aa

voisi le debut de la macro:

a$ = ActiveSheet.Name

If a$ = "aa" Then
Sheets("aa").Range("b6").End(xlDown).Offset(1, 0)

Selection.Copy Destination:=Sheets("aa").Range("a6995").End(xlUp).Offset(1, 0)

Selection.ClearContents



merci de votre aide

 

[Gorfael]

Re : selection d'une feuille

Bonjour,

1) j'ai un classeur avec 2 onglet 1 nommé aa et le 2eme nommé bb
2)Je voudrais recopier une cellule que je choisis soit dans l'onglet aa ou bb
3) et recopier cette cellule en bas de la liste , mais sur le meme onglet
C'est a dire que si je selectionne la cellule a1 de l'ongler aa; elle recopie la cellule a1 en bas de la liste de l'ongler aa

voisi le debut de la macro:

a$ = ActiveSheet.Name

If a$ = "aa" Then
Sheets("aa").Range("b6").End(xlDown).Offset(1, 0)

Selection.Copy Destination:=Sheets("aa").Range("a6995").End(xlUp).Offset(1, 0)

Selection.ClearContents



merci de votre aide

Salut
T'aime te faire de noeuds avec les boyaux de la tête ? 🙂

quand tu fais une macro, l'instruction Range, si tu ne précises pas nommement la feuille où elle s'applique, elle s'applique à la feuille par défaut, qui est Activesheet.
donc si tu es sur la feuille aa et que tu veux copier sur la feuille aa,
ou si tu es sur la feuille bb et que tu veux copier sur la feuille bb

Selection.Copy Destination:=Range("a6995").End(xlUp).Offset(1,0)
Selection.ClearContents
ça suffit
ou
Selection.Copy Destination:=Activesheet.Range("a6995").End(xlUp).Offset(1,0)
Selection.ClearContents
mais bof, autant ne pas mettre activesheet

A+

 

[al1000]

Re : selection d'une feuille

bonjour
mais je voulais qu'il ai 1 seule macro pour la feuille aa et la feuille bb

avez vous une idee

a+

 

[Gorfael]

Re : selection d'une feuille

bonjour
mais je voulais qu'il ai 1 seule macro pour la feuille aa et la feuille bb

avez vous une idee

a+

Re...
Je me suis mal expliqué :

tu crées un module dans VBA et tu y colles cette macro

Sub Test()
Selection.Copy Destination:=Range("a6995").End(xlUp).Offset(1,0)
Selection.ClearContents
end sub
[/b]

tu vas sur ta feuille aa, tu sélectionnes une cellule non vide de la colonne A et tu lances la macro
Elle copiera ta cellule en dernière ligne de la colonne A de la feuille aa et l'effacera
c'est ce que tu demandais

ensuite tu vas sur ta feuille bb
tu sélectionnes une cellule de la colonne A et tu lances la macro
Elle copiera ta cellule en dernière ligne de la colonne A de la feuille bb et l'effacera

c'est ce que tu demandais. On peut rajouter du code, faire des manips sans interet pour dire que c'était dur et qu'on s'est échiné pour faire le code, mais ça sert pas à grand chose 🙂

Mais si tu as un besoin différent, comme comprendre comment tester une feuille ou autre, on peut trouver une solution :faire un code qui copie de aa vers bb et inversement :

On a que 2 feuilles aa et bb

Sub Test_1()
if activesheet.name="aa" then
Selection.Copy Destination:=sheets("bb").Range("a6995").End(xlUp).Offset(1,0)
Selection.ClearContents
else
Selection.Copy Destination:=sheets("aa").Range("a6995").End(xlUp).Offset(1,0)
Selection.ClearContents
end sub

et si tu veux plus, tu expliques ton besoin, et on t'aide

A+

 

[al1000]

Re : selection d'une feuille

bonsoir

genial

merci