{VBA Excel}Erreur lors d'une copie
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
| Sub G_795_Aoustin_2000kg()
Application.Run "'calcul gomme4,0-2007.xls'!control"
Application.Run "'calcul gomme4,0-2007.xls'!Module2.production_suivante"
Range("z2:Ad14").Copy
ActiveSheet.Paste
Cells(ActiveCell.Row + 5, ActiveCell.Column).Select
If Selection.Column = Columns("I").Column Then
Lig = Selection.Row - 5
For X = 0 To 4
If Range("E" & Lig).Offset(X, 0) <> 1 Then Exit Sub
Next X
'on vérifie la présence des 1, sinon on sort
For X = 0 To 4
Range("E" & Lig).Offset(X, 0) = 2
'On affecte 2 à la colonne E
Next X
End If
Joute = Selection.Row
ThisWorkbook.Sheets("Programme Gommes").RangeRange("J" & Joute) = ThisWorkbook.Sheets("Programme Gommes").Range("AB6")
End Sub |
En rouge est le code que je me sert pour faire une copie
qd je lance ma macro elle remplis des cases et je voudrais rajouter dans une case ou je copie une precision que j'ai sur la meme feuille mais dans une autre case
alors je recopie la cellule AB6 dans la colonne J a la ligne ou je suis
ma recopie s'effectue et une erreur s'affiche apres
"prorpiete ou methode non gere par cette objet"
et la je ne sais pas trop comment faire si un coup de main pouvait etre possible merci
