Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

base de données

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
A

alex60

XLDnaute Occasionnel
Bonjour,

J'ai fait appel à ce forum il y a peu de temps afin de réaliser une feuille de saisie qui alimente une base de données (le tout sous excel). Cf fichier ci-joint

Seulement voilà, lorsque j'ai modifié la mise en forme du document, la macro ne fonctionne plus. Apparamment, le problème se pose quand les valeurs à copier ne sont plus dans la même colonne.

Pour rappel, je voudrais transposer les valeurs de la feuille "saisie" dans le tableau de la feuille "base".

N'hésitez pas si je n'ai pas été suffisamment clair.

Merci
 

Pièces jointes

Trier par date Trier par votes
Re : base de données

Tout d'abord merci pour ta réponse DAN,

C'est ce que je veux à quelques petits détails.

En faite, je voudrais que lorsque l'on clique sur le bouton Valider, on ait la possibilité de ne pas entrer les valeurs dans la base de données, c'est dire qu'il y ait une msgbox qui donne le choix de valider ou non les données saisies.

Toujours dans le même esprit, ce serait bien si on pouvait vider les cellules une fois qu'elles sont entrées dans la base. Là où je pense que je vais devenir embêtant c'est que je veux vider les cellules mais je veux garder les formules qui sont dedans...

