Pb sur Formulaires

Salut à tous,
voici l'exposé de mon problème (ça fait un moment que j'ai pas fait des macros dans excel et j'étais débutant à l'époque ...) :

dans une première feuille, je définis une variable public "position" comme suit

Code:

---

Public position As String

---

ensuite sur la même feuille, j'appelle une boîtes de dialogue que j'ai créée

Code:

---

1 2 3

Private Sub CommandButton2_Click() DialogSheets("Entréedonnéemyrabelélectricité").Show End Sub

---

ensuite et ce dans un module, je fais cette macro là (sur bouton OK de la boîte de dialogue) :

Code:

---

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

Sub Bouton2_QuandClic() 'sélectionne la première cellule vide dans le cas d'un nouvel enregistrement Dim n As Integer With Worksheets For n = 9 To 2000 If Range("C" & Int(n)).Value = "" Then 'on sélectionne la 1ère cellule vide Range("C" & Int(n)).Select position = n GoTo 1 End If Next n   1: End With Range("C" & position) = DialogSheets("Entréedonnéemyrabelélectricité").TextBox(44).Value End Sub

---

cette macro doit en fait sélectionné la première cellule vide en C quelque chose et mettre ce qui se trouve dans la zone d'édition 44. Ca bug à ce moment, il me dit " erreur d'éxécution 438 - propriété ou méthode non géré par cet objet"

du coup, je suis bloqué là.

Merci d'avance.
Jean-Luc

Salut,

Dans la procédure Bouton2_QuandClic() tu mets la boucle dans un instruction with worksheets. Si j'ai bien compris, ton code concerne toutes les feuilles de ton classeur (à moins que tu n'en a qu'une seule). Si ce n'est pas le cas spécifie la feuille concerné en mettant worksheets("nom de la feuille") dans ton instruction with.

SAlut

[Edit2]Decidement je manque a tous mes devoirs... Bienvenu sur Developpez.net !, je coprend maintenant l'absence de balise code ;) (Quand tu ecris ton message(ou quand tu l'edit) selectionne la partie code que tu as tapée et appuis sur le bouton #[/Edit2]

Petite remarque avant de commencer, il serait bien que tu rajoute des balise code dans ton poste ca sera plus simple a lire ;) [Edit]Et des indentations aussi si possible :)

Un truc bizard dans ton code c'est le

Code:

---

With Worksheets

---

WorkSheets representant etant la collection tu dois en choisir un WorkSheets("Sheet1") par exemple et si, comme je le pense tu veux celui en cours, le mieux c'est de rien mettre (ca revient a ton code puisque je pense que VBA doit ignorer ta ligne With) [/Edit]

Pour l'erreur c'est normal tu fait une egalité entre une cellule (objet range) et une valeur

Code:

---

Range("C" & position) = DialogSheets("Entréedonnéemyrabelélectricité").TextBox(44).Value

---

Toi tu veux faire

Code:

---

Range("C" & position).formula = DialogSheets("Entréedonnéemyrabelélectricité").TextBox(44).Value

---

Par contre en ce qui concerne ta macro pour selectionner la derniere ligne vierge tu aurais fais une petite recherche tu aurais trouvé ca

En particulier cette partie la

Citation:

---

Envoyé par deubelte

Code:

---

Range("A1").end(xldown).select

---

---

Il te faut alors juste aller une ligne plus bas, puisque ce code te donne la derniere ligne non vide, en mettant par exemple

Code:

---

Range("A1").end(xldown).OffSet(1,0).Select

---

A++
Qwaz