Insérer des lignes dans un tableau de manière succésive

Un grand merci pour l'aide précieuse que vous m'avez apporter grace à vous j'ai bien avancé dans mon projet.

J'ai encore une requête à faire si ce n'est pas trop abusé, concernant le remplissage du tableau. ma demande est spécifié sur la pièce jointe.

encore un grand Merci à tous.

Bonjour delphbruno

je ne vais pas caché que je suis totalement hors sujet

mais je me suis amusé cet après midi à faire un formulaire de saisi pour les devis

donc je le post à tout hasard

le fichier contient des macros

je l'ai testé sous xp avec excel 2003 et sous Vista avec excel 2007

cela a l'air de fonctionner

le mot de pass sur la croix rouge est 123

un double click sur le tableau du formulaire supprime la ligne

j'espère ne pas causer de problème

Bonjour,

Ci-joint ton fichier avec cette macro qui ajoute les données, efface la ligne 5 et vérifie qu'il n'y a pas déjà 12 lignes dans le devis.

J'ai modifié la ligne de titres car les lignes fusionnées c'est ennuyeux en VBA mais ton tableau est comme avant, au pire si tu imprimes tu peux masquer les lignes 8 et 9.

Sub Bouton30_Clic()
    Dim LigneFin

    LigneFin = Range("B25").End(xlUp).Row 'N° de la dernière ligne remplie du devis
    If LigneFin = 24 Then
        MsgBox "Le devis est déjà complet"
        Exit Sub
    End If
    LigneFin = LigneFin + 1 'N° de la première ligne vide
    Range("B" & LigneFin) = Range("B5")
    Range("D" & LigneFin) = Range("D5")
    Range("F" & LigneFin) = Range("F5")
    Range("H" & LigneFin) = Range("H5")
    Range("B5,D5,F5,H5:H7").ClearContents

End Sub

A+

Un grand merci à vous tous vous avez résolu mon problème. Une mention spécial pour BOB71AU trop top ce que tu m'as créé mille merci. Et un grand merci au forum d'exister.