Activation combobox et desactivation des autre

Le 06/09/2015 à 20:57

Bonjour

Je voulais s'avoir si'il y avait une fonction de dire si texte dans combobox 10 est vraie alors la combobox 2 est activer tandis que toute les autres sont desactiver...

J'ai fait ca mais je trouve que je me repete...

If ComboBox10.Text = "BOTTOM" = True Then
  ComboBox1.Enabled = True
  ComboBox1.BackStyle = fmBackStyleOpaque
  ComboBox1.BackColor = &HFFFFFF
  TextBox1.BackColor = &HFFFFFF

  ComboBox2.Enabled = False
   ComboBox2.Value = Clear
   TextBox2.Value = Clear
   ComboBox2.BackStyle = fmBackStyleOpaque
   ComboBox2.BackColor = &H80000010
   TextBox2.BackColor = &H80000010

  ComboBox3.Enabled = False
  ComboBox3.Value = Clear
  TextBox3.Value = Clear
  ComboBox3.BackStyle = fmBackStyleOpaque
  ComboBox3.BackColor = &H80000010
  TextBox3.BackColor = &H80000010

  ComboBox4.Enabled = False
  ComboBox4.Value = Clear
  TextBox4.Value = Clear
  ComboBox4.BackStyle = fmBackStyleOpaque
  ComboBox4.BackColor = &H80000010
  TextBox4.BackColor = &H80000010

  ComboBox5.Enabled = False
  ComboBox5.Value = Clear
  TextBox5.Value = Clear
  ComboBox5.BackStyle = fmBackStyleOpaque
  ComboBox5.BackColor = &H80000010
  TextBox5.BackColor = &H80000010

  ComboBox6.Enabled = False
  ComboBox6.Value = Clear
  TextBox6.Value = Clear
  ComboBox6.BackStyle = fmBackStyleOpaque
  ComboBox6.BackColor = &H80000010
  TextBox6.BackColor = &H80000010

  ComboBox7.Enabled = False
  ComboBox7.Value = Clear
  TextBox7.Value = Clear
  ComboBox7.BackStyle = fmBackStyleOpaque
  ComboBox7.BackColor = &H80000010
  TextBox7.BackColor = &H80000010

  ComboBox8.Enabled = False
  ComboBox8.Value = Clear
  TextBox8.Value = Clear
  ComboBox8.BackStyle = fmBackStyleOpaque
  ComboBox8.BackColor = &H80000010
  TextBox8.BackColor = &H80000010

End If

If ComboBox10.Text = "SIDE SHELL" = True Then
  ComboBox2.Enabled = True
  ComboBox2.BackStyle = fmBackStyleOpaque
  ComboBox2.BackColor = &HFFFFFF
  TextBox2.BackColor = &HFFFFFF

  ComboBox1.Enabled = False
  ComboBox1.Value = Clear
  TextBox1.Value = Clear
  ComboBox1.BackStyle = fmBackStyleOpaque
  ComboBox1.BackColor = &H80000010
  TextBox1.BackColor = &H80000010

  ComboBox3.Enabled = False
  ComboBox3.Value = Clear
  TextBox3.Value = Clear
  ComboBox3.BackStyle = fmBackStyleOpaque
  ComboBox3.BackColor = &H80000010
  TextBox3.BackColor = &H80000010

  ComboBox4.Enabled = False
  ComboBox4.Value = Clear
  TextBox4.Value = Clear
  ComboBox4.BackStyle = fmBackStyleOpaque
  ComboBox4.BackColor = &H80000010
  TextBox4.BackColor = &H80000010

  ComboBox5.Enabled = False
  ComboBox5.Value = Clear
  TextBox5.Value = Clear
  ComboBox5.BackStyle = fmBackStyleOpaque
  ComboBox5.BackColor = &H80000010
  TextBox5.BackColor = &H80000010

  ComboBox6.Enabled = False
  ComboBox6.Value = Clear
  TextBox6.Value = Clear
  ComboBox6.BackStyle = fmBackStyleOpaque
  ComboBox6.BackColor = &H80000010
  TextBox6.BackColor = &H80000010

  ComboBox7.Enabled = False
  ComboBox7.Value = Clear
  TextBox7.Value = Clear
  ComboBox7.BackStyle = fmBackStyleOpaque
  ComboBox7.BackColor = &H80000010
  TextBox7.BackColor = &H80000010

  ComboBox8.Enabled = False
  ComboBox8.Value = Clear
  TextBox8.Value = Clear
  ComboBox8.BackStyle = fmBackStyleOpaque
  ComboBox8.BackColor = &H80000010
  TextBox8.BackColor = &H80000010
  End If

