Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

copier une cellule et la coller décaler a droite

noon

XLDnaute Junior
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
 

Pièces jointes

  • Classeur1.xlsm
    16.4 KB · Affichages: 60
  • Classeur1.xlsm
    16.4 KB · Affichages: 57
  • Classeur1.xlsm
    16.4 KB · Affichages: 61

anthony999c

XLDnaute Nouveau
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.
 

anthony999c

XLDnaute Nouveau
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

XLDnaute Barbatruc
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

XLDnaute Nouveau
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

XLDnaute Junior
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

XLDnaute Barbatruc
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
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…