Convertir un format en VBA

porcinet82

XLDnaute Barbatruc

• 17 Octobre 2008

• #2

Re : Convertir un format en VBA

Salut,

D'ou la nécessité de déclarer ces variables !!!!
Donc si tu veux comparer le résultats renvoyer par ton right à un nombre, déclare comme ceci : Dim test As Integer

@+

 

Vote positif 0 Vote négatif

P

Ploom

Guest

• 20 Octobre 2008

• #3

Re : Convertir un format en VBA

Ah merci pour l'info.
C'est vrai que j'oublie souvent de déclarer.

Il me reste 1 problème.
lorque j'arrive sur la ligne de code :

test = Right(a, 2)

j'ai l'erreur 13 : incompatibilité de type

effectivement "a" est un string qui peut contenir :
magasin 01, magasin 02, .... magasin 16.
Du coup je retourne à la case départ.

 

Vote positif 0 Vote négatif

M

mécano41

XLDnaute Accro

• 20 Octobre 2008

• #4

Re : Convertir un format en VBA

Bonjour,

Pourtant j'ai fait cela ( en mettant Magasin 01 à Magasin 16 en colonne C) et ça fonctionne sans problème... :

Code:

Option Explicit
Sub essai()
Dim a As String
Dim test As Long
Dim i As Long

For i = 1 To 16
    a = Cells(i, 3).Value
    test = Right(a, 2)
    If test = 12 Then
        MsgBox "oui : =12"
    Else
        MsgBox "non : = " & test
    End If
Next i
End Sub

Sinon, à tout hasard, essaie ceci : test = Right(a, 2)*1 qui force la conversion

Cordialement

 

Vote positif 0 Vote négatif

P

Ploom

Guest

• 20 Octobre 2008

• #5

Re : Convertir un format en VBA

Ah oui effectivement j'ai un autre truc qui me coince et dont je ne vous ai pas parlé :
dans ma colonne C, je n'ai pas que magasin 01,.... j'ai aussi des cellules qui se terminent par des lettres (genre magasin a, magasin b)

donc lorsque je récup les 2 derniers caractères je peux tomber sur des chiffres : 01,02, ...
ou des lettres.
si c'est des lettres, j'ignore la ligne et je passe à la suivante.

voila pourquoi ca ne marche pas

 

Vote positif 0 Vote négatif

M

mécano41

XLDnaute Accro

• 20 Octobre 2008

• #6

Re : Convertir un format en VBA

Le même essai mais qui passe à la ligne suivante si les deux derniers caractères ne constituent pas un nombre :

Code:

Option Explicit
Sub essai()
Dim a As String
Dim test As Long
Dim i As Long

For i = 1 To 16
    a = Cells(i, 3).Value
    If IsNumeric(Right(a, 2)) Then
        test = Right(a, 2)
        If test = 12 Then
            MsgBox "oui : =12"
        Else
            MsgBox "non : = " & test
        End If
    Else
            MsgBox "Pas numérique"
    End If
Next i
End Sub

Cordialement

 

Vote positif 0 Vote négatif

P

Ploom

Guest

• 20 Octobre 2008

• #7

Re : Convertir un format en VBA

1000 merci !!!
Ca marche.

effectivement il me manquait le test pour savoir si on avait affaire à des chiffres ou pas et traité l'info selon les cas.

Vraiment merci !

 

Vote positif 0 Vote négatif

porcinet82

XLDnaute Barbatruc

• 20 Octobre 2008

• #8

Re : Convertir un format en VBA

Salut,

Sinon (mais je pense que j'aurai utiliser le meme code que Mécano), tu peux déclarer en String (Dim test as String) et faire une comparaison de texte du genre If test = "12" Then

@+

 

Vote positif 0 Vote négatif

P

Ploom

Guest

• 21 Octobre 2008

• #9

Re : Convertir un format en VBA

Oui le problème c'est que je ne compare pas test à "12" mais à une autre variable. Et cette variable est numérique.

Ca marche super bien.

Merci encore (en plus j'avais mal décrit mon problème initial).

 

Vote positif 0 Vote négatif