Erreur 438

Robert

XLDnaute Barbatruc

Repose en paix

• 27 Juillet 2014

• #2

Re : Erreur 438

Bonsoir Cougar, bonsoir le forum,

Difficile de t'aider car chez moi je n'ai aucune erreur et je peux donc sélectionner n'importe quel #lift.
Que ce soit Raymond 1, Raymond 2, Raymond 4 ou Toyota, tout baigne... Ça me renvoie bien le texte conditionnel dans la TextBox6.

 

Vote positif 0 Vote négatif

Patrice33740

XLDnaute Impliqué

• 27 Juillet 2014

• #3

Re : Erreur 438

Bonjour,

Il y a une erreur de syntaxe dans ton code (Offtset au lieu de Offset)

Private Sub CommandButton1_Click()
Range("a65536").End(xlUp).Offset(1, 0).Select
Activell = TextBox1.Text
ActiveCell.Offtset(0, 1) = ComboBox1
...

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

Modeste geedee

XLDnaute Barbatruc

• 27 Juillet 2014

• #4

Re : Erreur 438

Bonsour®

ActiveCell.Offtset(0, 1) = ComboBox1

Cliquez pour agrandir...

commencer par corriger l'orthographe des mots clés
en otant le "t" dans offtset !!!!!

et puis aussi :
Activell = TextBox1.Text

ActiveCEll = TextBox1.Text

Cliquez pour agrandir...

bien vu Patrice33740 ....

 

Dernière édition: 28 Juillet 2014

Vote positif 0 Vote négatif

C

Cougar

XLDnaute Impliqué

• 27 Juillet 2014

• #5

Re : Erreur 438

Bonjours à tous, le forum,

Oups, il est temps de j'arrête.

Merci

 

Vote positif 0 Vote négatif

Patrice33740

XLDnaute Impliqué

• 28 Juillet 2014

• #6

Re : Erreur 438

Bonjour Cougar,

Je n'avais pas la seconde erreur Activell = TextBox1.Text signalée par Modeste (bien vu !).

Mais VBA détecte automatiquement ce genre d'erreur, lorsqu'on utilise de façon systématique :

Code:

Option Explicit

au début de chaque module.

C'est à mon avis une excellente habitude à prendre .

 

Vote positif 0 Vote négatif