Simplifier un ensemble de macro

[batdu07]

Bonjour à tous,

Afin de choisir une colonne en fonction d'une valeur rentrée, j'ai mis en place la macro suivante :

If exemple.Text = "1" Then
Range("C2").Select
While ActiveCell.Value <> ""
Combmateriel.AddItem ActiveCell.Value
ActiveCell.Offset(1, 0).Select
Wend
End If

cependant, pour chaque valeur ( A, B, C, D ...) j'y est associé une colonne.

donc pour 40 valeurs differentes j'ai exactement le meme code, sauf que la valeur et l'indice de la colonne change :

If exemple.Text = "2" Then
Range("D2").Select
While ActiveCell.Value <> ""
Combmateriel.AddItem ActiveCell.Value
ActiveCell.Offset(1, 0).Select
Wend
End If
If exemple.Text = "3" Then
Range("E2").Select
While ActiveCell.Value <> ""
Combmateriel.AddItem ActiveCell.Value
ActiveCell.Offset(1, 0).Select
Wend
End If
If exemple.Text = "4" Then
Range("F2").Select
While ActiveCell.Value <> ""
Combmateriel.AddItem ActiveCell.Value
ActiveCell.Offset(1, 0).Select
Wend
End If
... ... ...

je voulais savoir si il existait une solution afinde simplifier tout ça de façon a n'avoir plus qu'un seul code. surtout dans le cas d'une modification des données avec une pour eviter d'avoir à modifier l'ensemble du code.
(ce programme comporte 13 feuilles avec sur chacune entre 15 et 60 données donc autant de codes).

merci pour votre aide
batdu07

 

[Robert]

Re : Simplifier un ensemble de macro

Bonjour le fil, bonjour le forum,

Oui c'est impressionnant... Mais je me suis quand même fait griller sur ce coup-là d'une poignée de minutes. Ha ha ha.

 

[batdu07]

Re : Simplifier un ensemble de macro

Merci à tous pour votre aide.

les 2 fichiers modifiés vont m'etre très utiles.
dire qu'au début je voulais simplifier juste un code et voilà que je me retrouve avec un projet entièrement simplifié.

Bat


🙂