macro pour suprimer ou modifier dans une base de donnée

[pralo]

bonjour a tous
je but sur un problème
j'ai crée une base de donnée en rentrant des donnée dans une feuille
mais je voudrais modifier ou supprimer cette même base de donnée

j'espère que j'ai pas trop mal expliqué mon problème
merci pour vos aide

 

[Robert]

Re : macro pour suprimer ou modifier dans une base de donnée

Bonsoir Pralo, bonsoir le forum,

En pièce jointe ton fichier avec deux boutons et les UserForm qui vont avec. Code commenté... Interface à améliorer avec couleurs, images, logos, etc...

Le fichier :

 

[pralo]

Re : macro pour suprimer ou modifier dans une base de donnée

Bonjour robert
Merci pour ton aide, ta façon de gérer la base de donnée et bien mieux que la mienne
J’ai rajouter un onglet "planning"
tu pense que c'est possible de rentrée les donnée automatiquement grâce a une boite de dialogue ( la même que tu fait pour la fonction "modifier/supprimer"
par exemple je clic sur H7 une boite de dialogue s'ouvre, je tape la 1er lettre du nom et ca me propose les diffèrent noms qui commence par cette lettre
je sélectionne le bon nom et sa rentre directement le prénom, adresse et n° de tel dans les colonne de I7 à L7

et un petit conseil aussi, j'ai trouvé un code pour aller a la date du jour que j'ai associer a un bouton "aujourd'hui"
mais c'est bizarre comment ca réagi, je ne sais pas si c'est normal ou pas ?

je sais pas si j'ai bien tout expliqué
encore merci pour ton aide

 

[Robert]

Re : macro pour suprimer ou modifier dans une base de donnée

Bonsoir Parlo, bonsoir le forum,

J'ai remanié le fichier mais un problème subsiste. Il y a 7 champs dans lUserForm1 et seulement 5 colonnes dans le tableau. Je ne sais pas comment tu veux faire. Pour l'instant j'en ai mis 6 (sans le premier : Numéro). Tu adapteras...
Tu double-cliques sur n'importe quelle cellule de la colonen H. L'UserForm2 s'ouvre. Tu tapes la valeur à rechercher. Tu double-cliques sur la ligne qui t'intéresse. L'UserForm1 s'ouvre, tu valides avec le bouton Ok...
Le code de la macro à l'ouverture :

Sub CelAujourdhui()
'sélectionne la cellule contenant la date du jour
Set r = Sheets("Planning").Columns(1).Find(Date, , xlFormulas, xlWhole)
If Not r Is Nothing Then r.Select
End Sub

Le fichier :

 

[pralo]

Re : macro pour suprimer ou modifier dans une base de donnée

bonsoir robert et bonsoir le forum
merci de passer du temps sur mon fichier
en fait j'ai mal expliqué ma demande concernant la façon d'utiliser la base de donnée dans mon tableau
je ne sais pas trop quoi faire pour t'aider a ne pas passer trop de temps sur mon fichier donc
j'ai créer une userform3 j'ai essayer d'expliquée comment je voyez sa fonction dans l'onglet "planning"

mais pour l'userform2 j'ai bien aimer la façon de modifier ou supprimer la base de donnée comme
sur le fichier "pralo_v02"

tu pense que c'est possible de revenir sur cette configuration ( j'ai remis les deux Boutons dans l'userform2)
désolé de ne pas pouvoir t'aider d'avantage pour t'avancer

j'ai acheter un livre sur le VBA pour Excel mais je pense que le chemin vas être long
encore merci pour ton aide

 

[Robert]

Re : macro pour suprimer ou modifier dans une base de donnée

Bonjour Pralo, bonjour le forum,

En pièce jointe la version 4...

 

[pralo]

Re : macro pour suprimer ou modifier dans une base de donnée

