collage spécial aprés un boucle

skoobi

XLDnaute Barbatruc

• 19 Juillet 2008

• #2

Re : collage spécial aprés un boucle

Bonjour,

Sans passer par une copie de cellule, voici un exemple: valeur de A1 feuille 1 mise après la dernière cellule de la colonne A feuille 2:

Code:

Set sh1 = Sheets("Feuil1")
Set sh2 = Sheets("Feuil2")
sh2.Range("A65536").End(xlUp).Offset(1, 0).Value = sh1.Range("A1").Value

 

Vote positif 0 Vote négatif

O

oléanor

Guest

• 20 Juillet 2008

• #3

Re : collage spécial aprés un boucle

bonjour et merci de m'aider

pourrais tu m'expliquer le code que tu me présente

set sh1 c'est quoi

et ou est ce que je l'intégre dans mon code???

Sheets("validation").Select
Range("C7:F7").Select
Selection.Copy
Sheets("Base de donnée").Select
Range("A2").Select
Do Until IsEmpty(activecell)
activecell.Offset(1, 0).Select
Loop

ActiveSheet.Paste

merci

 

Vote positif 0 Vote négatif

skoobi

XLDnaute Barbatruc

• 20 Juillet 2008

• #4

Re : collage spécial aprés un boucle

Bonjour,

set sh1 c'est quoi

Cliquez pour agrandir...

Cela permet d'affecter un "objet" ici une feuille à une variable (sans oublier "Set" devant).
Par la suite, tu n'as ainsi plus besoin d'écrire

Code:

sheets("Feuil1")

.

et ou est ce que je l'intégre dans mon code???

Cliquez pour agrandir...

Remplace ton code par celui-ci:

Code:

Set sh1 = Sheets("validation")
Set sh2 = Sheets("Base de donnée")
sh2.Range("A2").End(xlDown).Offset(1, 0).Resize(1, 4).Value = sh1.Range("C7:F7").Value

ou celui-ci (moins lisible):

Code:

Sheets("Base de donnée").Range("A2").End(xlDown).Offset(1, 0).Resize(1, 4).Value = Sheets("validation").Range("C7:F7").Value

Code:

Range("A2").End(xlDown).Offset(1, 0)

fait la même chose que:

Code:

Do Until IsEmpty(activecell)
activecell.Offset(1, 0).Select
Loop

Bon dimanche.

 

Dernière édition: 20 Juillet 2008

Vote positif 0 Vote négatif

O

oléanor

Guest

• 20 Juillet 2008

• #5

Re : collage spécial aprés un boucle

j'ai intégré le code que vous m'avez donnée et il bug sur la derniére ligne 🙁

d'avance merci

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 20 Juillet 2008

• #6

Re : collage spécial aprés un boucle

Bonjour à tous,

Peux-tu essayer avec :

Code:

Selection.PasteSpecial Paste:=xlPasteValues

A+

 

Vote positif 0 Vote négatif

skoobi

XLDnaute Barbatruc

• 20 Juillet 2008

• #7

Re : collage spécial aprés un boucle

Salut JC 🙂,

oléanor à dit:

j'ai intégré le code que vous m'avez donnée et il bug sur la derniére ligne 🙁

d'avance merci

Cliquez pour agrandir...

Quel est le message d'erreur?

 

Vote positif 0 Vote négatif

O

oléanor

Guest

• 20 Juillet 2008

• #8

Re : collage spécial aprés un boucle

ca marche toujours pas il me copie les bordures

selection.pastespecial change rien il copie quand méme les bordures

pour le : set sh1..... idée sympa j'aile beaucoup le style de code

mais il veut pas: erreur d'exécution "1004"

erreur définie par l'application ou par l'objet

merci

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 20 Juillet 2008

• #9

Re : collage spécial aprés un boucle

Re
Salut Skoobi 🙂,

Il était écrit :

Code:

Selection.PasteSpecial Paste:=xlPasteValues

Mais tu fais comme tu veux...

A++ 🙂
A+ à tous

 

Vote positif 0 Vote négatif

skoobi

XLDnaute Barbatruc

• 20 Juillet 2008

• #10

Re : collage spécial aprés un boucle

Re,

le problème vient d'ailleurs car le code fonctionne chez moi.
Peut-on voir le fichier?

 

Vote positif 0 Vote négatif

O

oléanor

Guest

• 20 Juillet 2008

• #11

Re : collage spécial aprés un boucle

il veut pas le prendre trop volumineux je met donc je code complet:

Application.ScreenUpdating = False
'bloque l'affichage de l'écran


'Sheets("validation").Select
'Range("C7:F7").Select
'Selection.Copy
'Sheets("Base de donnée").Select
'Range("A2").Select


Set sh1 = Sheets("validation")
Set sh2 = Sheets("Base de donnée")
sh2.Range("A2").End(xlDown).Offset(1, 0).Resize(1, 4).Value = sh1.Range("C7:F7").Value

'Do Until IsEmpty(activecell)
'activecell.Offset(1, 0).Select
'Loop

'recherche de la cellule vide et collage

ActiveSheet.Paste
Range("A3").Select

Sheets("vierge").Select
Sheets("vierge").Copy after:=Sheets("vierge")

For i = 1 To Sheets.Count
Sheets("vierge (2)").Select
Sheets("vierge (2)").Move after:=Sheets(i)
Next i

'insertion d'une nouvelle feuille et mise en dernier

Application.ScreenUpdating = True

End Sub

 

Vote positif 0 Vote négatif

skoobi

XLDnaute Barbatruc

• 20 Juillet 2008

• #12

Re : collage spécial aprés un boucle

Il faut aussi mettre ActiveSheet.Paste en commentaire.
Les lignes ayant .Select sont inutiles (pour le reste du code), ça ralentie inutilement la macro.

 

Dernière édition: 20 Juillet 2008

Vote positif 0 Vote négatif

O

oléanor

Guest

• 20 Juillet 2008

• #13

Re : collage spécial aprés un boucle

il veut toujours pas j'ai mis que le code que vous m'avez donnée il ne fais rien d'autre et il bloque sur la derniére ligne erreur d'éxécution 1004 😕😕

désolée de vous accaparer comme ca

 

Vote positif 0 Vote négatif

skoobi

XLDnaute Barbatruc

• 20 Juillet 2008

• #14

Re : collage spécial aprés un boucle

De quelle ligne parles-tu?

il veut pas le prendre trop volumineux je met donc je code complet:

Cliquez pour agrandir...

Mets uniquement quelque ligne dans le fichier.

 

Dernière édition: 20 Juillet 2008

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 20 Juillet 2008

• #15

Re : collage spécial aprés un boucle

Re,

Et pense à le compresser... en *.zip par clique droit sur le fichier dans l'Explorateur et Envoyer vers et Dossier Compressé

A+

 

Vote positif 0 Vote négatif