Base de données

Bonjour

pour un besoins professionel

-j'ai 4 feuille dans un classeur ki comporte un formulaire dans chacune.

-Sur ces formulaire certaine données que je veux reporter sur un tableau dans une 5ème feuille comme nom du client, date de livraison, telephone, adresse histoire da garder une tracabilité.

-Mon besoin c'est reporter automatiquement sur le tableau de la 5ème feuille les informations que je saisis chaque fois dans ces formulaires sans faire du copier coller.

Merci de votre aide

Bonsoir et bienvenue,

Pour t'aider, il nous faut le fichier

au moins une feuille avec formulaire + la feuille BDD (où l'on va enregistrer la nouvelle donnée)

Amicalement

Claude

Merci bcp

ci-joint le fichier en question

Bonsoir à tous,

un départ:

après enregistrement dans la base, il te faudra effacer les données de la feuille active et

tu va vite t'apercevoir des inconvénients des cellules fusionnées.

Sub NouvelleSaisie()
Dim Lg%
    If Range("a11") = "" Then 'contrôle saisie
        MsgBox ("Champ MODELE à remplir obligatoirement !")
        Exit Sub
    End If

    With Sheets("Base")
        Lg = .Range("A65536").End(xlUp)(2).Row
        .Range("a" & Lg) = Range("a11") 'modèle
        .Range("b" & Lg) = Range("c11")
        .Range("c" & Lg) = Range("f11")
        .Range("d" & Lg) = Range("a13") 'nom client
        .Range("e" & Lg) = Range("c13")
        .Range("f" & Lg) = Range("f13") 'Tel
        .Range("g" & Lg) = Range("a15")
        .Range("h" & Lg) = Range("c15")
        .Range("i" & Lg) = Range("f15")
    End With
End Sub

Amicalement

Claude

Merci bcp de votre réponse, donc il faut éviter de fusionner les cellules c'est bien ca ?

Bonjour,

essaye de faire la macro pour remettre à zéro la "Fiche inspection"

tu verras et comprendras !

Claude

C'est Super ça marche impeccable, Merci beaucoup pour l'aide

Bonjour,