copier une cellule et la coller décaler a droite

[noon]

bonjour a tous

voilà mon souci
je veux copier une cellule en feuille 3
et la coller en dernière ligne de ma feuil 1 mais décaler a droite en gros au lieu de "A6" La coller" B6"

je vous joint mon fichier

merci

 

[anthony999c]

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

Voici ta réponse :

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.

 

[anthony999c]

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.

 

[Dull]

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

EDITION: Salut anthony999c
Bonne Journée

 

[anthony999c]

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

Oui bien plus simple effectivement.... Je sors

 

[Dull]

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

 

[anthony999c]

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.

 

[noon]

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

 

[Staple1600]

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

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

 

[noon]

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

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