If ComboBox10.Text = "TRANSVERSE BULHKEAD" Then
 ComboBox3.Enabled = True
  ComboBox3.BackStyle = fmBackStyleOpaque
  ComboBox3.BackColor = &HFFFFFF
  TextBox3.BackColor = &HFFFFFF

  ComboBox1.Enabled = False
  ComboBox1.Value = Clear
  TextBox1.Value = Clear
  ComboBox1.BackStyle = fmBackStyleOpaque
  ComboBox1.BackColor = &H80000010
  TextBox1.BackColor = &H80000010

  ComboBox2.Enabled = False
  ComboBox2.Value = Clear
  TextBox2.Value = Clear
  ComboBox2.BackStyle = fmBackStyleOpaque
  ComboBox2.BackColor = &H80000010
  TextBox2.BackColor = &H80000010

  ComboBox4.Enabled = False
  ComboBox4.Value = Clear
  TextBox4.Value = Clear
  ComboBox4.BackStyle = fmBackStyleOpaque
  ComboBox4.BackColor = &H80000010
  TextBox4.BackColor = &H80000010

  ComboBox5.Enabled = False
  ComboBox5.Value = Clear
  TextBox5.Value = Clear
  ComboBox5.BackStyle = fmBackStyleOpaque
  ComboBox5.BackColor = &H80000010
  TextBox5.BackColor = &H80000010

  ComboBox6.Enabled = False
  ComboBox6.Value = Clear
  TextBox6.Value = Clear
  ComboBox6.BackStyle = fmBackStyleOpaque
  ComboBox6.BackColor = &H80000010
  TextBox6.BackColor = &H80000010

  ComboBox7.Enabled = False
  ComboBox7.Value = Clear
  TextBox7.Value = Clear
  ComboBox7.BackStyle = fmBackStyleOpaque
  ComboBox7.BackColor = &H80000010
  TextBox7.BackColor = &H80000010

  ComboBox8.Enabled = False
  ComboBox8.Value = Clear
  TextBox8.Value = Clear
  ComboBox8.BackStyle = fmBackStyleOpaque
  ComboBox8.BackColor = &H80000010
  TextBox8.BackColor = &H80000010
  End If

