Gerer des bases de données

Fermé

Roxane - 10 mars 2016 à 15:33
via55 Messages postés 14506 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 27 décembre 2024 - 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 ?

A voir également:

Gerer des bases de données
Reinstaller windows sans perte de données - 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
Effacer les données de navigation - Guide
Alexia organise un séminaire en ligne (webinaire) : elle cherche un outil qui permet de gérer les invitations, de relancer les invités et d’enregistrer le webinaire. - Forum Word

1 réponse

Réponse 1 / 1

via55 Messages postés 14506 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 27 décembre 2024 2 738
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

Roxane
10 mars 2016 à 17:37

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 ..

via55 Messages postés 14506 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 27 décembre 2024 2 738 > Roxane
10 mars 2016 à 18:26

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

Discussions similaires

Germain

Exemple de base de données access

TNT base de donnees vide!!

Nettoyer une base de données avec une liste

Reporter valeur sur autre feuille avec critere