Convertir un String en Entier

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:

---

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:

---

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

---

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

Essaie ceci:

Code:

---

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%)

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

Code:

---

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

---

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

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())

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:

---

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.

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:

---

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

---