If ComboBox10.Text = "LONGITUDINAL BULKHEAD" = True Then
  ComboBox4.Enabled = True
  ComboBox4.BackStyle = fmBackStyleOpaque
  ComboBox4.BackColor = &HFFFFFF
  TextBox4.BackColor = &HFFFFFF

  ComboBox1.Enabled = False
  ComboBox1.Value = Clear
  TextBox1.Value = Clear
  ComboBox1.BackStyle = fmBackStyleOpaque
  ComboBox1.BackColor = &H80000010
  TextBox1.BackColor = &H80000010

  ComboBox2.Enabled = False
  ComboBox2.Value = Clear
  TextBox2.Value = Clear
  ComboBox2.BackStyle = fmBackStyleOpaque
  ComboBox2.BackColor = &H80000010
  TextBox2.BackColor = &H80000010

  ComboBox3.Enabled = False
  ComboBox3.Value = Clear
  TextBox3.Value = Clear
  ComboBox3.BackStyle = fmBackStyleOpaque
  ComboBox3.BackColor = &H80000010
  TextBox3.BackColor = &H80000010

  ComboBox5.Enabled = False
  ComboBox5.Value = Clear
  TextBox5.Value = Clear
  ComboBox5.BackStyle = fmBackStyleOpaque
  ComboBox5.BackColor = &H80000010
  TextBox5.BackColor = &H80000010

  ComboBox6.Enabled = False
  ComboBox6.Value = Clear
  TextBox6.Value = Clear
  ComboBox6.BackStyle = fmBackStyleOpaque
  ComboBox6.BackColor = &H80000010
  TextBox6.BackColor = &H80000010

  ComboBox7.Enabled = False
  ComboBox7.Value = Clear
  TextBox7.Value = Clear
  ComboBox7.BackStyle = fmBackStyleOpaque
  ComboBox7.BackColor = &H80000010
  TextBox7.BackColor = &H80000010

  ComboBox8.Enabled = False
  ComboBox8.Value = Clear
  TextBox8.Value = Clear
  ComboBox8.BackStyle = fmBackStyleOpaque
  ComboBox8.BackColor = &H80000010
  TextBox8.BackColor = &H80000010
  End If

If ComboBox10.Text = "WEB FRAME" = True Then
 ComboBox5.Enabled = True
  ComboBox5.BackStyle = fmBackStyleOpaque
  ComboBox5.BackColor = &HFFFFFF
  TextBox5.BackColor = &HFFFFFF

  ComboBox1.Enabled = False
  ComboBox1.Value = Clear
  TextBox1.Value = Clear
  ComboBox1.BackStyle = fmBackStyleOpaque
  ComboBox1.BackColor = &H80000010
  TextBox1.BackColor = &H80000010

  ComboBox2.Enabled = False
  ComboBox2.Value = Clear
  TextBox2.Value = Clear
  ComboBox2.BackStyle = fmBackStyleOpaque
  ComboBox2.BackColor = &H80000010
  TextBox2.BackColor = &H80000010

  ComboBox3.Enabled = False
  ComboBox3.Value = Clear
  TextBox3.Value = Clear
  ComboBox3.BackStyle = fmBackStyleOpaque
  ComboBox3.BackColor = &H80000010
  TextBox3.BackColor = &H80000010

  ComboBox4.Enabled = False
  ComboBox4.Value = Clear
  TextBox4.Value = Clear
  ComboBox4.BackStyle = fmBackStyleOpaque
  ComboBox4.BackColor = &H80000010
  TextBox4.BackColor = &H80000010

  ComboBox6.Enabled = False
  ComboBox6.Value = Clear
  TextBox6.Value = Clear
  ComboBox6.BackStyle = fmBackStyleOpaque
  ComboBox6.BackColor = &H80000010
  TextBox6.BackColor = &H80000010

  ComboBox7.Enabled = False
  ComboBox7.Value = Clear
  TextBox7.Value = Clear
  ComboBox7.BackStyle = fmBackStyleOpaque
  ComboBox7.BackColor = &H80000010
  TextBox7.BackColor = &H80000010

  ComboBox8.Enabled = False
  ComboBox8.Value = Clear
  TextBox8.Value = Clear
  ComboBox8.BackStyle = fmBackStyleOpaque
  ComboBox8.BackColor = &H80000010
  TextBox8.BackColor = &H80000010
End If

