Bonjour à tous, un petit problème, a priori, tout simple aujourd'hui... J'ai plusieurs userformes dont certaines textbox ont des noms identiques et sur lesquelles je voudrais effectuer la même action ; donc je me suis dit que j'allais mettre cette action dans un module, de cette manière :
Public Sub Neww()
Sheets('transit').Select
Cells.Range('A2') = Numéro
Cells.Range('B2') = Titre
Cells.Range('C2') = Comment
Cells.Range('G2') = Comboréa.ListIndex
Cells.Range('H2') = Comboacteur.ListIndex
Cells.Range('I2') = Comboactrice.ListIndex
End Sub
Mon idée c'est que les userform 1 2 ou 3 ayant les même 'Numéro, Titre, etc', la même procédure pouvait passer... mais non.
Il ne plante que pour les listindex mais en fait aucune ligne ne fonctionne.
Je n'ai pas trouvé d''ActiveUserform' et ActiveWindow ne fonctionne pas mieux... Y'a-t-il une solution simple ?
Merci d'avance encore une fois
Public Sub Neww()
Sheets('transit').Select
Cells.Range('A2') = Numéro
Cells.Range('B2') = Titre
Cells.Range('C2') = Comment
Cells.Range('G2') = Comboréa.ListIndex
Cells.Range('H2') = Comboacteur.ListIndex
Cells.Range('I2') = Comboactrice.ListIndex
End Sub
Mon idée c'est que les userform 1 2 ou 3 ayant les même 'Numéro, Titre, etc', la même procédure pouvait passer... mais non.
Il ne plante que pour les listindex mais en fait aucune ligne ne fonctionne.
Je n'ai pas trouvé d''ActiveUserform' et ActiveWindow ne fonctionne pas mieux... Y'a-t-il une solution simple ?
Merci d'avance encore une fois