Saisie de données vers groupes de colonnes

Bonjour et bonne année au forum

Voilà je viens vers vous car j'ai préparé un "Userform" afin de faire de la saisie de chiffres dans des groupes de colonnes pour chaque mois d'une année.

Je cherche à saisir par groupe de colonne des valeurs que j'ai rempli dans des "Textbox" ceci en fonction d'un mois (groupe de colonne) et en fonction d'une ligne que sélectionne à l'aide de "Combobox"

Je ne comprends pas et je ne sais pas non plus pourquoi la saisie ne s'effectue pas

Je place en pièce jointe un fichier

D'avance je vous remercie pour votre aide et votre disponibilité

Bonjour,

Voir si ça convient ...

Private Sub CommandButton1_Click()

Dim vI As Variant
Dim rRange As Range
Dim w, x, y, z
'affiche le nombre d'heures
w = Me.ComboBox2.ListIndex * 7 + 2
y = Me.ComboBox1

x = ConvNum(Me.TextBox2.Value) + ConvNum(Me.TextBox3.Value) + ConvNum(Me.TextBox4.Value) + ConvNum(Me.TextBox5.Value) + ConvNum(Me.TextBox6.Value) + ConvNum(Me.TextBox7.Value) + ConvNum(Me.TextBox8.Value)
z = w & vbCr & y & " " & vbCr & x & " Heures"
MsgBox z

Set rRange = Range([A3], [A150])

For Each vI In rRange
  If ComboBox1.Text = vI Then
    Cells(vI.Row, w) = TextBox2.Value
    Cells(vI.Row, w + 1) = TextBox3.Value
    Cells(vI.Row, w + 2) = TextBox4.Value
    Cells(vI.Row, w + 3) = TextBox5.Value
    Cells(vI.Row, w + 4) = TextBox6.Value
    Cells(vI.Row, w + 5) = TextBox7.Value
    Cells(vI.Row, w + 6) = TextBox8.Value

    Exit For
  End If
Next vI

Unload Me
UserForm2.Show 0

End Sub

ric

Bonjour

Bonjour à tous

Une variante.

Bye !

Bonjour Le Forum

Bonjour ric et bonjour gmb

Merci pour votre aide et votre disponibilité

vos deux codes sont super et l'un comme l'autre me vont

Super

un grand merci à vous deux

gmb je prends note des "ComboBox.list" bien patrique

je clos le sujet