If ComboBox10.Value = Range("D74") = True Then
  ComboBox6.Enabled = True
  ComboBox6.BackStyle = fmBackStyleOpaque
  ComboBox6.BackColor = &HFFFFFF
  TextBox6.BackColor = &HFFFFFF

  ComboBox1.Enabled = False
  ComboBox1.Value = Clear
  TextBox1.Value = Clear
  ComboBox1.BackStyle = fmBackStyleOpaque
  ComboBox1.BackColor = &H80000010
  TextBox1.BackColor = &H80000010

  ComboBox2.Enabled = False
  ComboBox2.Value = Clear
  TextBox2.Value = Clear
  ComboBox2.BackStyle = fmBackStyleOpaque
  ComboBox2.BackColor = &H80000010
  TextBox2.BackColor = &H80000010

  ComboBox3.Enabled = False
  ComboBox3.Value = Clear
  TextBox3.Value = Clear
  ComboBox3.BackStyle = fmBackStyleOpaque
  ComboBox3.BackColor = &H80000010
  TextBox3.BackColor = &H80000010

  ComboBox4.Enabled = False
  ComboBox4.Value = Clear
  TextBox4.Value = Clear
  ComboBox4.BackStyle = fmBackStyleOpaque
  ComboBox4.BackColor = &H80000010
  TextBox4.BackColor = &H80000010

  ComboBox5.Enabled = False
  ComboBox5.Value = Clear
  TextBox5.Value = Clear
  ComboBox5.BackStyle = fmBackStyleOpaque
  ComboBox5.BackColor = &H80000010
  TextBox5.BackColor = &H80000010

  ComboBox7.Enabled = False
  ComboBox7.Value = Clear
  TextBox7.Value = Clear
  ComboBox7.BackStyle = fmBackStyleOpaque
  ComboBox7.BackColor = &H80000010
  TextBox7.BackColor = &H80000010

  ComboBox8.Enabled = False
  ComboBox8.Value = Clear
  TextBox8.Value = Clear
  ComboBox8.BackStyle = fmBackStyleOpaque
  ComboBox8.BackColor = &H80000010
  TextBox8.BackColor = &H80000010
End If

If ComboBox10.Text = "HATCHWAY" = True Then
    ComboBox7.Enabled = True
  ComboBox7.BackStyle = fmBackStyleOpaque
  ComboBox7.BackColor = &HFFFFFF
  TextBox7.BackColor = &HFFFFFF

  ComboBox1.Enabled = False
  ComboBox1.Value = Clear
  TextBox1.Value = Clear
  ComboBox1.BackStyle = fmBackStyleOpaque
  ComboBox1.BackColor = &H80000010
  TextBox1.BackColor = &H80000010

  ComboBox2.Enabled = False
  ComboBox2.Value = Clear
  TextBox2.Value = Clear
  ComboBox2.BackStyle = fmBackStyleOpaque
  ComboBox2.BackColor = &H80000010
  TextBox2.BackColor = &H80000010

  ComboBox3.Enabled = False
  ComboBox3.Value = Clear
  TextBox3.Value = Clear
  ComboBox3.BackStyle = fmBackStyleOpaque
  ComboBox3.BackColor = &H80000010
  TextBox3.BackColor = &H80000010

  ComboBox4.Enabled = False
  ComboBox4.Value = Clear
  TextBox4.Value = Clear
  ComboBox4.BackStyle = fmBackStyleOpaque
  ComboBox4.BackColor = &H80000010
  TextBox4.BackColor = &H80000010

  ComboBox5.Enabled = False
  ComboBox5.Value = Clear
  TextBox5.Value = Clear
  ComboBox5.BackStyle = fmBackStyleOpaque
  ComboBox5.BackColor = &H80000010
  TextBox5.BackColor = &H80000010

  ComboBox6.Enabled = False
  ComboBox6.Value = Clear
  TextBox6.Value = Clear
  ComboBox6.BackStyle = fmBackStyleOpaque
  ComboBox6.BackColor = &H80000010
  TextBox6.BackColor = &H80000010

  ComboBox8.Enabled = False
  ComboBox8.Value = Clear
  TextBox8.Value = Clear
  ComboBox8.BackStyle = fmBackStyleOpaque
  ComboBox8.BackColor = &H80000010
  TextBox8.BackColor = &H80000010
End If

