Contenu nombre ou texte ?

Bonjour à tous,

Voilà j'ai un petit fichier que j'ai déjà soumis sur le forum.

Aujourd'hui après avoir modifier le code et suivi les conseils que l'on m'avait donné, je rencontre un autre problème.

En effet, j'ai le contenu d'une ComboBox qui peut etre soit un chiffre ou un nombre de 1 à 17 ou du "text" de 7a à 7i

Comment pourrais-je différencier dans mon tableau si le choix est un chiffre ou du text ?

Private Sub tartempiont_click()

Dim Ln as integer

For each ComboBox1.value
from 1 to 17
.range("A" & ln).value = CDbl(ComboBox1.value)

From 7a to 7b
.range ("A" & ln).value = ComboBox1

Est ce que ceci est correct ?

Au plaisir de vous lire,

Cordialement,

Bonjour,

regarde peut être du coté de la fonction "IsNumeric", devrait solutionner ton problème.

bon après midi

@+

   If ZoneBox.Value.IsText Then
        .Range("D" & Ln).Value = ZoneBox.Value
        ElseIf ZoneBox.Value.IsNumber Then
        .Range("D" & Ln).Value = CDbl(ZoneBox.Value)
        End If

Désolé Pierrot mais ça ne marche pas.

Je veux juste qu'il reporte le contenu de ZoneBox en colonne D si c'est une valeur de 7a à 7i en format texte ou si c'est une valeur comprise entre 1 et 6 ou 8 et 17.

(En faite je n'ai fait que découper ma zone 7 en 9 sous zone appelée 7a à 7i)

Cordialement

Valider j'ai fait un If avec mes 25 choix et pour ce ou le choix correspondais à une valeur numerique j'ai mis :

If ComboBox1.value = 1 then range("A1") = CDbl("Combobox1").value
If ComboBox1.value = 7a then range("A1") = ComboBox1.value

 If isnumeric(ZoneBox.Value) Then