Problème de code

Bonsoir,

Dans mon code vba ci-joint, je veux que :

=> Si dans mon TextBox7, j'ai 24/12/2019, alors j'ai mon premier code

=> Si dans mon TextBox7, j'ai 31/12/2019, alors j'ai mon deuxième code

Je possède ce code là :

If TextBox7 = ("24/12/2019") Then

Dim i As Integer

'découpe la chaine en fonction des tirets

'le résultat de la fonction Split est stocké dans un tableau

Tableau = Split(Sheets("BDD").Range("F6").Value, "-")

'boucle sur le tableau pour visualiser le résultat

For i = 0 To UBound(Tableau)

'Le résultat s'affiche dans la fenêtre d'execution de l'éditeur de macros

'Debug.Print Tableau(i)

Next i

Sheets("BDD").Range("F6").Value = Tableau(0) & " " & "-" & " " & Tableau(1) + 1

TextBox6 = Tableau(0) & " " & "-" & " " & Tableau(1) + 1

TextBox6.Enabled = False

Exit Sub

Else

If TextBox7 = ("31/12/2019") Then

'découpe la chaine en fonction des tirets

'le résultat de la fonction Split est stocké dans un tableau

Tableau = Split(Sheets("BDD").Range("F7").Value, "-")

'boucle sur le tableau pour visualiser le résultat

For i = 0 To UBound(Tableau)

'Le résultat s'affiche dans la fenêtre d'execution de l'éditeur de macros

'Debug.Print Tableau(i)

Next i

Sheets("BDD").Range("F7").Value = Tableau(0) & " " & "-" & " " & Tableau(1) + 1

TextBox6 = Tableau(0) & " " & "-" & " " & Tableau(1) + 1

TextBox6.Enabled = False

Exit Sub

End If

End If

End Sub

Pourriez-vous me dire si mon code est correct, s'il vous plaît ?

Merci par avance,

Storm28

Pour aider

Est-il possible de faire ceci en code :

• Si dans ma combobox2 = je sélectionne 24/12/2019, alors dans mon TextBox6, je dois avoir "NOEL2019-1"
• Si dans ma combobox2 = je sélectionne 31/12/2019, alors dans mon TextBox6, je dois avoir "YEAR2019-1"

Merci par avance,

Storm28

Bonsoir,

Je relance mon sujet.

Merci par avance,

Storm28

Relance de sujet

Merci par avance

Bonjour,

Storm28 a écrit :

... Est-il possible de faire ceci en code :

• Si dans ma combobox2 = je sélectionne 24/12/2019, alors dans mon TextBox6, je dois avoir "NOEL2019-1"
• Si dans ma combobox2 = je sélectionne 31/12/2019, alors dans mon TextBox6, je dois avoir "YEAR2019-1" ...

If me.combobox2 = "24/12/2019" then me.TextBox6 = "NOEL2019-1"
If me.combobox2 = "31/12/2019" then me.TextBox6 = "YEAR2019-1"

ric

ok mais par contre, je dois le mettre où ?

Private Sub Combobox2_Change() ??

Ok C'est bon !

Merci

Bonjour,

Storm28 a écrit :

... If TextBox7 = ("24/12/2019") Then ...

... Pourriez-vous me dire si mon code est correct, s'il vous plaît ? ...

À part les parenthèses englobant les dates ... elles sont inutiles ... c'est opérationnel.

ric