If ComboBox10.Text = "OTHER" = True Then
    ComboBox8.Enabled = True
  ComboBox8.BackStyle = fmBackStyleOpaque
  ComboBox8.BackColor = &HFFFFFF
  TextBox8.BackColor = &HFFFFFF

  ComboBox1.Enabled = False
  ComboBox1.Value = Clear
  TextBox1.Value = Clear
  ComboBox1.BackStyle = fmBackStyleOpaque
  ComboBox1.BackColor = &H80000010
  TextBox1.BackColor = &H80000010

  ComboBox2.Enabled = False
  ComboBox2.Value = Clear
  TextBox2.Value = Clear
  ComboBox2.BackStyle = fmBackStyleOpaque
  ComboBox2.BackColor = &H80000010
  TextBox2.BackColor = &H80000010

  ComboBox3.Enabled = False
  ComboBox3.Value = Clear
  TextBox3.Value = Clear
  ComboBox3.BackStyle = fmBackStyleOpaque
  ComboBox3.BackColor = &H80000010
  TextBox3.BackColor = &H80000010

  ComboBox4.Enabled = False
  ComboBox4.Value = Clear
  TextBox4.Value = Clear
  ComboBox4.BackStyle = fmBackStyleOpaque
  ComboBox4.BackColor = &H80000010
  TextBox4.BackColor = &H80000010

  ComboBox5.Enabled = False
  ComboBox5.Value = Clear
  TextBox5.Value = Clear
  ComboBox5.BackStyle = fmBackStyleOpaque
  ComboBox5.BackColor = &H80000010
  TextBox5.BackColor = &H80000010

  ComboBox6.Enabled = False
  ComboBox6.Value = Clear
  TextBox6.Value = Clear
  ComboBox6.BackStyle = fmBackStyleOpaque
  ComboBox6.BackColor = &H80000010
  TextBox6.BackColor = &H80000010

  ComboBox7.Enabled = False
  ComboBox7.Value = Clear
  TextBox7.Value = Clear
  ComboBox7.BackStyle = fmBackStyleOpaque
  ComboBox7.BackColor = &H80000010
  TextBox7.BackColor = &H80000010
End If

End Sub

Voila qu'eulq'un peut m'aider merci

@+

Le 06/09/2015 à 22:13

Bonsoir Gregos, bonsoir le forum,

Peut-être comme ça (non testé) :

Dim I As Byte

