XL 2016 Message d'erreur VBA codes postaux + TB en majuscules

[bidoutche]

Bonjour,

J'ai créé un document VBA . J'ai insérer ce code pour les codes postaux et les villes

Private Sub TextBox_CP_Change()
If Len(Me.TextBox_CP.Value) < 5 Then Exit Sub

Me.COMBO_VILLE = ""
With Me.COMBO_VILLE
.Clear
For Each Cel In Sheets("CP").Columns(1).SpecialCells(xlCellTypeConstants)
If Me.TextBox_CP.Value = Format(Cel.Value, "00000") Then .AddItem Cel.Offset(0, 1).Value
Next
.SetFocus
.DropDown
End With

End Sub

Private Sub COMBO_VILLE_Change()
For Each Cel In Sheets("CP").Columns(2).SpecialCells(xlCellTypeConstants)
If Me.TextBox_CP.Value <> "" Then
If UCase(Cel) = UCase(Me.COMBO_VILLE) And Cel.Offset(0, -1) = Me.TextBox_CP And Cel.Row > 1 Then
Me.COMBO_VILLE = Format(Cel.Value, "00000")
Me.TextBox_CP = Format(Cel.Offset(0, -1), "00000")
Exit Sub
End If

Next
End Sub
J'ai des messages d'erreur sur le format. quelqu'un peut m'aider?

Autre message d'erreur sur des textbox que je souhaite en majuscules
'Private Sub TextBox93_Change()
'TextBox93.Value = UCase(TextBox93.Value)
'End Sub

refus de reconnaître ce code
Je vous remercie de votre aide

 

[youky(BJ)]

Bonjour bidoutche,
La colonne des CP doit être en format text et non en nombre ou standard
La macro Private Sub COMBO_VILLE_Change() est à supprimer
Voici la macro
Bruno

Private Sub TextBox_CP_Change()
Me.COMBO_VILLE = ""
If Len(Me.TextBox_CP.Value) <> 5 Then Exit Sub

With Me.COMBO_VILLE
.Clear
For Each Cel In Sheets("CP").Columns(1).SpecialCells(xlCellTypeConstants)
If Me.TextBox_CP.Value = Cel.Text Then .AddItem Ucase(Cel.Offset(0, 1).Value)
Next
.SetFocus
.DropDown
End With

End Sub

 

[bidoutche]

super merci. j'essaie dès demain et reviens vers vous.

un grand merci encore

 

[bidoutche]

Bonjour,
Je viens d'essayer cela fonctionne si j'enlève Ucase . je pense que mon ordi n'aime pas Ucase : les TB formatées Ucase, il mes les génère en erreur.
mais pour le moment les codes postaux cela fonctionne.

Merci encore pour cette aide précieuse

 

[Roland_M]

bonsoir tout le monde,

regardes un peu du côté vba les références, il doit y avoir un manquant !?
barre en haut> Outils
dans la liste> Références ...

s'il y en a tu décoches !