Dernier point, je voudrais détecter si toutes les cellules sont remplies lors de la validation (ceci pour éviter que l'on oublit de remplir un champs)

Je me rends bien compte que ma demande est complexe et je vous remercie d'avance de votre attention.
 
Vote positif 0 Vote négatif
Re : base de données

re,

En faite, je voudrais que lorsque l'on clique sur le bouton Valider, on ait la possibilité de ne pas entrer les valeurs dans la base de données, c'est dire qu'il y ait une msgbox qui donne le choix de valider ou non les données saisies.
Cliquez pour agrandir...
Ai-je mal compris ta demande car ta macro fait déjà cela.
vider les cellules une fois qu'elles sont entrées dans la base.
Cliquez pour agrandir...
OK, fait dans le fichier ci-joint
...détecter si toutes les cellules sont remplies lors de la validation (ceci pour éviter que l'on oublit de remplir un champs)
Cliquez pour agrandir...
Désolé mais j'avais supprimé une instruction dans ta macro de mon précédent fichier.

A te lire
Dan
 

Pièces jointes

Vote positif 0 Vote négatif
Re : base de données

rebonjour,

Effectivement, elle faisait déja la msgbox de validation... Désolé

Sinon c'est parfait, j'obtiens ce que je veux.
J'ai mis une protection pour éviter que l'on modifie d'autres champs que ceux à remplir (mot de passe : 0000 si tu veux jeter un oeil)
En rose ce sont les champs à remplir et en jaune ceux qui restent fixe.

Par contre lorsque l'on valide est-il possible de dire à l'utilisateur (s'il a oublié de remplir une ou des cellules) le nom de la ou des cellules oubliées???


Merci
 

Pièces jointes

Vote positif 0 Vote négatif
Re : base de données

re,

Remplace ta macro par celle-ci:
Code: 
Sub Macro2()
Dim Msg As String, Style As String, Title As String, Response As String, a As String, i As String
Dim Plg As Range, cel As Range
On Error Resume Next
Application.ScreenUpdating = False
Set Plg = Range("A4,B7,B11,B15,B20,B24,B28,C5,D28,G20,H20,I20,J20,K15,L15,M15")
Msg = "Souhaitez-vous que ces valeurs soient entrées dans la base de données?"
Style = vbYesNo + vbCritical + vbDefaultButton2
Title = "Exportation de données"
Response = MsgBox(Msg, Style, Title)
If Response = vbYes Then
For Each cel In Plg
Select Case cel
Case Is = ""
i = cel.Address
a = i & ", " & a
End Select
Next cel
MsgBox "Il manque une donnée dans la(es) cellule(s) suivante(s) " & a: Exit Sub
absentes": Exit Sub
Call Sauve
    Application.CutCopyMode = False
Else
    MsgBox "OK, données non conservées"
End If
End Sub
Une remarque concernant SET PLG : pourquoi mets tu les références de cellules contenant des formules comme E4 à L4 et F20. Il n'est point besoin de les renseigner puisqu'elles contiennent une formule dépendant de l'encodage effectué dans les cellules en rose.

A te lire
Dan
 
Vote positif 0 Vote négatif
Re : base de données

rere,

J'ai essayer ta macro mais ça ne marche pas quand toutes les cellules sont remplies, apparemment un problème sur la ligne :
absentes": Exit Sub
Sinon elle détecte bien les cellules vide.

Pour répondre à ta question, si j'avais mis les cellules E4 à L4 et F20... dans SET PLG c'était pour que si quelqu'un supprime par erreur une de ces cellules alors le message "il manque des données" ce serait affiché.
C'est vrai qu'avec la protection que j'ai rajouté le problème ne se posait plus mais seulement voilà, je me suis aperçu que la protection empêche le transfert des données dans la feuille "base" car elles sont protégées...

Pas terrible... As-tu une solution???
 
Vote positif 0 Vote négatif
Re : base de données

re,

Oups ! "absentes": Exit Sub" --> c'est une erreur. Enlève cela de la macro.

Pour ce qui est de la protection, il faut connaitre le mot de passe et déprotéger la feuille avant et reportéger après.

Quel est le mot de passe que tu vas prendre ?

A te lire
Dan
 
Vote positif 0 Vote négatif
Re : base de données

Je viens d'essayer mais ça ne marche pas... Il y a le message "il manque des données dans le(les) cellule(s)" qui s'affiche sans qu'aucune cellule ne soit mentionnée.

Pour le mot de passe tu peux mettre "bibi" par exemple mais je pourrais le modifier si je veux, non???
 
Vote positif 0 Vote négatif
Re : base de données

Re,

Il doit y avaoir un pb dans ton fichier.
voici le tien.

Dis moi si tu as un pb et à quel endroit.
Il n'y a pas encore de mot de passe sauf ta protection (qu'il faudra enlever)

A te lire
Dan
 

Pièces jointes

Vote positif 0 Vote négatif
Re : base de données

Re,

J'ai regardé pour ta protection.
Dans la macro SAUVE, après With Sheets("Base") mets :
Code: 
.Unprotect Password:="bibi"
et juste avant Sheets("Saisie").Select mets :
Code: 
.Protect Password:="bibi"
N'oublie pas le point avant chaque instruction.

Dan
 
Vote positif 0 Vote négatif
Re : base de données

Je viens de réessayer mais j'ai tjrs le même problème.

Je comprends pas parce toutes mes cellules sont remplies mais quand je valide j'ai le message "Souhaitez-vous que ces valeurs soient entrées dans la base de données?" qui s'affiche et quand je clique sur Oui j'ai le message suivant "Il manque une donnée dans la(es) cellule(s) suivante(s) " qui s'affiche.

Comme je te disais tout à l'heure, il me dit qu'il y a des cellules vides alors qu'elles sont toutes remplies.

Quand tu test le fichier ça marche pour toi?
 
Vote positif 0 Vote négatif
Re : base de données

re,

OK je vois ce dont tu veux parler. Désolé mais en recopiant j'ai enlevé une instruction.
Entre NEXT CEL et CALL SAUVE
mets :
Code: 
If Application.CountA(Plg) <> 17 Then
MsgBox "Il manque une donnée dans la(es) cellule(s) suivante(s) " & a
MsgBox "OK, données non conservées": Exit Sub
End If

Dan
 
Dernière édition:
Vote positif 0 Vote négatif
Re : base de données

Super ça marche!!!!

Vraiment fort...

Merci d'avoir consacré du temps pour mon problème.

Je pense que mon document doit être au point grâce à toi. Reste à voir si lors de son utilisation je vois d'autres améliorations à faire...

Encore un grand merci à toi.
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
XL 2021 Remplir des listes à partir d'une base de données
2
Réponses
20
Affichages
1 K
job75
C
  • Résolu(e)
Microsoft 365 Calcul vitesse course à pieds
Réponses
2
Affichages
231
Chris5633
C
  • Question Question
XL 2021 Formulaire de modification
Réponses
6
Affichages
569
fanfan38
B
  • Question Question
XL 2021 Base de données
Réponses
5
Affichages
699
Cousinhub
  • Question Question
XL 2021 Détecter un changement dans un des contrôles de formulaire et mettre à jour un TS correspondant.
2
Réponses
15
Affichages
706
jeff1494
C
  • Résolu(e)
XL 2021 Mise en page pour imprimer un fichier trié et filtré
Réponses
3
Affichages
132
sylvanu
J
  • Question Question
Microsoft 365 extraire des données du site Zeturf
Réponses
9
Affichages
599
jouary
J
N
  • Question Question
XL 2010 creer une base de donnée
2
Réponses
15
Affichages
843
n_turf
N
L
  • Question Question
XL 2021 [Power Query] Appliquer un nettoyage identique sur plusieurs tableaux d'une même documentation
Réponses
1
Affichages
194
chris
C
  • Résolu(e)
Autres Validation de données avant verrouillage de la ligne
2
Réponses
17
Affichages
771
com689
C
P
  • Question Question
Autres moyenne de plusieurs lignes et colonnes sous deux conditions
Réponses
8
Affichages
414
podarck
P
C
  • Question Question
XL 2021 Exporter des données vers une autre feuille...
Réponses
7
Affichages
199
sylvanu
  • Résolu(e)
XL 2021 Liste de validation de données à partir d'une table
Réponses
3
Affichages
501
Zdz16
G
  • Question Question
XL 2016 filtrer, copier et coller les données avec la macro
Réponses
4
Affichages
320
job75
L
  • Question Question
Microsoft 365 Manipuler les données XML à partir d'Excel
2
Réponses
19
Affichages
675
Loulou27
L
D
  • Question Question
XL 2021 Externaliser une base de données
Réponses
1
Affichages
207
vgendron
C
  • Résolu(e)
XL 2021 Mise en forme MsgBox
2 3
Réponses
43
Affichages
1 K
Constantin
C
M
  • Question Question
XL pour MAC Affichage de valeurs selon la date
Réponses
8
Affichages
389
Malko67
M
M
  • Question Question
XL 2016 Filtre une Base de données a partir d'un ComboBox
Réponses
2
Affichages
204
jcf6464
E
  • Question Question
Microsoft 365 Liste déroulante conditionnelle à 2 critères avec base de données sur fichier externe
Réponses
3
Affichages
367
job75
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…