copie onglet

Etienne2323

XLDnaute Impliqué

• 6 Juillet 2009

• #2

Re : copie onglet

Salut al1000,
je dois te dire que le fichier exemple que tu as fourni était très incomplet. Voici quelques pistes pour ton code. Sans exemple réel, il est plutot difficile de te donner un coup de main !
J'ai modifié quelques unes de tes lignes de codes, notamment celles qui pouvaient être regroupées et celles qui étaient simplement inutiles.

En espérant que ça puisse te donner un coup de main quand même.

Code:

Private Const FEUILLE_MATRICE = "matrice"
Private Const FEUILLE_GRAPHIQUE = "graphique"

Sub copie()

Dim NomOnglet As String

Sheets(FEUILLE_MATRICE).Select

ThisWorkbook.Sheets(FEUILLE_MATRICE).Copy before:=ThisWorkbook.Sheets(FEUILLE_MATRICE)
       
NomOnglet = InputBox("entrez l'heure (avec un espace) svp")
Sheets("matrice (2)").Name = NomOnglet

Sheets(FEUILLE_MATRICE).Range("D20:K20").Copy
Sheets(FEUILLE_GRAPHIQUE).Cells(65536, 27).End(xlUp).PasteSpecial Paste = xlPasteValues
Application.CutCopyMode = False
Application.Goto Range("A3"), True

End Sub

Cordialement,

Étienne

 

Vote positif 0 Vote négatif

A

al1000

XLDnaute Impliqué

• 7 Juillet 2009

• #3

Re : copie onglet

Private Const FEUILLE_MATRICE = "matrice"
Private Const FEUILLE_GRAPHIQUE = "graphique"

Sub copie()
cette macro bloque içi: Sheets(FEUILLE_GRAPHIQUE).Cells(65536, 27).End(xlUp).PasteSpecial Paste = xlPasteValues

pourquoi?



Dim NomOnglet As String

Sheets(FEUILLE_MATRICE).Select

ThisWorkbook.Sheets(FEUILLE_MATRICE).Copy before:=ThisWorkbook.Sheets(FEUILLE_MATRICE)

NomOnglet = InputBox("entrez l'heure (avec un espace) svp")
Sheets("matrice (2)").Name = NomOnglet

Sheets(FEUILLE_MATRICE).Range("D20:K20").Copy
Sheets(FEUILLE_GRAPHIQUE).Cells(65536, 27).End(xlUp).PasteSpecial Paste = xlPasteValues
Application.CutCopyMode = False
Application.Goto Range("A3"), True

End Sub

 

Pièces jointes

• graphique.xls

  48 KB · Affichages: 78
• graphique.xls

  48 KB · Affichages: 77
• graphique.xls

  48 KB · Affichages: 66

Vote positif 0 Vote négatif

Etienne2323

XLDnaute Impliqué

• 7 Juillet 2009

• #4

Re : copie onglet

Salut al,

tu pourrais faire ce test à la place ?

Essaie de faire la modification suivante juste pour essayer.

Insérer

Code:

Dim DerniereLigne as Integer

Code:

DerniereLigne = Cells(65536,27).End(xlup).Row
Sheets(FEUILLE_GRAPHIQUE).Cells(DerniereLigne , 27).PasteSpecial Paste:=xlPasteValues

Tiens-moi au courant !

Étienne

 

Vote positif 0 Vote négatif

A

al1000

XLDnaute Impliqué

• 7 Juillet 2009

• #5

Re : copie onglet

bonjour

cette solution copie toujours sur la ligne 1

pourquoi,

je voudrai que les valeurs se copient les une s en dessous des autres

a+

 

Vote positif 0 Vote négatif

A

al1000

XLDnaute Impliqué

• 7 Juillet 2009

• #6

Re : copie onglet

bonjour,


que veux dire ou quelle est la différence entre les 2 lignes suivantes?


Dim NomOnglet As String
Dim DerniereLigne As Integer


a+

 

Vote positif 0 Vote négatif

Etienne2323

XLDnaute Impliqué

• 7 Juillet 2009

• #7

Re : copie onglet

Salut al,
c'est simplement la déclaration des variables. Le premier déclare en tant que string, donc une variable texte, et le second en tant que Integer, soit une variable entière à grande portée.

Pour ce qui est de ton problème, comme je te l'ai mentionné dans le premier message, sans exemple véritable, il est très difficile de te donner une réponse concrète. Je demeure disposé à t'aider mais il va falloir fournir un effort ici pour proposer une fichier sur lequel on va pouvoir travailler.

A te lire pour plus,

Étienne

 

Vote positif 0 Vote négatif

A

al1000

XLDnaute Impliqué

• 7 Juillet 2009

• #8

Re : copie onglet

bonjour,


voici le fichier:


a+

 

Pièces jointes

• graphique.xls

  46 KB · Affichages: 83
• graphique.xls

  46 KB · Affichages: 82
• graphique.xls

  46 KB · Affichages: 85

Vote positif 0 Vote négatif

A

al1000

XLDnaute Impliqué

• 9 Juillet 2009

• #9

Re : copie onglet

comment modifier la macro pour que les données se copient les iunes en dessous des autres


voir le fichier graphique


a+

 

Vote positif 0 Vote négatif

Etienne2323

XLDnaute Impliqué

• 9 Juillet 2009

• #10

Re : copie onglet

Salut al,
la macro le fait. C'est qu'il n'y a aucune données à copier dans ton fichier. Modifie le en conséquence et refais un essai, tu verras que la macro est adaptée.

Bonne fin de journée !

Etienne

 

Vote positif 0 Vote négatif

A

al1000

XLDnaute Impliqué

• 9 Juillet 2009

• #11

Re : copie onglet

la macro copie bien les donnees de l onglet matrice: cellule d20 à k20
vers l'onglet graphique: mais il copie toujours les donnees sur la ligne aa1
pourquoi?
a+

 

Vote positif 0 Vote négatif

A

al1000

XLDnaute Impliqué

• 9 Juillet 2009

• #12

Re : copie onglet

suite de ma question

pourquoi sur le graphique en faisant f2 puis entrer les valeurs s'affichent sur le graphique


a+

 

Vote positif 0 Vote négatif

A

al1000

XLDnaute Impliqué

• 12 Juillet 2009

• #13

Re : copie onglet

la macro copie bien les donnees de l onglet matrice: cellule d20 à k20
vers l'onglet graphique: mais il copie toujours les donnees sur la ligne aa1
pourquoi?
a+

 

Vote positif 0 Vote négatif