copier une cellule et la coller décaler a droite

A

anthony999c

XLDnaute Nouveau

• 11 Février 2013

• #2

Re : copier une cellule et la coller décaler a droite

Voici ta réponse :

Code:

Sub decale()
dim LastRow as String
Sheets("Feuil3").Select
    Range("b1").Select
    Selection.Copy
    Sheets("feuil1").Select
    LastRow = Range("A" & Rows.Count).End(xlUp).Row + 1
    Feuil1.Range("B" & LastRow).Select
    ActiveSheet.Paste
End Sub

Voilà, avec ca normalement ça marche, chez moi en tout cas oui.

 

Vote positif 0 Vote négatif

A

anthony999c

XLDnaute Nouveau

• 11 Février 2013

• #3

Re : copier une cellule et la coller décaler a droite

Et pour explication, tu va enregistrer dans la variable LastRow le numéro de la dernière ligne non vide et lui rajouter 1 pour être en dessous. Et tu lui dit ensuite que tu veux coller en "B" & LastRow (ta variable contenant le numéro de ta ligne voulue).

Voilà. En espérant être clair dans mes explications. Si ce n'est pas la cas n'hésite pas à demander.

 

Vote positif 0 Vote négatif

Dull

XLDnaute Barbatruc

• 11 Février 2013

• #4

Re : copier une cellule et la coller décaler a droite

Salut noon, le Forum

Select est souvent inutile et ralentit le traitement.
A tester

Sub decale()
Feuil3.Range("B1").Copy Destination:=Feuil1.Range("B" & Feuil1.Range("B65536").End(xlUp).Row + 1)
End Sub

Cliquez pour agrandir...

EDITION: Salut anthony999c
Bonne Journée

 

Vote positif 0 Vote négatif

A

anthony999c

XLDnaute Nouveau

• 11 Février 2013

• #5

Re : copier une cellule et la coller décaler a droite

Oui bien plus simple effectivement.... Je sors

 

Vote positif 0 Vote négatif

Dull

XLDnaute Barbatruc

• 11 Février 2013

• #6

Re : copier une cellule et la coller décaler a droite

Re le Fil

Non non Anthony ne sort pas bien au contraire c'est en répondant qu'on devient Barbatruc . Plus sérieusement si à mon 4ème post j'avais pondu un tel code j'aurais été très fier.

Bonne Journée

 

Vote positif 0 Vote négatif

A

anthony999c

XLDnaute Nouveau

• 11 Février 2013

• #7

Re : copier une cellule et la coller décaler a droite

Je déconne, mais ouai c'est pour m'enrichir que je suis ici tout en aidant. Ca fait un moment que je code (autodidacte comme beaucoup de personne).

Merci encore et bonne journée.

 

Vote positif 0 Vote négatif

N

noon

XLDnaute Junior

• 11 Février 2013

• #8

Re : copier une cellule et la coller décaler a droite

bonsoir anthony
bonsoir dull
merci de vos réponses
en fait répondre j'ai pris celle a anthony qui marche très bien
car la tienne ne fonctionne pas pareil peut être que je m'y prends mal !
mais l'important c'est que ça fonctionne et ça fonctionne a merveilles
donc un grand merci a tous les deux

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 11 Février 2013

• #9

Re : copier une cellule et la coller décaler a droite

Bonsoir à tous

Histoire de croiser de veilles connaissances citriques
Une autre façon de copier sans... copier

Code:

Sub a()
Feuil1.Range("A" & Feuil1.Rows.Count).End(xlUp)(1, 2) = Feuil3.[B3]
End Sub

PS: Si besoin mettre un 2 à la place du 1 ici End(xlUp)(2, 2) pour décaler d'une ligne

 

Vote positif 0 Vote négatif

N

noon

XLDnaute Junior

• 12 Février 2013

• #10

Re : copier une cellule et la coller décaler a droite

bonjour staple
ha la la que ferais-je sans toi
merci

 

Vote positif 0 Vote négatif