Fonction Case depuis CATIA

Bonjour à tous,

au boulot j'utilise Catia V5, et on m'a demandé de créer une macro pour automatiser la création d'un modèle à partir de données excel. A partir d'une macro récupérée j'ai pu bidouiller quelquechose qui fonctionne, mais là je bloque sur quelquechose :

Ma feuille excel me permet de créer des points dans catia, puis dans une Private Sub dans la macro catia, je crée des lignes qui relient certains points dans des set géométriques différents.

Dans mon fichier excel, une cellule varie (2è ligne, colonne P), elle représente les configurations de points voulues, et en fonction de ce qui est inscrit (il s'agit de texte) dans cette cellule, j'aimerais que la macro catia lance ou non certaines Private Sub.

Après plusieurs essais, j'ai placé ça dans ma macro :

Code:

---

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

Set valeur_excel = Cells.Value(2, 16)   Select Case valeur_excel   Case 1 valeur_excel = "valeur 1" Call action1a Call action1b Call action1c Call action1d   Case 2 valeur_excel = "valeur 2" Call action2a   End Select

---

Ce code me permet d'éviter d'avoir un message d'erreur lorsque catia commence à créer l'objet avec les propriétés de "valeur 2", mais aucune Private Sub ne se lance

J'avais jamais touché à du VBScript avant ça, donc je tatonne vraiment ..
J'ai passé ma journée à regarder sur internet, d'après tout ce que j'ai vu ce morceau de code a l'air bon ? Je comprends plus :?

Si quelqu'un arrivait à me filer un coup de main ce serait super :ccool:

Merci d'avance bonne soirée (ou journée en fonction)

Salut, bienvenue sur DVP

Il me semble bien qu'il manque des séparateurs de commande dans certaines lignes de Case.

Code:

---

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

Set valeur_excel = Cells.Value(2, 16)   Select Case valeur_excel   Case 1 : valeur_excel = "valeur 1" '<--------- ICI Call action1a Call action1b Call action1c Call action1d   Case 2 : valeur_excel = "valeur 2" '<--------- ET LA Call action2a   End Select

---

Par séparateur tu entends les ":" ?
J'essairai demain merci :ccool:

Désolé
En lisant une nouvelle fois le code que tu proposes, je viens de réaliser que tu indiquais en commentaire la valeur du Case.
Donc Case 1 valeur_excel = "valeur 1" doit devenir Case 1 ' valeur_excel = "valeur 1" ou Case 1 rem valeur_excel = "valeur 1"le ' ou le mot rem indiquant que la suite de la ligne est un commentaire, non du code.

Par contre, que peut contenir réellement Ta variable valeur_excel, "Valeur 1" ou "1" (un littéral), ou 1 (un chiffre) ?

Pour un littéral il serait mieux d'écrire Case "Valeur 1"ou Case "1", Case "Valeur 2"ou Case "2"
Pour un chiffre Case 1 ou Case 2

Cela permet de rendre le code plus lisible/compréhensible , quant on revient dans le code après quelque mois, ou si une personne lit ton code.

"Valeur 1" correspond à ce qui est écrit dans la cellule excel, en littéral, je l'ai sans doute mal écrit, il ne s'agit pas d'un commentaire

Donc si je comprends bien je dois écrire

Code:

---

1 2 3 4 5 6 7 8 9

Select Case Cells.Value(2, 16) Case "valeur 1" Call action1a Call action1b Call action1c Call action1d Case "valeur 2" Call action2a End Select

---

Merci

Toujours le même souci .. aucune des private sub "action 1x" ou "action 2x" ne se lance, peu importe la valeur que prend la cellule excel :?

Je me demande si le Case Select est pas placé trop tôt dans le code, étant donné que les Private Sub engagées se réfèrent à des points créés dans la macro

Seulement quand je place le Case Select en fin de macro, il m'affiche un message d'erreur "Variable non définie : Cells", enfin d'une manière générale, le premier terme après le Case Select, il le considère comme variable non définie

:?