VBA Cellule Texte + 1

[yusukens]

Bonjour

Je viens solliciter le forum pour une information en VBA

Est-ce possible de dire en VBA qu'il aille chercher une cellule et delui demander de rajouter un chiffre.
la réponse et oui,
mais est-ce possible sur une cellule qui contient un texte suivi d'un nombre ??

par exemple : la cellule est "Reférence 50"

j'aimerai qu'il rajoute 1 sur cette cellule pour avoir "Reférence 51" que je metterai sur un TextBox

Voila mon code :

Private Sub OptionButton1_Click()
Dim DerRefHo

If OptionButton1.Value = True Then

Worksheets("RefHo").Activate
DerRefHo = Range("A1").End(xlDown).Select

TextBox1.Value = DerRefHo + 1

End If

End Sub

Merci de votre aide.

 

[porcinet82]

Re : VBA Cellule Texte + 1

Salut,

Quelques informations avant de donner une réponse :
- Est ce que le mot sera toujours le meme ?
- Est ce que la cellule ne contiendra qu'un seul mot puis un seul nombre ?
- Si il y a plusieurs mots, est ce qu'ils sont séparés par un espace ?

Avec ces info, il devrait plus facile de t'apporter une solution.

@+

 

[yusukens]

Re : VBA Cellule Texte + 1

Salut porcinet82

- Est ce que le mot sera toujours le meme ?
Oui il sera toujours le même

- Est ce que la cellule ne contiendra qu'un seul mot puis un seul nombre ?
Oui il y aura toujours un seul mot suivi d'un nombre

- Si il y a plusieurs mots, est ce qu'ils sont séparés par un espace ?
Sans commentaire (un seul mot)


Merci pour ton aide.

 

[porcinet82]

Re : VBA Cellule Texte + 1

re,

Bon, je m'etais préparé a quelque chose de plus général, donc je mets quand meme le code qui est censé fonctionner quelque soit le nombre de mots, tant que nombre se trouve a la fin (je suppose dans le code ci-dessous que le mot est en A1 et la reponse est renvoyée en B1 ):

Sub test()
Dim nombre&, k%, valeur As Variant, texte$
For k = 1 To Len(Cells(1, 1).Value)
    On Error Resume Next
    valeur = CInt(Mid(Cells(1, 1).Value, k, 1))
    On Error GoTo 0
    If IsEmpty(valeur) = False Then
        nombre = nombre & CInt(Mid(Cells(1, 1).Value, k, 1))
        If texte = "" Then texte = Left(Cells(1, 1).Value, k - 2)
    End If
Next k
Cells(1, 2).Value = texte & " " & nombre + 1
End Sub

Par contre, dans ton cas de figure, le code suivant devrait suffire :

Cells(1, 2).Value = "Référence " & Mid(Cells(1, 1).Value, 10, 15) + 1

@+

 

[Excel_lent]

Re : VBA Cellule Texte + 1

Salut Yusukens, Porcinet. Bonjour à tous et aux autres.

Avec "Référence " pour tous les cas, un code à tester :

Private Sub OptionButton1_Click()
Dim DerRefHo$

If OptionButton1.Value = True Then
  Worksheets("RefHo").Activate
  DerRefHo = Range("A1").End(xlDown)
  TextBox1.Value = "Référence " & Right(DerRefHo, Len(DerRefHo) - 10) + 1
End If

End Sub

 

[yusukens]

Re : VBA Cellule Texte + 1

Merci porcinet82, et Excel_lent
J'ai mis dans ma base les function :
Mid
Right
et Len

ça me servira plus tard.
j'ai opté pour la solution Mid

Merci a vous deux