Discussion :

[biquets]

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 :

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

Public position As String

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

Code :

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

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 :

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
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

[K2O2$]

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.

[Qwazerty]

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 :

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

     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 :

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

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

Toi tu veux faire

Code :

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

 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

Code :

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

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 :

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

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

A++
Qwaz