Discussion :

[azerty53]

Bonjour

je souhaite me mettre a l'objet car j'ai un projet VBA a faire.
J'ai donc créé une classe CLicencie qui me permettrait d'ajouter dans une feuille excel les données d'un userform d'ajout des licencies.

Dans mon userform:

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub CommandButton1_Click()

Dim obj_Licencie As CLicencie

Set obj_Licencie = New CLicencie
obj_Licencie.str_Nom = Me.TextBox1.Value
obj_Licencie.Creer_Licence

End Sub

Dans ma classe CLicencie

Code :

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

1
2
3
4
5
6
7
8
Public str_Nom As String
 
Sub Creer_Licence()
 
Application.ThisWorkbook.Sheets("Liste salarie").Range("A1") = str_Nom
'MsgBox (str_Nom)
 
End Sub

mais quand je met toto dans ma textbox et que je valide il me marque

Erreur d'execution 9

L'indice n'appartient pas a la selection.

et me surligne la ligne écrite en gras

Mais quand je remplace dans ma classe le application.thisworkbook... par le msgbox il m'affiche bien la valeur de ma textbox soit "toto"

Est ce que quelqu'un pourrait m'aider dans mon probleme

[dadavyvy]

Je pense :

Code :

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

1
2
ThisWorkbook.Sheets("Liste salarie").Range("A1") = Me.str_Nom

[azerty53]

Bonjour

J'ai essayé en mettant me.str_nom mais j'ai toujours le meme message d'erreur

L'indice n'appartient pas a la selection

Cordialement

[SfJ5Rpw8]

et la feuille excel "Liste salarie" ..est bien dans le même classeur que ton code ..?