Pb de copie de cellules

D

Denis

Guest

• 24 Mai 2005

• #2

Bonjour Pascale et le Forum
essais ceci
Sub Macro1()
Application.ScreenUpdating = False
Range('Feuil1!C7:C9').Copy 'ta plage à copier
With Range('feuil2!E7')'la première cellule de destination
.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= False, Transpose:=False
.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SikipBlanks:= False, Transpose:=False
End With
Application.ScreenUpdating = True
End Sub
Bon sourage et à +
Denis

 

Vote positif 0 Vote négatif

P

Pascale

Guest

• 24 Mai 2005

• #3

Bonjour Denis,le forum,

En fait, pour: With Range('Feuil2!E7'), mon soucis est que je travail avec un Offset, car 'ma plage' est la même pour toutes les feuiles du classeur:

For cx = 0 To Sheets.Count - 2 'boucle sur tous les onglets sauf le dernier

Set dest = Sheets('dern').Range('A65536').End(xlUp).Offset((50 * cx) + 1, 0) 'redéfinit la variable dest

Sheets(cx + 1).Range('A1:AQ50').Copy Destination:=dest 'copy et colle
'
Next cx 'prochain onglet de la boucle

Quand je met la boucle With après ' Sheets(cx + 1)...', 'SikipBlanks' lui pose un Pb.
Merci pour ton aide.
Pascale

 

Vote positif 0 Vote négatif

Baside

XLDnaute Impliqué

• 24 Mai 2005

• #4

Bonjour Pascale le fil le forum

Tes feuilles ont elles la même structure ?

Si possible met au moins une feuille en fichier joint, je pense que celà ira plus vite pour régler le problème

Baside

 

Vote positif 0 Vote négatif

P

Pascale

Guest

• 24 Mai 2005

• #5

Bonjour Baside, le forum

Oui mes feuilles ont la même structure (taille, fusion, bordure), par contre les couleurs peuvent être différentes.
@+ Baside et bonne journée.
Pascale

 

Vote positif 0 Vote négatif

Baside

XLDnaute Impliqué

• 24 Mai 2005

• #6

Rebonjour Pascale le fil le forum

peux tu envoyer un ex vide si possible

Baside

 

Vote positif 0 Vote négatif

P

Pascale

Guest

• 24 Mai 2005

• #7

Re bonjour Baside,le forum

Comme tu me l'a demandé voici en pièce jointe la structure de mon classeur.
je voudrais :
Copier la plage A1:AQ50 en conservant ce format de ligne, de colonne, de bordure, de couleur.
ne copier que la valeur des cellules et pas les formules.
Merci. @+ Baside

 

Vote positif 0 Vote négatif

Baside

XLDnaute Impliqué

• 24 Mai 2005

• #8

Bonsoir Pascale le forum

Une pièce jointe où ça ?

M'enfin, Baside

P.S. Zip de moins de 50 Ko et sans espace ni accent

 

Vote positif 0 Vote négatif

P

Pascale

Guest

• 24 Mai 2005

• #9

Re Baside,

Désolé, la voici

 

Vote positif 0 Vote négatif

Baside

XLDnaute Impliqué

• 24 Mai 2005

• #10

Toujours pas là...

 

Vote positif 0 Vote négatif

P

Pascale

Guest

• 24 Mai 2005

• #11

Re

 

Vote positif 0 Vote négatif

Baside

XLDnaute Impliqué

• 24 Mai 2005

• #12

Re

 

Vote positif 0 Vote négatif

P

Pascale

Guest

• 24 Mai 2005

• #13

Re Baside,

j' ai bien le dossier sélectionné à coté de parcourir, mais il ne le prend pas 13K seulement

@+
Pascale

 

Vote positif 0 Vote négatif

P

Pascale

Guest

• 24 Mai 2005

• #14

Re Baside,

j' ai bien le dossier sélectionné à coté de parcourir, mais il ne le prend pas 13K seulement

@+
Pascale

 

Vote positif 0 Vote négatif

Baside

XLDnaute Impliqué

• 24 Mai 2005

• #15

Au LeCaslagaffe arobase aol point com

le tout attaché en changeant ce qu'il faut bien sur

 

Vote positif 0 Vote négatif