Probleme de mise en relations données excel / VBA

Bonjour à tous,

Tout d'abord merci à tous ceux qui auront lus ce post.

Je vous explique mon probleme; je dois créer un logiciel de dimensionnement de poteau métallique.

J'ai tout d'abord effectué tous mes calcul sur le classeur excel et j'aimerais les renvoyer sur ma boite de dialogue sur vba sauf que ça ne marche pas et que je ne sais pas comment faire

J'ai réussi à créer la boite de dialogue avec les différents paramètres et à les programmer indépendament les un des autres.

Seulement maintenant j'aimerais que tout concorde entre eux, que lorsque je rentre les paramètres à la fin en appuyant sur min bouton calculer je retrouve le résultat que j'ai sur mon classeur excel. le probleme c'est que ça ne marche pas :cry:

Merci d'avance :)

Bonjour,

Peux tu nous en dire plus sur ce qui ne marche pas. (Erreur, résultat incorrrect ...)

Alors en fait à la fin de ma boite de dialogue j'ai inséré un bouton calculer et lorsque je clique sur le bouton il me renvois sur vba avec cette erreur:

Citation:

---

Erreur d'exécution '1004':
la méthode 'range' de l'objet '_global' à échoué

---

la formule que j'ai inseré pour le bouton calculer est la suivante :

Code:

---

1 2 3

Private Sub Calculer_Click() Vérif.Value = Range("Vérification") End Sub

---

vérif correspond à la case ou le résultat doit être renvoyé et vérification correspond au nom de la case résultat calculé sur excel.

Ton code fait référence à une plage nommée "Vérification" qui n'existe pas dans ton fichier.

Est ce bien à une plage nommée que tu veux faire appel?

Oui enfin plutot à une cellule celle qui doit renvoyer bien dimensionner ou redimensionner

Code:

---

1 2 3 4

Private Sub Calculer_Click() Vérif.Value = Range("Vérification") End Sub

---

bonjour,

Range("Vérification") n'est pas une adresse comprise par vba, si c'est une cellule tante plutôt

Code:

---

Sheets("poteau").Range("d28")

---

par exemple.

par contre si c'est un textbox met Vérif.Value = nomtextbox.value par exemple.

Citation:

---

Oui enfin plutot à une cellule celle qui doit renvoyer bien dimensionner ou redimensionner

---

Et ou est cette cellule (feuille et adresse)

C'est dans la feuille appelée poteau la case D28

J'ai changé le nom de la cellule par vérification et aussi le nom de la colonne section qui s'appelle Section_profilés dans la feuille poteau parce que j'avais oublié de le refaire vu que j'ai fais une copie de mon projet car il y a d'autres parametres mais qui marchent donc je n'en avait pas besoin

Bref j'ai changé les noms donc ça a marché au début et ensuite ça me renvoie cette erreur:

Citation:

---

Erreur d'exécution '-2147352571'
Impossible de definir la propriété.value
Le type ne correspond pas

---

Citation:

---

Envoyé par Zongo86

Code:

---

1 2 3 4

Private Sub Calculer_Click() Vérif.Value = Range("Vérification") End Sub

---

bonjour,

Range("Vérification") n'est pas une adresse comprise par vba, si c'est une cellule tante plutôt

Code:

---

Sheets("poteau").Range("d28")

---

par exemple.

par contre si c'est un textbox met Vérif.Value = nomtextbox.value par exemple.

---

D'accord merci je vais essayer de changer ça et voir si ça marche

Citation:

---

Erreur d'exécution '-2147352571'
Impossible de definir la propriété.value
Le type ne correspond pas

---

Si ton nouveau code génère une nouvelle erreur, difficile de te dire sans voir le nouveau code

j'ai rien changé au code et avec l'autre code que j'ai essayé plus haut ça ne marche pas non plus.

La seule chose que j'ai changé c'est que j'ai donné un nom à une plage de données et à une case.

J'ai modifier le fichier que j'ai joint dans le liens que j'ai mis plus haut si ça peut vous aider.

Je ne sais vraiment pas comment faire...

La formule fonctionne lorsque je clique sur calculer elle me renvois le résultat écris sur excel seulement ça ne fonctionne que lorque je ne remplis pas les cases sencés me servir à effectuer la calcul.

je pense que le problème viens d'une liste déroulante que j'ai créer avec cette formule :

Code:

---

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

Private Sub Profilé_Change() Sections.Clear   Dim no_colonnes As Integer, nb_lignes As Integer   no_colonnes = Profilé.ListIndex + 1 nb_lignes = Cells(1, no_colonnes).End(xlDown).Row   For i = 2 To nb_lignes Sections.AddItem Cells(i, no_colonnes) Next Range("Poteau!A17").Value = Profilé End Sub

---

j'aimerais que la valeur de la liste déroulante soit renvoyé sur le classeur excel afin que mon calcul puisse se faire avec les données choisis mais je n'arrive pas à trouver une formule qui convienne.

si quelqu'un à une solution ça me serait tres utile sinon l'autre solution serais de tout recommencer et de faire tout ça autrement :(