Envoie valeur Text et Comb Box vers nouvelle ligne créée

Bonjour le forum

J'ai créé un UserForm avec des TextBox et des ComboBox j'aarive à envoyer les valeurs vers la feuille de destination, mais je n'arrive pas à les placer où je veux.

Ma macro en premier lieu copie un modèle pour insérer une nouvelle ligne dans mon tableau.

Ensuite mon UserForm s'affiche et demande divers renseignements qui doivent être envoyés vers la dernière ligne qui vient juste d'être insérée.

Je ne comprends pas pourquoi je me retrouve toujours dans la première ligne

Je joint le fichier

d'avance je vous remercie de l'aide apportée et du temps que vous me consacrez

Bonsoir,

Tu peux modifier le code du bouton de validation de ton userform comme suit.

Une ligne s'insère en fin de tableau et les données se copie.

Attention il me semble que tu as une erreur de coordonnée de colonne à l'écriture.

Private Sub CommandButton3_Click() 'bouton "Valider"
Dim DLig As Integer

  With Sheets("PA-PB SOUTERRAIN")

    DLig = .Range("d" & Rows.Count).End(xlUp).Row + 1
    .Rows(DLig).Insert
    .Cells(DLig, 1) = TextBox1.Value
    .Cells(DLig, 2) = ComboBox4.Value
    .Cells(DLig, 4) = TextBox4.Value
    .Cells(DLig, 5) = ComboBox3.Value
    .Cells(DLig, 7) = ComboBox1.Value
    .Cells(DLig, 8) = TextBox10.Value
    'S.Cells(1, 9) = CombBox4.Value
    .Cells(DLig, 10) = TextBox16.Value
    .Cells(DLig, 11) = TextBox17.Value
    'S.Cells(1, 12) = ComBox2.Value
    .Cells(DLig, 13) = TextBox11.Value

End With

'Déchargement du formulaire pour qu'il soit de nouveau initialisé lors de son prochain affichage
Unload UserForm1

End Sub

A+

ddetp88

Bonsoir le forum

Bonsoir le fil

Merci pour ta réponse ddept88 cela fonctionne, mais du coup j'ai un autre souci.

JE ne sais pas si tu as vu la commande ' "A utiliser pour rajouter un Dossier" dans la feuille, mais elle me permet de copier puis d'insérer une ligne masquée qui contient des formules (en colonnes "AD" et "AJ"), avec ton code, je n'ai plus ces formules comment puis-je faire pour les faire suivre (si j'ai les formules qui suivent, je n'aurai plus besoin de copier ma ligne masqué)

merci pour ta disponibilité et ton aide

Petite autre question j'ai un ComboBox (le 3 ) qui alimente deux cellules (les cellules de la colonne C et de la colonne J) comment je dois le définir dans mon attribution des valeurs ?

SVP

Tu peux ajouter deux lignes au code qui permettent la recopie des formules pour les colonnes ciblées

Private Sub CommandButton3_Click() 'bouton "Valider"
Dim DLig As Integer

  With Sheets("PA-PB SOUTERRAIN")

    DLig = .Range("d" & Rows.Count).End(xlUp).Row + 1
    .Rows(DLig).Insert
'recopie des formules
    .Cells(DLig, "AD").FormulaR1C1 = Cells(DLig - 1, "AD").FormulaR1C1
    .Cells(DLig, "AJ").FormulaR1C1 = Cells(DLig - 1, "AJ").FormulaR1C1
    '-------------------------
    .Cells(DLig, 1) = TextBox1.Value
    .Cells(DLig, 2) = ComboBox4.Value
    .Cells(DLig, 4) = TextBox4.Value
    .Cells(DLig, 5) = ComboBox3.Value
    .Cells(DLig, 7) = ComboBox1.Value
    .Cells(DLig, 8) = TextBox10.Value
    'S.Cells(1, 9) = CombBox4.Value
    .Cells(DLig, 10) = TextBox16.Value
    .Cells(DLig, 11) = TextBox17.Value
    'S.Cells(1, 12) = ComBox2.Value
    .Cells(DLig, 13) = TextBox11.Value

End With

'Déchargement du formulaire pour qu'il soit de nouveau initialisé lors de son prochain affichage
Unload UserForm1

End Sub

Pour la question sur le combobox3, je ne comprends pas ton attente.

C'est la colonne 5 (donc la E) qui prend la valeur du combobox3.

Il faut plus de précision ou remettre ton le fichier corrigé pour voir.

Cordialement

Bonjour le forum

Bonjour le fil

Merci pour ta réponse ddetp88, mais la re-copie des formules ne fonctionne pas

je remet le fichier corriger, et laisse tomber pour ma question précédente, je n'avais pas bien recopier le mot "ComboBox" alors ça beuguait.

Par contre existe-t-il une façon de forcer la saisie dans un TextBox, style InputMask d'Accès, je veux forcé la saisie dans les TextBox ID comme suit : " FI-#####-AAAA

FI et les tirets OBLIGATOIRE

##### saisie uniquement chiffres style code postal ou INSEE

AAAA saisie aléatoire chiffres et lettres en MAJUSCULE

C'est vraiment super, merci de ton aide et celle du forum

BONSOIR LE FORUM

BONSOIR LE FIL

Bon ça y est tout fonctionne

Merci ddept18 de ta disponibilité et de ton aide