Problème d'incompatibilité de forme

eltigre85 Messages postés 35 Date d'inscription mercredi 4 janvier 2012 Statut Membre Dernière intervention 12 septembre 2013 - 7 févr. 2012 à 12:12
eltigre85 Messages postés 35 Date d'inscription mercredi 4 janvier 2012 Statut Membre Dernière intervention 12 septembre 2013 - 7 févr. 2012 à 13:05
Salut j'ai fais le programme qui suit mais à chaque fois il m'affiche erreur incompatibilité de forme.

Private Sub CommandButton3_Click()
Dim d As Integer
Dim j As TextBox
Dim k As Integer
'Call CommandButton1_Click
j = TextBox26
If j <> 0 Then
For d = 1 To n
s.Offset(d - 1, 3 + j.Value).Value = Controls("Textbox" & (d + 1)).Value
Next d
Else: MsgBox "Veuillez indiquer le mois"
End If
End Sub

3 réponses

ucfoutu Messages postés 18038 Date d'inscription lundi 7 décembre 2009 Statut Modérateur Dernière intervention 11 avril 2018 234
7 févr. 2012 à 12:48
Bonjour,
déjà (et avant d'analyser le reste) ===>>> B.A.BA ===>>
1) On ne peut affecter un objet à une variable par simple = . Il faut un Set
2) if j (alors que j est une textbox) <> 0 ne peut strictement rien dire
Réfléchis et reviens.



____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient
0
NHenry Messages postés 15030 Date d'inscription vendredi 14 mars 2003 Statut Modérateur Dernière intervention 26 novembre 2022 157
7 févr. 2012 à 12:57
Bonjour,

"erreur incompatibilité de forme"
Quel est lme message exacte ?

Dim j As TextBox
j = TextBox26
If j <> 0 Then

D'après toi, est-ce logique ?

Quand tu postes un code, regardes le point 2 de ma signature.

---------------------------------------------------------------------
[list=ordered][*]Pour poser correctement une question et optimiser vos chances d'obtenir des réponses, pensez à lire le règlement CS, ce lien ou encore celui-ci[*]Quand vous postez un code, merci d'utiliser la coloration syntaxique (3ième icône en partant de la droite : )
[*]Si votre problème est résolu (et uniquement si c'est le cas), pensez à mettre "Réponse acceptée" sur le ou les messages qui vous ont aidés./list
---
Mon site
0
eltigre85 Messages postés 35 Date d'inscription mercredi 4 janvier 2012 Statut Membre Dernière intervention 12 septembre 2013
7 févr. 2012 à 13:05
Ok c'est bon j'ai vu mon erreur. C'était tout bête.
Merci à tous
0