lynyrd a écrit :
Bonjour le forum
il y a quelques jours,j'ai recu de l'aide pour effectuer une macro.
j'essaie d'appliquer le code pour une application similaire mais cela me renvoie un message d'erreur.
quelqu'un peut t'il m'aider?
Merci.
https://www.excel-pratique.com/~files/doc/incrementer2.zip
Salut
Dans la série je ne m'occupe pas des erreurs
Private Sub ComboBox1_Change()
'Remplir les TextBox
Dim I As Integer
For I = 1 To 12
If IsError(Cells(I + 1, (ComboBox1.ListIndex + 6))) Then
Me.Controls("TextBox" & I) = ""
Else
Me.Controls("TextBox" & I) = Cells(I + 1, (ComboBox1.ListIndex + 6))
End If
Next I
End Sub
Soit tu modifies ta macro dans ce style, soit tu gères tes erreurs dans la feuille Feuil1
A+