Incrémentation via valeurs dans USF

Bonjour

Dans le classeur joint, je souhaiterai qu'en ouvrant le formulaire (bouton feuille 2), on puisse renseigner un libellé (texte) puis un chiffre (valeur numérique) et que le tout s'incrémente automatiquement dans les cellules jaunes en feuille 1 sur 48 cases.

En exemple en feuille 1, le résultat si on avait renseigner les 2 textbox avec respectivement les valeurs "AC" et "1"

Autre exemple en feuille 3 si on avait renseigner avec "APF" et 972

Merci d'avance

Cordialement

8classeur1.xlsm (30.53 Ko)

bonjour,

Une solution :

Private Sub CommandButton1_Click()
Dim i%, j%, k%
k = TextBox2
For i = 1 To 12
For j = 1 To 7 Step 2
Cells(i, j) = TextBox1 & " " & k
k = k + 1
Next
Next
Unload Me
End Sub

A+

Bonjour

La vache !!!! Quelle rapidité ...

Merci galopin01, c'est parfait.

Bonne journée et encore merci

Wouah ! Galopin a arraché...

Je livre quand même l'objet, méthode variante

Private Sub CommandButton1_Click()
    Dim tx$, n%, i%, k%, Tbl(11, 6)
    tx = TextBox1.Value: n = CInt(TextBox2.Value)
    If tx = "" Or n = 0 Then MsgBox "Saisie incomplète": Exit Sub
    For i = 0 To 11
        For k = 0 To 6 Step 2
            Tbl(i, k) = tx & " " & n + i * 4 + k / 2
        Next k
    Next i
    With Worksheets("Feuil1")
        .Range("A1:G12").Value = Tbl
        .Activate
    End With
    Unload Me
End Sub

Cordialement.

Merci MFerrand, c'est parfait également

Deux méthodes c'est encore mieux !

Bonne journée

Rechercher des sujets similaires à "incrementation via valeurs usf"