problème de syntaxe avec les structures .top et .left

Bonjour,
j'ai des problèmes avec les 2 lignes bleu:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Dim FL1 As Worksheet Set FL1 = ActiveSheet With FL1.Shapes(FL1.Shapes.Count) .Select .Top = Cells(j + 17, p).Top .Left = Cells(j + 17, m).Left .Width = 185 .Height = 135 End With

---

Dans la structure des cells j+17 représente ma ligne avec j variable integer et p représente ma colonne avec p variable integer.
Est ce que quelqu'un peut m'aider?

Bonjour
ne serait-ce pas ceci que tu voulais faire ?

Code:

---

1 2 3

.Top = Cells(j + 17, p).value .Left = Cells(j + 17, m).value

---

Bonjour

et c'est quoi le probléme ..? qu'elle est la valeur de tes variables m,p et j au moment du probléme..?

non, en fait je veux positionner mon graph grâce à la position de ma cellule cells(j+17,p).
Ce que tu m'as proposé ne marche pas. As-tu autre chose a me proposer?
Ou quelqu'un d'autre pourrait-t-il m'aider, svp?

Alors:
j=67, p=6, m=4
Voilà pour les valeurs de mes variables mais je sais pas si ça va vous servir puisque mon problème est un problème de syntaxe entre mes cells et .top pour positionner mon graph.
Merci d'avance pour vos réponses.

à vue de nez...il manque le point devant les Cells

Code:

---

1 2	.Top = .Cells(j + 17, p).Top .Left = .Cells(j + 17, m).Left

---

et c'est quoi ton probléme ? un message d'erreur ..?

Citation:

---

Envoyé par fring

à vue de nez...il manque le point devant les Cells

Code:

---

1 2	.Top = .Cells(j + 17, p).Top .Left = .Cells(j + 17, m).Left

---

---

:nono: si tu rajoute le . rajoute aussi FL1.

ça marche pas non plus fring.
Mon problème JackOuYA est que a partir des lignes bleu il me dit qu'il y a une erreur 438 avec comme texte propriété ou méthode non gérée par cet objet.
J'ai vu que pour me servir de .top et .left il faut un range mais quand j'écris:

Code:

---

1 2 3 4 5 6 7 8 9 10

Dim FL1 As Worksheet Set FL1 = ActiveSheet With FL1.Shapes(FL1.Shapes.Count) .Select .Top = Range(Cells(j + 17, p)).Top .Left = Range(Cells(j + 17, m)).Left .Width = 185 .Height = 135 End With

---

ça marche pas non plus
En fait dans mon programme je positionne le haut et la gauche d'un graph que je viens de creer à l'aide du haut et de la gauche de ma cellule cells(j+17,p) et cells(j+17,m).
Est ce que ça t'est plus clair JackOuYA?

Merci pour ton rajout d'info JackOuYA.

Citation:

---

et c'est quoi ton probléme ? un message d'erreur ..?
Citation:
Envoyé par fring Voir le message
à vue de nez...il manque le point devant les Cells
Code :
.Top = .Cells(j + 17, p).Top
.Left = .Cells(j + 17, m).Left
si tu rajoute le . rajoute aussi FL1.

---

Et merci à toi aussi fring.
Maintenant ça marche.Merci beaucoup.

Citation:

---

Envoyé par JackOuYA

:nono: si tu rajoute le . rajoute aussi FL1.

---

arf...en effet, j'avais lu With FL1 en début du code :roll:

bon execute ton code pas à pas

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Dim FL1 As Worksheet Set FL1 = ActiveSheet With FL1.Shapes(FL1.Shapes.Count)   .Select stop debug.print FL1.Cells(j + 17, p).Top debug.print FL1.Cells(j + 17, m).Left stop .Top = fL1.Cells(j + 17, p).Top .Left = FL1.Cells(j + 17, m).Left   .Width = 185 .Height = 135 End With

---

au premier "stop", vérifie bien que ce soit ton graphique qui est sélectionné sur ta feuille excel ..(aprés quand ton code fonctionnera tu pourra supprimer ce select inutile..)

actionne ensuite la touche F5 pour continuer jusqu'au 2° stop , et si tu n'as pas eu d'erreur entre-temps regarde les valeur affichées dans la fenêtre exécutiln CTRL+G.