Discussion :

[linkcr15]

Bonjour,

J'ai un problème. J'ai des chiffres dans une colonne d'un tableau Excel et je souhaiterais reprendre ces valeurs dans des variables VBA, cependant il est impossible de faire ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

numeroTermine = feuilTermine.Cells(LigneTermine, 1).Value

J'ai vu qu'il existait une fonction CInt, j'ai donc essayé mais j'ai le même résultat, c'est à dire une belle erreur.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

numeroTermine = CInt(feuilTermine.Cells(LigneTermine, 1).Value)

Pouvez-vous m'aider à récupérer cette valeur svp?

[-N4w4k-]

Essaie ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Dim i As Integer = 0
Dim txt As String = "12"
 
If Integer.TryParse(txt,i) Then
    'reussite
Else
    'echec
End If

Documentation msdn de Int32.TryParse, méthode (String, Int32%)

[linkcr15]

Désolé N4w4k, je viens de trouver une autre fonction ^^ La voici :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

numeroTermine = Val(feuilTermine.Cells(LigneTermine, 1).Value)

Merci quand même pour ton aide c'est sympa

[-N4w4k-]

J'ai appris il y a pas longtemps que la fonction Val()était obsolète , et qu'il fallait éviter de l'utiliser (topic).
Je pense que tu devrais essayer avec Integer.TryParse() ou Integer.Parse() si tu es certain que la chaine de caractère que tu veux convertir peut être convertit (sinon tu as un exception contrairement à Integer.TryParse())

[linkcr15]

Oui oui je suis certain qu'ils peuvent être convertis, je n'ai que des chiffres dans mes cellules, pas de soucis pour ça ^^

Je vais essayer ta fonction alors, je te redis quoi.

EDIT : J'ai éssayé ta fonction et il ne veut pas me l'effectuer. Je l'ai écrite comme cela :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Integer.TryParse(feuilTermine.Cells(LigneTermine, 1).Value, numeroTermine) then

Il me met l'erreur sur "Integer" et il dit qu'il attend une expression à la place.

[-N4w4k-]

feuilTermine.Cells(LigneTermine, 1).Value ne doit pas être de type String..

Pour que ça marche, écrit plutôt feuilTermine.Cells(LigneTermine, 1).Value.ToString().

Et donc si ce sont QUE des nombres entiers, tu peux directement écrire:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

numeroTermine  = Integer.Parse(feuilTermine.Cells(LigneTermine, 1).Value.ToString())