Gerer des bases de données

Roxane -  
via55 Messages postés 14393 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,
je suis étudiante, je dois réaliser pour une entreprise un document de pilotage d'activité. Pour ce faire je dois créer une feuille excel qui es réserver pour une création d'affaire avec une macro qui copie colle des information de cette feuille dans une base de donnée avec un numéro client. En revanche je n'arrive pas a créer la seconde macro qui es sur une nouvelle feuille.En rappelant le client par son numéro client les information reviennent et je doit modifier des information qui seront modifier dans la base de données automatiquement. Alors comment faire pour modifier que quelques cellules de la ligne client dans la base de données ?

1 réponse

  1.
    via55 Messages postés 14393 Date d'inscription   Statut Membre Dernière intervention   2 759
     
    Bonjour Roxane

    Postes un exemple de ton fichier avec sa macro sur cjoint.com, fais créer un lien, copies le et reviens le coller ici dans un prochain message

    Cdlmnt
    Via
    0
    1. Roxane
       
      Voici ma premiere macro qui as pour but d'enregistrer les information dans une base de doSub EnregCreaAff()

      Dim ChangLig As Integer

      'Copie colle les information de la création client dans la base de donnée
      'client
      'Changer de ligne si ligne avec valeur


      Sheets("Création Aff").Range("b5").Copy
      Sheets("BDD créa aff").Range("A2").PasteSpecial Paste:=xlPasteValues

      Sheets("Création Aff").Range("b9").Copy
      Sheets("BDD créa aff").Range("b2").PasteSpecial Paste:=xlPasteValues

      Sheets("Création Aff").Range("b27").Copy
      Sheets("BDD créa aff").Range("c2").PasteSpecial Paste:=xlPasteValues
      Range("C2").NumberFormat = "m/d/yyyy"

      Sheets("Création Aff").Range("b28").Copy
      Sheets("BDD créa aff").Range("e2").PasteSpecial Paste:=xlPasteValues
      Range("E2").NumberFormat = "m/d/yyyy"

      Sheets("Création Aff").Range("b29").Copy
      Sheets("BDD créa aff").Range("f2").PasteSpecial Paste:=xlPasteValues
      Range("F2").NumberFormat = "m/d/yyyy"

      Sheets("Création Aff").Range("b30").Copy
      Sheets("BDD créa aff").Range("h2").PasteSpecial Paste:=xlPasteValues
      Range("H2").NumberFormat = "m/d/yyyy"

      Sheets("Création Aff").Range("b31").Copy
      Sheets("BDD créa aff").Range("i2").PasteSpecial Paste:=xlPasteValues
      Range("I2").NumberFormat = "m/d/yyyy"

      Sheets("Création Aff").Range("b32").Copy
      Sheets("BDD créa aff").Range("j2").PasteSpecial Paste:=xlPasteValues
      Range("J2").NumberFormat = "m/d/yyyy"

      Sheets("Création Aff").Range("c22").Copy
      Sheets("BDD créa aff").Range("l2").PasteSpecial Paste:=xlPasteValues

      Sheets("Création Aff").Range("c23").Copy
      Sheets("BDD créa aff").Range("m2").PasteSpecial Paste:=xlPasteValues

      ChangLig = Range("a2").Value
      ChangLig = ChangLig + 1
      Range("a3").Value = ChangLig


      End Sub

      Sub InsertLigBDDDEVIS()

      'inserer une ligne dans le tableau de BDD création affaire

      Sheets("BDD créa aff").Select
      Rows("2:2").Select
      Selection.Insert shift:=xlDown
      Selection.ClearFormats

      Range("C2").NumberFormat = "m/d/yyyy"
      Range("E2").NumberFormat = "m/d/yyyy"
      Range("F2").NumberFormat = "m/d/yyyy"
      Range("H2").NumberFormat = "m/d/yyyy"
      Range("I2").NumberFormat = "m/d/yyyy"
      Range("J2").NumberFormat = "m/d/yyyy"

      End Sub

      Sub RAZBCreaAff()

      Dim ConfirmeEffaCreaAff As Integer

      'Effacer le contenue des cellules

      Sheets("Création Aff").Select

      Confirm = MsgBox("Etes vous sur de vouloir enregistrer," _
      & ActivSheetName _
      & "les données de cette feuilles seront remises à zero ", vbYesNo)

      If Confirm = vbYes Then
      ActiveWorkbook.Save

      Range("b5").Select
      Selection.ClearContents

      Range("b9").Select
      Selection.ClearContents

      Range("b27").Select
      Selection.ClearContents

      Range("b28").Select
      Selection.ClearContents

      Range("b29").Select
      Selection.ClearContents

      Range("b30").Select
      Selection.ClearContents

      Range("b31").Select
      Selection.ClearContents

      Range("b32").Select
      Selection.ClearContents

      Range("c22").Select
      Selection.ClearContents

      Range("c23").Select
      Selection.ClearContents

      Else
      MsgBox "opération annulée"

      End If

      End Sub

      Sub RécapBDDCreaAff()

      EnregCreaAff
      InsertLigBDDDEVIS
      RAZBCreaAff

      End Sub


      Maintenant dans ma feuille modification d'affaire je rappelle toutes ces information par le biais de rechercheV mais quand je modifie j'ai besoin que une macro m’enregistre les modifications.. sans me supprimer les cellules ou il n'y a pas eux de modifications

      je suis dessolé j'ai beaucoup de mal à être claire ..
      0
      1. via55 Messages postés 14393 Date d'inscription   Statut Membre Dernière intervention   2 759 > Roxane
         
        Re

        Ta macro sans le fichier et la structure de ses feuilles ne me sert pas à grand chose !
        Il faut un exemple du fichier -allégé et anonymé), à poster sur cjoint.com comme indiqué précédemment

        Cdlmnt
        Via
        0

Discussions similaires

Problème de restrictions
SuperAmbi -
Pat -

5 réponses
TNT base de donnees vide!!
Angye25 -
Angye25 -

4 réponses
TNT base de données vide sur TV
brugairolles -
JADE -

3 réponses
base de données vide sur écran TV
jocelyne -
JADE -

3 réponses