Erreur incompatibilite de type avec caracteres speciaux

[jacky]

Bonjour a tous,

La macro associé a usf ne fonctionne pas lorsque j' ai un caractère spécial dans la colonne.
Est ce que quelqu'un aurait une solution..
L' usf consiste a remplir la bd j' ai placé des explications dans le fichier.

Merci pour votre attention

 

[camarchepas]

Re : Erreur incompatibilite de type avec caracteres speciaux

Bonjour Jacky,

Bon c'est pour le fun car tu pourrais tout simplement choisir une police ou le 0 est barré.

Voici l'extrait de code à modifier , a noter :
Pourquoi utiliser Cdbl alors que tu n'auras que des entiers? , les entiers long sont plus appropriés
Création d'un tampon pour gérer l'exception plus clairement
le 'iif' est une forme contractée du 'if then else end if', très pratique pour affecter une variable
Clng permet la convertion de la chaine en type entier long
Si d'autre caractères bizaroïdes sont à prévoir alors , il faudra revoir cette solution.

Dim lig As Long, col As Long, k As Long
Dim Tampon As String
For k = 1 To 10 'boucle sur les 10 combo
If Me.Controls("ComboBoxind" & k) = "" Or Me.Controls("ComboBoxnum" & k) = "" Then GoTo saute
Tampon = IIf(IsNumeric(Me.Controls("ComboBoxind" & k)), Me.Controls("ComboBoxind" & k), 0)
col = CLng(Tampon)

 

[jacky]

Re : Erreur incompatibilite de type avec caracteres speciaux

Salut Nono,

Ca a l' air de fonctionner, j ne veux pas que les valeurs 0 s' affiche dans toutes les cellules avec formule, le fichier original fait 5mo avec beaucoup de macro les indices sont crées automatiquement suivant la premiére valeur choisi avec pour certaine chaine des caractères spéciaux " il me faudrait tout revoir "

Merci beaucoup pour ta solusion