XL 2016 Mettre une exception dans un comboBox

[Mahadey]

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]

Bonsoir Mahadey,

Essayez le code suivant :

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]

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