Discussion :

[Clemlfge]

Bonjour à tous !
Voilà je débute en vba et j'ai un problème.
Je souhaite tracer plusieurs lignes en fonction de coordonnées de points qui vont changer.

Mon code est :

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
17
18
19
20
21
22
23
24
25
26
27
Dim k As Integer
Dim n As Integer ' nombfre d'élément
Dim I As Integer 'Premier noeud
Dim J As Integer ' Deuxieme noeud
Dim xi As Variant 'coordonnée x du noeud I
Dim yi As Variant ' coordonnée y du noeud I
Dim xj As Variant ' coordonnée x du noeud J
Dim yj As Variant ' coordonnée y du noeud J
Dim a As Integer 'Variable qui nous servira à balayer le Tableau des Elements
Dim b As Integer ' Variable qui nous serviras a balayer le Tableau des Noeuds
 
b = 15
a = 3
 
 
Worksheets("Graphique").Select
Worksheets("Graphique").Cells.Clear
n = InputBox("nombre d'éléments")
For k = 8 To n + 8
    I = Cells(k, b).Value 'On regarde le premier noeud
    J = Cells(k, b + 1).Value ' On regarde le deuxième Noeud
    xi = Cells(I + 7, a).Value
    yi = Cells(I + 7, a + 1).Value
    xj = Cells(J + 7, a).Value
    yj = Cells(J + 7, a + 1).Value
    ActiveSheet.Shapes.AddLine((xi * 100) + 100, (xj * 100) + 100, (yi * 100) + 100, (yj * 100) + 100).Select
Next k

Or les lignes se tracent mais un message d'erreur apparaît me disant qu'il y a une erreur de type au niveau de la ligne "Activesheet ..."

J'ai cherché partout je ne trouve aucune réponse à mon problème ...
Aidez moi s'il vous plait

[Menhir]

Je pense que c'est parce que dans les cellules qui définissent les coordonnées, tu as une valeur supérieure à 320.

Remplace tous tes Integer par Long.
Remplace tous les 100 de ton code par des 100& (pas d'espace entre 100 et &).

J'ai cherché partout je ne trouve aucune réponse à mon problème ...

Dans l'aide VBA : https://docs.microsoft.com/fr-fr/off...eger-data-type

[Clemlfge]

J'ai modifier mon code comme vous me l'avez indiqué.

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
17
18
19
20
21
22
23
24
25
26
27
28
Dim k As Long
Dim n As Long ' nombfre d'élément
Dim I As Long 'Premier noeud
Dim J As Long ' Deuxieme noeud
Dim xi As Variant 'coordonnée x du noeud I
Dim yi As Variant ' coordonnée y du noeud I
Dim xj As Variant ' coordonnée x du noeud J
Dim yj As Variant ' coordonnée y du noeud J
Dim a As Long 'Variable qui nous servira à balayer le Tableau des Elements
Dim b As Long ' Variable qui nous serviras a balayer le Tableau des Noeuds
 
 
b = 15
a = 3
 
 
Worksheets("Graphique").Select
Worksheets("Graphique").Cells.Clear
n = InputBox("nombre d'éléments")
For k = 8 To n + 8
    I = Cells(k, b).Value 'On regarde le premier noeud
    J = Cells(k, b + 1).Value ' On regarde le deuxième Noeud
    xi = Cells(I + 7, a).Value
    yi = Cells(I + 7, a + 1).Value
    xj = Cells(J + 7, a).Value
    yj = Cells(J + 7, a + 1).Value
    ActiveSheet.Shapes.AddLine((xi * 100&) + 100&, (xj * 100&) + 100&, (yi * 100&) + 100&, (yj * 100&) + 100&).Select
Next k

Mais il y a toujours une incompatibilité de type à la ligne "Activesheet.Shapes ...."

[Menhir]

Pourquoi as-tu déclaré certaines variables de type Variant ?
Déclare-les de type Long (si c'est des entiers) ou Double (si c'est des nombres à décimales).

[Clemlfge]

Parce que le type variant d'adapte à toutes les cellules et vue que j'avais toujours un problème de type, j'ai préféré mettre variant poour que ça ne pose pas de problème.

Je vais regarder

[Menhir]

Parce que le type variant d'adapte à toutes les cellules

Un couteau suisse aussi s'adapte à beaucoup de situations. N'empêche que lorsque je veux visser une cruciforme, je prends généralement un vrai tournevis et lorsque je veux faire la cuisine, je prends un vrai couteau de découpe.

Le type Variant est à réserver à des cas très particuliers, quand on ne peut pas faire autrement.
Dans la majorité des cas, on utilise le type qui convient à l'usage qu'on veut faire de la variable.

vue que j'avais toujours un problème de type, j'ai préféré mettre variant poour que ça ne pose pas de problème.

Ca, c'est ce qui s'appelle mettre la poussière sous le tapis...
C'est comme mettre un On Error Goto générique pour faire disparaitre un message d'erreur qu'on n'a pas la patience de traiter.
Mais la poussière finit toujours par ressortir à un moment ou à un autre, comme le montre ton cas.

Pour faire ce que tu souhaites, tu as besoin que tes variable soient des valeurs numériques.
Si des variables de ce type causent des problèmes, alors il faut traiter ces problèmes.
Ca peut se faire de plusieurs façons, suivant le cas : corriger les données sources, faire des tests pour contrôler les données récupérer et gérer celles qui ne conviennent pas, etc.