Discussion :

[folledebrune]

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

Merci d'avance

[jfontaine]

Bonjour,

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

[folledebrune]

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:

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 :

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

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.

[jfontaine]

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?

[folledebrune]

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

[Zongo86]

Code :

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

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 :

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

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

par exemple.

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

[jfontaine]

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

Et ou est cette cellule (feuille et adresse)

[jfontaine]

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

[folledebrune]

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:

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

Code :

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

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 :

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

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