Gerer des bases de données
Roxane
-
via55 Messages postés 14512 Date d'inscription Statut Membre Dernière intervention -
via55 Messages postés 14512 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 ?
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 ?
A voir également:
- Gerer des bases de données
- Fuite données maif - Guide
- Trier des données excel - Guide
- Supprimer les données de navigation - Guide
- Gerer stockage google - Guide
- Sauvegarde des données - Guide
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 ..
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