je désire savoir comment faire pour récupérer le plus petit nombre dans une
cellule lorsque par exemple j'ai dans cette cellule la chaine de caractère
suivante:
"#9 to #11"
j'utilise excel 2000
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Daniel
Bonjour. Essaie :
Sub test() Dim i As Integer, Car As String, Nbr, Min For i = 1 To Len(Selection) + 1 Car = Mid(Selection.Value, i, 1) Select Case Car Case 0 To 9 Nbr = Nbr & Car Case ".", "," If Nbr <> "" Then Nbr = Nbr & Car Case Else If Nbr <> "" Then Nbr = CDbl(Nbr) If Nbr < Min Or Min = 0 Then Min = Nbr Nbr = "" End If End Select Next i MsgBox Min End Sub
Cordialement. Daniel "franck" a écrit dans le message de news:
bonjour,
je désire savoir comment faire pour récupérer le plus petit nombre dans une cellule lorsque par exemple j'ai dans cette cellule la chaine de caractère suivante: "#9 to #11" j'utilise excel 2000
merci d'avance pour votre aide franck
Bonjour.
Essaie :
Sub test()
Dim i As Integer, Car As String, Nbr, Min
For i = 1 To Len(Selection) + 1
Car = Mid(Selection.Value, i, 1)
Select Case Car
Case 0 To 9
Nbr = Nbr & Car
Case ".", ","
If Nbr <> "" Then Nbr = Nbr & Car
Case Else
If Nbr <> "" Then
Nbr = CDbl(Nbr)
If Nbr < Min Or Min = 0 Then Min = Nbr
Nbr = ""
End If
End Select
Next i
MsgBox Min
End Sub
Cordialement.
Daniel
"franck" <franck@discussions.microsoft.com> a écrit dans le message de news:
2F6A8E24-2A02-4C1D-953D-B18640905B16@microsoft.com...
bonjour,
je désire savoir comment faire pour récupérer le plus petit nombre dans
une
cellule lorsque par exemple j'ai dans cette cellule la chaine de caractère
suivante:
"#9 to #11"
j'utilise excel 2000
Sub test() Dim i As Integer, Car As String, Nbr, Min For i = 1 To Len(Selection) + 1 Car = Mid(Selection.Value, i, 1) Select Case Car Case 0 To 9 Nbr = Nbr & Car Case ".", "," If Nbr <> "" Then Nbr = Nbr & Car Case Else If Nbr <> "" Then Nbr = CDbl(Nbr) If Nbr < Min Or Min = 0 Then Min = Nbr Nbr = "" End If End Select Next i MsgBox Min End Sub
Cordialement. Daniel "franck" a écrit dans le message de news:
bonjour,
je désire savoir comment faire pour récupérer le plus petit nombre dans une cellule lorsque par exemple j'ai dans cette cellule la chaine de caractère suivante: "#9 to #11" j'utilise excel 2000
merci d'avance pour votre aide franck
Frédo P
Bonsoir Franck Ça ne se bouscule pas au portillon ,.... les vacances!! en A1 :"#9 to #11" .Le résultat en B1 pour des nombres ne dépassant pas 2 chiffres.
Sub Cherche Dim i While [B1] = 0 i = i + 1 If InStr([A1], i) > 0 And Not IsNumeric(Mid([A1], 1 + InStr([A1], i), 1)) Then [B1] = i End If Wend End Sub -- Fred Pour répondre, ôtez "nsp"
Bonsoir Franck
Ça ne se bouscule pas au portillon ,.... les vacances!!
en A1 :"#9 to #11" .Le résultat en B1 pour des nombres ne dépassant pas 2
chiffres.
Sub Cherche
Dim i
While [B1] = 0
i = i + 1
If InStr([A1], i) > 0 And Not IsNumeric(Mid([A1], 1 + InStr([A1], i), 1))
Then
[B1] = i
End If
Wend
End Sub
--
Fred
Pour répondre, ôtez "nsp"
Bonsoir Franck Ça ne se bouscule pas au portillon ,.... les vacances!! en A1 :"#9 to #11" .Le résultat en B1 pour des nombres ne dépassant pas 2 chiffres.
Sub Cherche Dim i While [B1] = 0 i = i + 1 If InStr([A1], i) > 0 And Not IsNumeric(Mid([A1], 1 + InStr([A1], i), 1)) Then [B1] = i End If Wend End Sub -- Fred Pour répondre, ôtez "nsp"
