Bonjour le forum,
J'ai à nouveau un petit problème avec un petit bout de code qui est en rouge...
Mon but est de copier certaines colonnes dans un autre fichier afin de créer un graph avec ces données.
Si je mets .range("B8:B64"), tout fonctionne parfaitement...
Je ne comprend pas pourquoi ça ne fonctionne pas... Il me met cette erreur : "Erreur définie par l'application ou par l'objet".
------------------------------------------------------------------
Sub Graph()
Dim i, k As Integer
i = 1
k = 9
ActiveWorkbook.Worksheets("Graphics").Select
ActiveSheet.Cells(1, i).Activate
ActiveWorkbook.Worksheets("Result").Select
While Not ActiveSheet.Cells(8, i) = "Idvantive" Or ActiveSheet.Cells(8, i) = "Fonction" Or ActiveSheet.Cells(8, i) = "Results with Coeff"
i = i + 1
Wend
While Not ActiveSheet.Cells(k, i) = ""
k = k + 1
Wend
ActiveWorkbook.Worksheets("Result").range(Cells(8, i), Cells(k, i)).Select
Selection.Copy
ActiveWorkbook.Worksheets("Graphics").Select
ActiveSheet.Cells(1, 1).Select
Selection.Paste
end sub
Merci d'avance pour votre aide !
J'ai à nouveau un petit problème avec un petit bout de code qui est en rouge...
Mon but est de copier certaines colonnes dans un autre fichier afin de créer un graph avec ces données.
Si je mets .range("B8:B64"), tout fonctionne parfaitement...
Je ne comprend pas pourquoi ça ne fonctionne pas... Il me met cette erreur : "Erreur définie par l'application ou par l'objet".
------------------------------------------------------------------
Sub Graph()
Dim i, k As Integer
i = 1
k = 9
ActiveWorkbook.Worksheets("Graphics").Select
ActiveSheet.Cells(1, i).Activate
ActiveWorkbook.Worksheets("Result").Select
While Not ActiveSheet.Cells(8, i) = "Idvantive" Or ActiveSheet.Cells(8, i) = "Fonction" Or ActiveSheet.Cells(8, i) = "Results with Coeff"
i = i + 1
Wend
While Not ActiveSheet.Cells(k, i) = ""
k = k + 1
Wend
ActiveWorkbook.Worksheets("Result").range(Cells(8, i), Cells(k, i)).Select
Selection.Copy
ActiveWorkbook.Worksheets("Graphics").Select
ActiveSheet.Cells(1, 1).Select
Selection.Paste
end sub
Merci d'avance pour votre aide !