Discussion :

[capi81]

Salut le forum

Qu'est qui ne va pas dans mon code.
J'ai un control et je souhaite que la caption change de nom selon ces conditions:
- condition 1:je souhaite que si les 5 premières lettres de la facturier!I24 = "DEVIS" que la caption soit "Etablir_Devis" sinon la caption devra être "Etablir_Facture"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
On Error Resume Next
Select Case Sheets("Facturier").Range("I24").Value
Case Left(UCase(Sheets("Facturier").Range("I24").Value), 5) = "DEVIS"
CommandButton3.Caption = "ETABLIR_DEVIS"
Else:CommandButton3.Caption = "ETABLIR_FACTURE"
End Select

Merci de m'aider

[gFZT82]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
    Select Case Left(UCase(Sheets("Facturier").Range("I24").Value), 5)
        Case "DEVIS"
            CommandButton3.Caption = "ETABLIR_DEVIS"
        Case Else
            CommandButton3.Caption = "ETABLIR_FACTURE"
    End Select

Cordialement.

[Marc-L]

Salut,

ou encore

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
    CommandButton3.Caption = "ETABLIR_" & IIf(Left(UCase(Sheets("Facturier").[I24].Value), 5) _
                           = "DEVIS", "DEVIS", "FACTURE")

__________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

[capi81]

Merci à tous pour vos riches contributions.