retour ancienne cellule active

chris

XLDnaute Barbatruc

• 13 Janvier 2015

• #2

Re : retour ancienne cellule active

Bonjour

Utilise cette syntaxe : cela évitera de quitter la cellule Sub Copie_ligne_de_donnée()

Code:

    Sheets("Planning").Select
     ActiveCell.Resize(1, 12).Copy Destination:=Range("A31")
End Sub

 

Vote positif 0 Vote négatif

P

pralo

XLDnaute Junior

• 22 Janvier 2015

• #3

Re : retour ancienne cellule active

bonsoir chris
je n'est pas pu répondre avant, désolé
mais ton code fonctionne a merveille
merci pour ton aide
je vais continuer "d'essayer" d'intégrer d'autre macro mais j'ai peur du résultat
je verrai bien
merci

 

Vote positif 0 Vote négatif

P

pralo

XLDnaute Junior

• 22 Janvier 2015

• #4

Re : retour ancienne cellule active

bonsoir a tous
j'ai un petit souci de syntaxe
j'ai crée un autre bouton pour coller la ligne 31 dans n'importe qu'elle cellule de la colonne a
mais je ne trouve la syntaxe pour coller dans la cellule active
merci du coup de main

Sub coller_ligne_de_donnée()
Sheets("Planning").Select
Range("A31113:L31113").Copy Destination:=Range("?????")


End Sub

 

Pièces jointes

• retour-ancienne-cellule-active-classeur1.xlsm

  21.6 KB · Affichages: 23
• retour-ancienne-cellule-active-classeur1.xlsm

  21.6 KB · Affichages: 22
• retour-ancienne-cellule-active-classeur1.xlsm

  21.6 KB · Affichages: 26

Vote positif 0 Vote négatif

laurent950

XLDnaute Barbatruc

• 22 Janvier 2015

• #5

Re : retour ancienne cellule active

Bonsoir
End Sub

VB:

Sub coller_ligne_de_donnée()
Sheets("Planning").Select
' Range("A31113:L31113") = Copie ligne N° 31 113 colonne A à colonne L
' Destination:=Range("A31:L31") = Copie ligne N° 31 colonne A à colonne L
'Range("A31113:L31113").Copy Destination:=Range("A31:L31")
' la cellule active
Range("A31:L31").Copy Destination:=Cells(ActiveCell.Row, ActiveCell.Column)
end sub

laurent

 

Dernière édition: 23 Janvier 2015

Vote positif 0 Vote négatif

P

pralo

XLDnaute Junior

• 22 Janvier 2015

• #6

Re : retour ancienne cellule active

bonsoir Laurent
je fait une "boulette" dans mes explications et ma macro

avec le bouton "COLLER", je voudrais copier la ligne de A31 à L31
et la coller la ou se trouve la cellule active sur laquelle je suis

Range("A31:L31").Copy Destination:=Range("activecell")

j'espère que mes explications ne sont pas trop tordu
merci pour ton aide

 

Pièces jointes

• retour-ancienne-cellule-active-classeur1.xlsm

  21.6 KB · Affichages: 23
• retour-ancienne-cellule-active-classeur1.xlsm

  21.6 KB · Affichages: 23
• retour-ancienne-cellule-active-classeur1.xlsm

  21.6 KB · Affichages: 26

Vote positif 0 Vote négatif

laurent950

XLDnaute Barbatruc

• 23 Janvier 2015

• #7

Re : retour ancienne cellule active

Poste #5 corrigé

Range("A31:L31").Copy Destination:=Cells(ActiveCell.Row, ActiveCell.Column)

 

Vote positif 0 Vote négatif

P

pralo

XLDnaute Junior

• 23 Janvier 2015

• #8

Re : retour ancienne cellule active

bonjour laurent
merci
ca marche impeccable

 

Vote positif 0 Vote négatif