Gerer des bases de données
Fermé
Roxane
-
10 mars 2016 à 15:33
via55 Messages postés 14512 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 18 janvier 2025 - 10 mars 2016 à 18:26
via55 Messages postés 14512 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 18 janvier 2025 - 10 mars 2016 à 18:26
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
- Trier des données excel - Guide
- Supprimer les données de navigation - Guide
- Gerer les profils netflix - Guide
- La base de données de sécurité du serveur n'a pas de compte d'ordinateur pour la relation ✓ - Forum Réseau
- Reinstaller windows sans perte de données - Guide
1 réponse
via55
Messages postés
14512
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
18 janvier 2025
2 741
10 mars 2016 à 17:05
10 mars 2016 à 17:05
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
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
10 mars 2016 à 17:37
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 ..
10 mars 2016 à 18:26
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