Select Case ComboBox10.Text
    Case "BOTTOM"
        For I = 1 To 8
            Select Case I
                Case 1
                    With Me.Controls("ComboBox" & I)
                        .Enabled = True
                        .BackStyle = fmBackStyleOpaque
                        .BackColor = &HFFFFFF
                    End With
                    Me.Controls("TextBox" & I).BackColor = &HFFFFFF
                Case Else
                    With Me.Controls("ComboBox" & I)
                        .Enabled = False
                        .Value = Clear
                        .BackStyle = fmBackStyleOpaque
                        .BackColor = &H80000010
                    End With
                    With Me.Controls("TextBox" & I)
                        .BackColor = &H80000010
                        .Value = Clear
                    End With
            End Select
        Next I
    Case "SIDE SHELL"
        For I = 1 To 8
            Select Case I
                Case 2
                    With Me.Controls("ComboBox" & I)
                        .Enabled = True
                        .BackStyle = fmBackStyleOpaque
                        .BackColor = &HFFFFFF
                    End With
                    Me.Controls("TextBox" & I).BackColor = &HFFFFFF
                Case Else
                    With Me.Controls("ComboBox" & I)
                        .Enabled = False
                        .Value = Clear
                        .BackStyle = fmBackStyleOpaque
                        .BackColor = &H80000010
                    End With
                    With Me.Controls("TextBox" & I)
                        .BackColor = &H80000010
                        .Value = Clear
                    End With
            End Select
        Next I
    Case "TRANSVERSE BULHKEAD"
        For I = 1 To 8
            Select Case I
                Case 3
                    With Me.Controls("ComboBox" & I)
                        .Enabled = True
                        .BackStyle = fmBackStyleOpaque
                        .BackColor = &HFFFFFF
                    End With
                    Me.Controls("TextBox" & I).BackColor = &HFFFFFF
                Case Else
                    With Me.Controls("ComboBox" & I)
                        .Enabled = False
                        .Value = Clear
                        .BackStyle = fmBackStyleOpaque
                        .BackColor = &H80000010
                    End With
                    With Me.Controls("TextBox" & I)
                        .BackColor = &H80000010
                        .Value = Clear
                    End With
            End Select
        Next I
    Case "LONGITUDINAL BULKHEAD"
        For I = 1 To 8
            Select Case I
                Case 4
                    With Me.Controls("ComboBox" & I)
                        .Enabled = True
                        .BackStyle = fmBackStyleOpaque
                        .BackColor = &HFFFFFF
                    End With
                    Me.Controls("TextBox" & I).BackColor = &HFFFFFF
                Case Else
                    With Me.Controls("ComboBox" & I)
                        .Enabled = False
                        .Value = Clear
                        .BackStyle = fmBackStyleOpaque
                        .BackColor = &H80000010
                    End With
                    With Me.Controls("TextBox" & I)
                        .BackColor = &H80000010
                        .Value = Clear
                    End With
            End Select
        Next I
    Case "WEB FRAME"""
        For I = 1 To 8
            Select Case I
                Case 5
                    With Me.Controls("ComboBox" & I)
                        .Enabled = True
                        .BackStyle = fmBackStyleOpaque
                        .BackColor = &HFFFFFF
                    End With
                    Me.Controls("TextBox" & I).BackColor = &HFFFFFF
                Case Else
                    With Me.Controls("ComboBox" & I)
                        .Enabled = False
                        .Value = Clear
                        .BackStyle = fmBackStyleOpaque
                        .BackColor = &H80000010
                    End With
                    With Me.Controls("TextBox" & I)
                        .BackColor = &H80000010
                        .Value = Clear
                    End With
            End Select
        Next I
    Case Range("D74")
        For I = 1 To 8
            Select Case I
                Case 6
                    With Me.Controls("ComboBox" & I)
                        .Enabled = True
                        .BackStyle = fmBackStyleOpaque
                        .BackColor = &HFFFFFF
                    End With
                    Me.Controls("TextBox" & I).BackColor = &HFFFFFF
                Case Else
                    With Me.Controls("ComboBox" & I)
                        .Enabled = False
                        .Value = Clear
                        .BackStyle = fmBackStyleOpaque
                        .BackColor = &H80000010
                    End With
                    With Me.Controls("TextBox" & I)
                        .BackColor = &H80000010
                        .Value = Clear
                    End With
            End Select
        Next I
    Case "HATCHWAY"
        For I = 1 To 8
            Select Case I
                Case 7
                    With Me.Controls("ComboBox" & I)
                        .Enabled = True
                        .BackStyle = fmBackStyleOpaque
                        .BackColor = &HFFFFFF
                    End With
                    Me.Controls("TextBox" & I).BackColor = &HFFFFFF
                Case Else
                    With Me.Controls("ComboBox" & I)
                        .Enabled = False
                        .Value = Clear
                        .BackStyle = fmBackStyleOpaque
                        .BackColor = &H80000010
                    End With
                    With Me.Controls("TextBox" & I)
                        .BackColor = &H80000010
                        .Value = Clear
                    End With
            End Select
        Next I
    Case "OTHER"
        For I = 1 To 8
            Select Case I
                Case 8
                    With Me.Controls("ComboBox" & I)
                        .Enabled = True
                        .BackStyle = fmBackStyleOpaque
                        .BackColor = &HFFFFFF
                    End With
                    Me.Controls("TextBox" & I).BackColor = &HFFFFFF
                Case Else
                    With Me.Controls("ComboBox" & I)
                        .Enabled = False
                        .Value = Clear
                        .BackStyle = fmBackStyleOpaque
                        .BackColor = &H80000010
                    End With
                    With Me.Controls("TextBox" & I)
                        .BackColor = &H80000010
                        .Value = Clear
                    End With
            End Select
        Next I
