couper coller sur une autre feuille

youky(BJ)

XLDnaute Barbatruc

• 5 Juillet 2012

• #2

Re : couper coller sur une autre feuille

Bonsoir dubdub,
Je suis surpris que personne ne t'ai répondu.
Mieux vaut tard que jamais donc voici une macro
Bruno

Code:

Sub copie()
With Sheets("Feuil1")
col = .[A16000].End(xlToLeft).Column + 1
.Range(.Cells(1, col), .Cells(11, col + 1)).Value = [B1:C11].Value
End With
[B2:C11].ClearContents
End Sub

En prime ton fichier avec la macro incorporée (à verifier le vrai nom "Feuil1")

 

Pièces jointes

• Classeur1.xlsm

  17.4 KB · Affichages: 36
• Classeur1.xlsm

  17.4 KB · Affichages: 47
• Classeur1.xlsm

  17.4 KB · Affichages: 48

Vote positif 0 Vote négatif

G

Guest

Guest

• 17 Juillet 2012

• #3

Re : couper coller sur une autre feuille

bonjour Youki,
vieux motard que j'aimais,
pour le collage il faudrait que cela mette les dates à la suite des autres dans la feuil1 mais que cela ne les effacent pas !
sur le tableau de la feuil1 j'ai mis date 1 date 2 mais en fait cela peut aller jusqu'à date 30 ou plus
merci
(j'ai une autre discusion qui n'a pas trouvé de réponse mais chaque chose en son temps.)
voir fichier joint
la date en rouge dans la feuil2 doit se coller dans la feuil1 à la suite et la date doit s'efface de la feuil2

 

Pièces jointes

• Classeur1.xlsm

  16.9 KB · Affichages: 69
• Classeur1.xlsm

  16.9 KB · Affichages: 61
• Classeur1.xlsm

  16.9 KB · Affichages: 61

Dernière modification par un modérateur: 17 Juillet 2012

Vote positif 0 Vote négatif

youky(BJ)

XLDnaute Barbatruc

• 18 Juillet 2012

• #4

Re : couper coller sur une autre feuille

Re,
Voici de nouveau ton fichier, pour plus de facilité j'ai renommé Feuil1 en Feuil2 et vis versa.
Bruno

 

Pièces jointes

• Classeur10.xls

  44.5 KB · Affichages: 45
• Classeur10.xls

  44.5 KB · Affichages: 54
• Classeur10.xls

  44.5 KB · Affichages: 56

Vote positif 0 Vote négatif

G

Guest

Guest

• 18 Juillet 2012

• #5

Re : couper coller sur une autre feuille

bonjour Bruno et merci de te soucier de mon problème
problème cela efface la date mais cela ne l'enregistre pas dans la feuil2
Jean-marc

 

Vote positif 0 Vote négatif

youky(BJ)

XLDnaute Barbatruc

• 18 Juillet 2012

• #6

Re : couper coller sur une autre feuille

Grosse boulette de ma part.
J'effacais les données au début alors oups!
Voici rectifié.
Bruno

 

Pièces jointes

• Classeur10.xls

  44.5 KB · Affichages: 59
• Classeur10.xls

  44.5 KB · Affichages: 60
• Classeur10.xls

  44.5 KB · Affichages: 61

Vote positif 0 Vote négatif

G

Guest

Guest

• 18 Juillet 2012

• #7

Re : couper coller sur une autre feuille

Merci Bruno
Il n'y a que ceux qui ne font rien qui ne se trompent pas !
c'est parfait

 

Vote positif 0 Vote négatif

G

Guest

Guest

• 18 Juillet 2012

• #8

Re : couper coller sur une autre feuille

Bruno
si je peux me permettre
si je veux coller uniquement le contenu de la 3eme colonne que faut-il changer ?
cdt

 

Vote positif 0 Vote négatif

youky(BJ)

XLDnaute Barbatruc

• 20 Juillet 2012

• #9

Re : couper coller sur une autre feuille

Salut,
Désolé du retard j'étais en camping pour garder mes petits enfants.
Voici la modif.
Je sais pas si cela réponds bien à ta demande mais je fais avec le peu d'explications que tu donnes.
Bruno

Code:

Sub copie()
Feuil1.Select
Ncol = Application.Columns.Count
For lig = 2 To [A65000].End(3).Row ' boucle jusqu'a Next
 col = Cells(lig, Ncol).End(xlToLeft).Column
  If col > 1 Then
   Dcol = Feuil2.Cells(lig, Ncol).End(xlToLeft).Column + 1
   Cells(lig, 3).Copy
   Feuil2.Cells(lig, Dcol).PasteSpecial
  End If
Next
Range("B2:AZ1000").ClearContents 'efface
End Sub

 

Vote positif 0 Vote négatif

G

Guest

Guest

• 23 Juillet 2012

• #10

Re : couper coller sur une autre feuille

bonjour Bruno,
c'est parfait
j'ai vu ce qu'il fallait changer
et si je veux copier le contenu de la deuxième et troisième colonne?
est-ce que
Range(cells(lig, 2), cells(lig, 3)).copy
est valable ?
merci

 

Vote positif 0 Vote négatif

youky(BJ)

XLDnaute Barbatruc

• 24 Juillet 2012

• #11

Re : couper coller sur une autre feuille

Oui c'est bon>>> Range(cells(lig, 2), cells(lig, 3)).copy
ou encore
Range("B" & lig & ":C" & lig).copy
C'est toi qui choisit et n'hésite pas à faire des essais
Bruno

 

Vote positif 0 Vote négatif

G

Guest

Guest

• 24 Juillet 2012

• #12

Re : couper coller sur une autre feuille

parfait merci pour la 2ème solution
pour une cellule spécifique
range("n° de cellule").copy ?
jean-marc

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 24 Juillet 2012

• #13

Re : couper coller sur une autre feuille

Bonjour Bruno, dubdub,

Une petite variante de cette macro.

Code:

Sub copie()
Dim w As Worksheet
Set w = Feuil1
Ncol = Application.Columns.Count
For lig = 2 To [A65000].End(3).Row ' boucle jusqu'a Next
 col = Cells(lig, Ncol).End(xlToLeft).Column
  If col > 1 Then
   Dcol = Feuil2.Cells(lig, Ncol).End(xlToLeft).Column + 1
   Range(Cells(lig, 2), Cells(lig, col)).Copy Feuil2.Cells(lig, Dcol)
  End If
Next
Range("B2:AZ1000").ClearContents 'efface
End Sub

J'ai enlevé le select et PasteSpecial.


A+ 😎

 

Vote positif 0 Vote négatif

G

Guest

Guest

• 25 Juillet 2012

• #14

Re : couper coller sur une autre feuille

bonjour Lone Wolf
cette macro est pour la colonne 2 ?
merci

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 25 Juillet 2012

• #15

Re : couper coller sur une autre feuille

Bonsoir dubdub, Bruno

Oui dubdub, lig sont les ranges , 2 à xx pour les colonnes.


A+ 😎

 

Vote positif 0 Vote négatif