Ajout de colonne via une liste déroulante

Bonjour,

Comme vous pouvez le voir ci-dessous, j'ai mis un bouton sur une feuille. En appuyant sur celui -ci j'ai une Userform qui s'ouvre et qui me permet à l'aide d'une liste déroulante de sélectionner un nombre entre 1 et 33.

Si je sélectionne le chiffre 5 par exemple, j'aimerai que au niveau du rond bleu il y est inscrit le chiffre 1 jusqu'à 5 sur les 5 colonnes qui suivent. Mais également que chaque colonne soit mise en forme donc alignement au centre, toutes les bordures et que seulement la première ligne est un fond gris.

J'ai voulu faire ça avec l'enregistreur de macro et du coup la modifier en conséquences pour chaque nombre cependant la procédure est trop grande donc ça ne fonctionne pas. Comment puis-je faire?

Bonjour whytye, le forum,

Comment puis-je faire?

Commence par fournir un fichier pour voir comment sont structurées tes données,

Cordialement,

Bonjour,

Voici le fichier!

Re,

A tester:

Private Sub Valider_Click()
 Dim lig%, col%, couleur
  If Nombreunité = "" Then Exit Sub
   With Sheets("ReleveGE-(4-6)FS(V)NME")
    lig = 22: couleur = .Range("F22").Interior.Color
     .Range("G" & lig).CurrentRegion.Offset(0, 1).Interior.Color = xlNone
     .Range("G" & lig).CurrentRegion.Offset(0, 1).Borders.LineStyle = xlNone
     .Range("G" & lig).CurrentRegion.Offset(0, 1).ClearContents
       For i = 1 To Nombreunité
       .Cells(lig, 6 + i) = i
       Next i
     .Range("G" & lig).Resize(1, Nombreunité).Interior.Color = couleur
     .Range("G" & lig).Resize(7, Nombreunité).Borders.Weight = xlThin
     .Range("G" & lig).Resize(7, Nombreunité).HorizontalAlignment = xlCenter
   End With
  Unload Me
End Sub

Cordialement,

Ca fonctionne merci beaucoup!

Re,

Merci pour le retour,

Tu peux également simplifier le code de Private Sub UserForm_Initialize() :

Private Sub UserForm_Initialize()
 Dim i%
  With Nombreunité
   For i = 1 To 33
   .AddItem (i)
   Next i
 End With
End Sub

Cordialement,