Re : inhibe des boutons sous conditions.
bonjour a toi Papou-net
merci pour tout desole pour mes questions idiotes mais tu sait des fois l'evidence ne saute pas aux yeux.
En fait lla liste deroulante en question est " nom de l'article" sur l'usf "gestion"
ci joint le code.
Private Sub CB_ARTICLES_Change()
Dim Lg As Integer
With Sheets("INTERVENTIONS")
Select Case Me.CB_ARTICLES.ListIndex
Case Is > -1
Lg = Me.CB_ARTICLES.ListIndex + 2
Me.TB_ELEMENTS.Value = .Cells(Lg, 1)
Me.TB_NELEMENTS.Value = .Cells(Lg, 2)
Me.TB_ARTICLES.Value = .Cells(Lg, 4)
Me.TB_ESPACES.Value = .Cells(Lg, 5)
Me.TB_ILOTS.Value = .Cells(Lg, 6)
Me.TB_STOCK.Value = .Cells(Lg, 7)
Me.TB_REFFAB.Value = .Cells(Lg, 8)
Me.TB_FOURNISSEURS.Value = .Cells(Lg, 15)
Répertoire = ThisWorkbook.Path
If Dir(Répertoire & "\" & Me.CB_ARTICLES & ".jpg") <> "" Then
Me.Image1.Picture = LoadPicture(Répertoire & "\" & Me.CB_ARTICLES & ".jpg")
Else
On Error Resume Next
Me.Image1.Picture = LoadPicture(Répertoire & "\" & "TRAVAUX.gif")
End If
Case Is = -1
Lg = Me.CB_ARTICLES.ListIndex + 2
Me.TB_ELEMENTS.Value = ""
Me.TB_NELEMENTS.Value = ""
Me.TB_ARTICLES.Value = ""
Me.TB_ESPACES.Value = ""
Me.TB_ILOTS.Value = ""
Me.TB_STOCK.Value = ""
Me.TB_REFFAB.Value = ""
Me.TB_FOURNISSEURS.Value = ""
Me.Image1.Picture = LoadPicture(Aucun)
End Select
End With
End Sub
je te joint aussi le code du bouton " valider"
Private Sub CommandButton1_Click() 'bouton "Valider
Dim Lg As Long
If Me.CB_ARTICLES.ListIndex = -1 Then
Lg = Sheets("INTERVENTIONS").Range("C65536").End(xlUp).Row + 1
Else
Lg = Me.CB_ARTICLES.ListIndex + 2
End If
With Sheets("INTERVENTIONS")
.Cells(Lg, 1) = Me.TB_ELEMENTS.Value
.Cells(Lg, 2) = Me.TB_NELEMENTS.Value
.Cells(Lg, 3) = Me.CB_ARTICLES.Value
.Cells(Lg, 4) = Me.TB_ARTICLES.Value
.Cells(Lg, 5) = Me.TB_ESPACES.Value
.Cells(Lg, 6) = Me.TB_ILOTS.Value
.Cells(Lg, 7) = Me.TB_STOCK.Value
.Cells(Lg, 8) = Me.TB_REFFAB.Value
.Cells(Lg, 9) = Me.TB_FABRICANT.Value
Répertoire = ThisWorkbook.Path
End With
test = False
Unload Me
gestion.Show
End Sub
En gros quand j'alimente la dite liste " nom de l'article" , je ne vois plus les donnees que j'ai ajoute dans cette liste au moment de la consultation; et parfois il n'y avait que l'avant derniere entree qui apparaissait
merci pour ton aide precieuse
à bientot