Recherche la plus grande valeur +1

[matrix]

Bonjour,

Je rencontre un problème.

Je voudrais en VBA excel, en cliquant sur un bouton dans un userform, qu'il me cherche dans la colonne A, le numéro le plus gros et m'affiche dans le texbox1 la valeur trouvé + 1.

Mon problème est que les numéro ressemble à BP0001, BP0002 etc.

Pouvez-vous m'aider svp?

Merci!

 

[Staple1600]

Re : Recherche la plus grande valeur +1

Bonjour



Une piste à déblayer (car solution très neigeuse 😉 )

Function Chiffre(Valtexte As Range)
'
'[URL="http://groups.google.fr/group/microsoft.public.fr.excel/msg/97bf61b576fe801c"]origine de la fonction[/URL]
Dim i As Byte
For i = 1 To Len(Valtexte)
If Asc(Mid(Valtexte, i, 1)) >= 48 And Asc(Mid(Valtexte, i, 1)) <= 57 Then
Chiffre = Val(Chiffre & Mid(Valtexte, i, 1))
End If
Next
End Function
Sub test()
For i = [A65536].End(xlUp).Row To 1 Step -1
Cells(i, 2) = Chiffre(Cells(i, 1))
Next i
MsgBox Application.WorksheetFunction.Max(Range("B1:B" & [B65536].End(xlUp).Row)) + 1
Columns(2).Delete
End Sub

 

[matrix]

Re : Recherche la plus grande valeur +1

Merci.

¨Ca me donne un erreur: Cells(i, 2).Value = Chiffre(Cells(i, 1)).Value


erreur d'exécution 424:
Objet requis.

Qu'est ce que ça veut dire?

 

[Staple1600]

Re : Recherche la plus grande valeur +1

Re


Comme cela, ça fonctionne

Sub test()
For i = [A65536].End(xlUp).Row To 1 Step -1
Cells(i, 2) = Chiffre(Cells(i, 1))
Next i
MsgBox Application.WorksheetFunction.Max(Range("B1:B" & [B65536].End(xlUp).Row)) + 1
Columns(2).Delete
End Sub

Voir le classeur joint

 

[matrix]

Re : Recherche la plus grande valeur +1

Oh merci, ça fonctionne super.

Je dois juste enllever la section Columns(2).Delete et le tour est joué.

Merci encore! 😛