bonsoir Robert, bonsoir le forum
merci pour ta réponse rapide
je vient encore te solliciter
il doit y avoir un petit bug dans l'userform2 le bouton modifier ne réagi pas
et j'ai un message qui dit qu'il manque un "If" (copie d'écran dans la feuille "planning")
j'ai essayer de corriger tout seul mais mes compétence sont encore très limiter, je ne sais pas ou mettre le If

donc j'en profite pour te demander une autre petite chose
je te l'explique dans un encadrer sur la feuille de planning

encore merci pour ton aide

 

[Robert]

Re : macro pour suprimer ou modifier dans une base de donnée

Bonjour Pralo, bonjour le forum,

La version 5 en pièce jointe :

 

[pralo]

Re : macro pour suprimer ou modifier dans une base de donnée

bonsoir robert, bonsoir le forum

merci beaucoup ca marche super bien

maintenant je voudrais copier une journée et envoyer par email a mes collègues
je vais essayer de trouvé (tout seul) comment faire en trouvant des exemples sur le forum

si je n'y arrive pas ( j'espère que non) , je me permettrai de revenir vers toi pour ton aide

encore merci
pralo

 

[pralo]

Re : macro pour suprimer ou modifier dans une base de donnée

bonsoir robert bonsoir le forum
voila je revient vers toi j'ai bien réussi a intégrer une macro pour envoyer une copie par mail
mais je but sur une autre macro que je n'arrive pas a adapter a mes besoin
dont j'explique sur la feuille "planning"

et puis
j'ai essayer protéger en ecriture la feuille "base de données" avec un mot de passe "pralo"
mais je ne suis pas arrive comprendre ou placer ma ligne de code

merci encore pour ton aide

 

[Robert]

Re : macro pour suprimer ou modifier dans une base de donnée

Bonsoir Pralo, bonsoir le forum,

En pièce jointe la version 9 avec le code ci-dessous appliqué au bouton Copie Jour :

Sub Copie()
Dim d As Date 'déclare la variable d (Date)
Dim cel As Range 'déclare la variable cel (CELlule)

Application.ScreenUpdating = False 'masque les rafraîchissements d'écran
Sheets("Copie du Jour").Cells.Clear 'efface d'éventuelles anciennes données
'définit la variable d en fonction de la valeur de la cellule K1
d = DateSerial(op.Range("A1").Value, Month(Date), Day(Date)) 'la date du jour
For Each cel In op.Columns(1).SpecialCells(xlCellTypeFormulas) 'boucle sur toutes les cellules de la colonne 1 contenant des formules
    If cel.Value = d Then 'condition : si la valeur de la cellule est égale à d
        ActiveWindow.ScrollRow = cel.Row 'place la ligne de d en haut du volet
        cel.Select
        Exit For 'sort de la boucle
    End If 'fin de la condition
Next cel 'prochaine cellule de la boucle
With Sheets("Copie du Jour") 'prend en compte l'onglet "Copie du Jour"
    ActiveCell.Resize(85, 15).Copy .Range("A1") 'copie la cellule active redimensionnée + 84 lignes et + 14 colonnes
    .Select 'sélectionne l'onglet
End With 'fin de la prise en compte de l'onglet "Copie du Jour"
Application.ScreenUpdating = True 'affiche les rafraîchissements d'écran
End Sub

Le fichier :

 

[pralo]

Re : macro pour suprimer ou modifier dans une base de donnée

bonsoir robert bonsoir le forum
merci encore pour ton aide
une dernière petite requête ( j'espère)
j'ai essayer de protéger la feuille "base de donnée" avec un mot de passe "pralo"
mais je n'est pas réussie a trouver ou mettre ce code
Sheets("Base de donnée").Select.Unprotect "pralo"
Sheets("Base de donnée").Select.protect "pralo"
merci de nouveau pour ton aide

 

[Robert]

Re : macro pour suprimer ou modifier dans une base de donnée

Bonjour Pralo, bonjour le forum,

tu y étais presque... Il faut mettre au début du code :

Sheets("Base de donnée").Unprotect "pralo"

puis, en fin de code :

Sheets("Base de donnée").Protect "pralo"

 

[pralo]

Re : macro pour suprimer ou modifier dans une base de donnée

bonjour robert bonjour le forum

encore merci pour ton aide