Le portail francophone de la géomatique

concernant le chr

If Err.Number <> 0 Then
        MsgBox "Impossible de charger la référence :" & Chr(10) & "EXCEL.EXE" & Chr(10) & " Les fonction d'export sont désactivées", vbCritical, "Erreur"
        ref_excel = False
    End If

et left

reste2 = Left(reste, position - 2)

quand le bug se produit seul chr et left sont surligner de jaune

Je ne connaissais pas le vbnewline et ça marche tip top par contre pour le left il ne veut rien savoir, quand je supprime l'espace il le remet automatique et avec ou sans paranthèse rien n'y fait. Je trouve ça d'autant plus bizare que sur la ligne du dessus il y a un instr qui marche bien ...

En tout cas merci pour ton aide.

C'est un integer qui donne la position d'une virgule dans une chaine du type "1 , montexte". J'ai essayé en remplacant "reste" et "position" par des données en dur mais ça ne marche toujours pas. Le problème ne vient donc pas des variables.

voilà le début du code

Dim j As Integer
Dim reste As String
Dim reste2 As Integer
Dim position As Integer

For j = 0 To UserForms.Count - 1
  If frm = UserForms.Item(j).Name Then
    UserForms.Item(j).zl_station.Clear
    reste = UserForms.Item(j).zl_site.Value
    position = InStr(reste, ",")
    reste2 = Left(reste, position - 2)
    ...
  end if
next j

Dernière modification par tnicolas (Fri 12 March 2010 12:29)

Je pense que le problème vient de:

Tu déclares "reste2" comme étant un Intéger et la fonction Left (reste, position - 2)
te renvoie un "string" .

Dernière modification par Spacejo (Fri 12 March 2010 13:06)

Que donne --> Msgbox Left("tableau", 2) ---> "ta" non?

mmm ca me rappel quelque chose ce probleme la mais je sais plus quoi
peut etre un probleme de reference

sinon tu as essayé Left$ ?

Bonjour,

je n'ai pas trop suivi les posts précédent mais j'ai eu un problème du genre, et le truc c'est qu'il fallait préfixer mes commandes VBA , au lieu de Left(pramam, ..) essaye de mettre VBA.left(param, ...)

Julien

T'es sur qu'il te renvoie --> "1" et Non "1 " un blanc en plus.
Le "1" peut être un entier mais il peut être aussi en texte.
Par contre c'est bizarre que le code fonctionne sur la 9.1 et non sur la 9.3
Maintenant le Left$ c'est du MapBasic et non du VB

A+
Joël

Dernière modification par Spacejo (Fri 12 March 2010 18:35)

Bonjour,

Désolé pour le silence radio mais j'étais en déplacement sans conection internet.
Résultat des courses : mettre VBA. devant left and co marche bien mais il y en avait tellement dans mon code que j'ai cherché autre chose 

J'ai suivi la piste de Forestis et bingo dans la 9.3 il manquait la SpatialAnalysteUI. Le seul truc c'est que l'interface développée sous 9.3 affiche les date en mode américain alors qu'elles sont écrite en français dans la base et la 9.1 les affiche en français ...

Merci à tous pour votre aide