Petite base de données

Bonjour, j'aimerais de faire une petite base de données en ajouter les cellules de la feuille 1 vers feuille 2 puis en ajoute autre donner dans la feuille 1 et enregister dans la ligne qui suivi la ligne1 ensi de suite pour chaque un nouveau enregistrement vérifier si le numéro dans la celles G4 si déjà enregister dans sa colone dans de la feuille 2 un message apparaite que ce numéro est déjà enregister

merci

6base1.xlsx (16.53 Ko)

Bonjour nizar2015, le forum,

A tester...code du bouton

Private Sub VALIDER_Click()
 Dim derlig%, ws As Worksheet
  Set ws = Sheets("Sheet1")
   With Sheets("Sheet2")
    derlig = .Range("A" & Rows.Count).End(xlUp).Row + 1
     If MsgBox("Confirmez-vous la saisie ?", vbYesNo, "Demande de confirmation") = vbYes Then
      .Cells(derlig, 1) = ws.Range("E4"): .Cells(derlig, 1).NumberFormat = "0" '...................................n° classe
      .Cells(derlig, 2) = ws.Range("G4") '.........................................................................demande
      .Cells(derlig, 3) = ws.Range("G6"): .Cells(derlig, 3).NumberFormat = "m/d/yyyy" '............................date
      .Cells(derlig, 4) = ws.Range("G8") '.........................................................................nom de STE
      .Cells(derlig, 5) = ws.Range("G10"): .Cells(derlig, 5).NumberFormat = "0" '..................................N°
      .Cells(derlig, 6) = ws.Range("G12") '........................................................................NOM
      .Cells(derlig, 7) = ws.Range("G14"): .Cells(derlig, 7).NumberFormat = "0#"" ""##"" ""##"" ""##"" ""##" '.....N° Tél.
      .Cells(derlig, 8) = ws.Range("G16") '........................................................................Email
      .Cells(derlig, 9) = ws.Range("G18") '........................................................................Type
      .Cells(derlig, 10) = ws.Range("G20"): .Cells(derlig, 10).NumberFormat = "0"  '...............................Nombre
      .Cells(derlig, 11) = ws.Range("I4"): .Cells(derlig, 11).NumberFormat = "m/d/yyyy" '..........................Date Vérif.
      .Cells(derlig, 12) = ws.Range("I6"): .Cells(derlig, 12).NumberFormat = "h:mm;@" '............................Heure
      .Cells(derlig, 13) = ws.Range("I10") '.......................................................................CC
      .Cells(derlig, 14) = ws.Range("I12") '.......................................................................Adresse
      .Cells(derlig, 15) = ws.Range("K4"): .Cells(derlig, 15).NumberFormat = "m/d/yyyy"  '.........................Date FERM
      .Cells(derlig, 16) = ws.Range("K10") '.......................................................................BCC
      .Cells(derlig, 17) = ws.Range("K12") '.......................................................................GOV
      .Cells(derlig, 18) = ws.Range("K14") '.......................................................................CITY
       MsgBox "Données enregistrées"
       ws.Range("E4,G4,G6,G8,G10,G12,G14,G16,G18,G20,I4,I6,I10,I12,K4,K10,K12,K14").ClearContents
     End If
   End With
End Sub
13base-v1.xlsm (23.44 Ko)

Cordialement,

Merci bcp c genial, mais une seul chose que si la cellule G4 de la feuille 1 "Demqnde" si une même valeur dans la base de donne un message apparaître " la demande est déjà enregistrer vous voulez continuée?"

Re,

Si la demande existe déjà en Feuil2, que veux-tu faire ?

  • Écrire tout de même la ligne à la suite en Feuil2 (avec le risque d'avoir des doublons) ?
  • Modifier la ligne existante ?

Cordialement,

la cellule G4 de la feuille 1 "Demande" si exsite deja

message "Modifier la demande existante deja"

Re,

A tester.....

9base.xlsm (25.95 Ko)

Bonne nuit...

MERCI PARFAIT BONNE NUIT

Rechercher des sujets similaires à "petite base donnees"