Problème d'incompatibilité de forme

Signaler
Messages postés
35
Date d'inscription
mercredi 4 janvier 2012
Statut
Membre
Dernière intervention
12 septembre 2013
-
Messages postés
35
Date d'inscription
mercredi 4 janvier 2012
Statut
Membre
Dernière intervention
12 septembre 2013
-
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

Messages postés
18038
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
239
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
Messages postés
14827
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
23 octobre 2021
157
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
Messages postés
35
Date d'inscription
mercredi 4 janvier 2012
Statut
Membre
Dernière intervention
12 septembre 2013

Ok c'est bon j'ai vu mon erreur. C'était tout bête.
Merci à tous