Discussion :

[frisou65]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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?

[helios77]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[JackOuYA]

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..?

[frisou65]

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?

[frisou65]

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.

[fring]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[JackOuYA]

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

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

si tu rajoute le . rajoute aussi FL1.

[frisou65]

ç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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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?

[frisou65]

Merci pour ton rajout d'info JackOuYA.

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.

[fring]

si tu rajoute le . rajoute aussi FL1.

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

[JackOuYA]

bon execute ton code pas à pas

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.