Remplissage conditionnel

[Laurent]

Bonjour au forum

J'aurais besoins d'une petite info,

Dans un USF j'ai un comboBox et une TxtBox et je voudrais recopier le contenu de l'une ou de l'autre.

Je m'explique, si la combobox est vide je remplis la cellule avec le contenu de la Txtbox
et si la TxtBox est vide je remplis la cellule avec le contenu de la combobox

La textBox et la ComboBox ne pouvant pas être toutes les 2 remplies...

Si quelqu'un a une idée pour me sortir de ce casse tête...

Merci d'avance,

Laurent

 

[Robert]

Bonjour Laurent, bonjour le forum,

Disons que ton combobox soit ComboBox1, ton textbox soit TextBox1, la cellule à remplir soit A1 et le bouton de validation de ton USF soit CommandButton1. Tu pourrais avoir cela.

Private Sub CommandButton1_Click()
If ComboBox1.Value = "" Then
Range("A1").Value = TextBox1.Value
End If
If TextBox1.Value = "" Then
Range("A1").Value = ComboBox1.Value
End If
End Sub

À plus,

Robert

 

[Laurent]

Que dire,

C'est super Robert, ça marche comme je le voulais.

je voudrais pas abuser mais sais tu comment faire pour indiquer un message d'erreur si 2 textBox sont remplies

Merci encore

Laurent

 

[le CH'TI160]

Salut "Robert et Laurent"
Re le "FORUM"
cela pourrait aller a rajouter au bas du
Private Sub commandButton1_Click() de Laurent

If TextBox1.Value <> " " And TextBox2.Value <> " " Then
MsgBox "les deux textBox sont remplies"
End If
A+++
Jean Marie

 

[Robert]

Re Salut Laurent, salut le forum,

la même avec un message (que tu adapteras).

Private Sub CommandButton1_Click()
If ComboBox1.Value = "" Then
Range("A1").Value = TextBox1.Value
End If
If TextBox1.Value = "" Then
Range("A1").Value = ComboBox1.Value
End If
Dim a As Byte
a = MsgBox("ton message...", 17, "Attention")
If a = 1 Then
'ce que tu dois faire si tu cliques sur "OK"
End If
End Sub

 

[Robert]

Salut Jean-Marie,

Hoops j'avais oublié la condition ! Heureusement que Jean-Marie est passé par là...

donc revu et corrigé, si tu souhaites garder ce système (celui de Jean Marie est bien mieux si tu ne veux que le message)

Private Sub CommandButton1_Click()
If ComboBox1.Value = "" Then
Range("A1").Value = TextBox1.Value
End If
If TextBox1.Value = "" Then
Range("A1").Value = ComboBox1.Value
End If
If TextBox1.Value <> " " And TextBox2.Value <> " " Then
Dim a As Byte
a = MsgBox("ton message...", 17, "Attention")
If a = 1 Then
'ce que tu dois faire si tu cliques sur "OK"
End If
End If
End Sub



Robert

 

[Laurent]

Merci à Robert et Jean Marie

Ca fonctionne même si je dois encore faire quelques adaptations... Mais ça m'enlève quand même une grosse épine du pied.

Merci beaucoup encore

A+
laurent

 

[Laurent]

Rebonjour,

Dites moi est-ce que j'abuserais si je vous demandais comment faire pour que quand je suis sur la page2 du multipage1 de mon Usf je puisse aller vers la page1 de ce même multipage.

Merci d'avance,

Laurent

 

[Robert]

Salut Laurent, Jean-Marie, le forum,

Désolé Laurent mais je n'ai encore jamais utilisé de multi-page et je ne sais donc pas comment faire. Si j'ai un petit moment (je suis au boulot), j'y jeterai un coup d'œil.

À plus,

Robert