End Select
End Sub

J'ai un doute sur ton .Value = Clear, j'aurais plutôt écrit .Value = ""

Le 06/09/2015 à 22:21

Re,

Merci de ta réponse je test ca demain.

Et en terme de mémoire, lequel va moins mettre de temps à charger ton code ou le miens...

@+

Le 06/09/2015 à 22:40

Re,

Pour tester il me faut recréer ton environnement et j'ai encore plus la flemme que toi !...

En terme de mémoire je ne sais pas mais en terme de vitesse en début de chaque macro tu mets :

deb = Timer

à la fin de chacune tu mets :

fin = timer - deb
MsgBox fin

tu compares...

Le 06/09/2015 à 22:45

re

merci pour l'info je test ca demain

@+

Le 07/09/2015 à 08:57

Re

Bonjour ThauThème

Nickel ta macro marche impec, par contre comment puit je faire pour : si un texte de la combobox 1 est vrai alors me montrer userform 10.

J'ai fait a comme code mais sa marche pas :

Private Sub CommandButton60_Click()
 Dim plage As Range
    With Worksheets(Sheets.Count)
        If ComboBox1.Text = "Tôle de fond" = True Then
            Set plage = .Range("C4")
            plage = "Tôles de fond"
        Else
            UserForm10.Show
        End If

        If ComboBox1.Text = "Tôle de pont" = True Then
            Set plage = .Range("C4")
            plage = "Tôles de pont"
        Else
            UserForm10.Show
        End If

        If ComboBox1.Text = "Tôle de bordé" = True Then
            Set plage = .Range("C4")
            plage = "Tôles de bordé"
        Else
            UserForm10.Show
        End If
    End With

End Sub
Le 07/09/2015 à 11:14

Bonjour Gregos, bonjour le forum,

Que veux-tu dire par si le texte de la ComboBox1 est vrai ?

Si c'est que le mot vrai soit l'élément sélectionné de la ComboBox1 => If UCase(ComboBox1.Value) = "VRAI" Then

Si c'est que la ComboBox1 ne soit pas vide => If Combobox1.Value <> "" Then

Le 07/09/2015 à 11:19

Re,

merci de ton aide tautheme

En faite ce que je voulais dire: c'est si "tôles de fond" se situant dans la liste de la combobox est ecrit / selectioner alors ecrire "Toles de fond dans cellule excel" par contre si le texte "tôles de fond" se situant dans la liste de la combobox est faux alors montrer userform 10.

merci

a bientot

ok

je vais tester If UCase(ComboBox1.Value) = "VRAI" Then est voir si sa marche

merci

a +

Pour information

j'ai posté une autre question sur les trie d'un tableau excel dans un autre topic.

Le topic activation combobox et desactivation des autre est résolu

Merci de votre aide

Le 07/09/2015 à 11:25

Re,

si j'ai bien compris, je ferais comme ça :

Private Sub CommandButton60_Click()
If ComboBox1.Text <> "" Then
    Worksheets(Sheets.Count).Range("C4").Value = Me.ComboBox1.Text
Else
    UserForm10.Show
End If
End Sub
Le 07/09/2015 à 11:26

ok

merci je vais essayer et voir si sa fonctionne.

En tous cas merci de ton aide

Greg

Le 07/09/2015 à 12:53

Re bonjour

Je suis pas arrivé a utilisé ton code mais celui que j'ai fait fonctionne

Private Sub CommandButton60_Click()

If ComboBox1.Text = "Tôles de fond" Or ComboBox1.Text = "Tôles de pont" Or ComboBox1.Text = "Tôles de bordé" Then
     Worksheets(Sheets.Count).Range("C5").Value = ComboBox1.Value
     Worksheets(Sheets.Count).Range("C4").Value = TextBox2.Value
Else
     UserForm7.Show
End If

End Sub

Il y paut etre mieux

Voila merci quand meme

Rechercher des sujets similaires à "activation combobox desactivation"