XL 2016 Mettre une exception dans un comboBox

Mahadey · 23 Septembre 2016

J'ai le fichier excel suivant demande une correction s'ils vous plait, le problème est que le transfert de donnée vers les cellules de 11 Août jusqu'a 30 Août quant je choisis la date 11 Août il donne le résultat dans la colonne L au lieu de O qui correspond a 11 Août ainsi de suite .les lignes Total, Nature et repport je veut pas qu'elles soient modifier par userform.

mapomme · 23 Septembre 2016

Bonsoir Mahadey,

Essayez le code suivant :

Code:

Private Sub CommandButton1_Click()
Dim iRow As Integer, iCol As Integer, Dates

   iRow = ComboBox1.ListIndex + 2
   Dates = Range("A1:AZ1").Value2
   For iCol = 1 To UBound(Dates, 2)
      If Cells(1, iCol).Value = DateValue(ComboBox2.Text) Then
         Cells(iRow, iCol) = Me.TextBox1.Value
         Exit Sub
      End If
   Next iCol
End Sub

Edit : salut Paritec

Paritec · 23 Septembre 2016

bonsoir Mahadey le forum
voilà un bout mais l'idéal serait de rappeler aussi les valeurs si elles existent déjà dans la feuille
a+
Papou

EDIT: bonsoir Ma Poire

XL 2016 Mettre une exception dans un comboBox

Mahadey

XLDnaute Nouveau

Pièces jointes

mapomme

XLDnaute Barbatruc

Paritec

XLDnaute Barbatruc

Pièces jointes

Discussions similaires