Discussion :

[Sangoku76]

Bonjour
Devant faire un projet sur excel sur une base de donnée, et ne connaissant pas le vba je vous demande votre aide.

J'ai une base de donnée de nom avec N°Client Nom Prénom Téléphone Date d'inscription.

J'aimerais que quand l'utilisateur du programme l'utilise il puisse en cliquant sur un bouton affecter un nouveau champ a la base de donnée c'est à dire que la macro recopie une ligne en dessous du dernier champ de la base de donné en déverrouillant les cellules concerné (Nom Prénom Numéro) inscrit le N°Client suivant inscrit la date d'aujourd'hui en N°d'inscription. Ces deux dernière cellules doivent resté bloqué.

On avait commencé en utilisant dans la macro 3cellules qu'on caché avec des valeurs NBVAL.

On avait réussi à la faire jusqu a ce qu'on nous a intégré une expression lig dedans pour que personne puissent s'amuser à cliquer pleins de fois sur le bouton nouveau client et que sa créent pleins de champs. Mais en intégrant lig on a plus réussi à faire cet macro
Voila ce qu'on a:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
ActiveSheet.Unprotect
    lig = Range("I1")
    If Range("I1") > Range("K1") + 1 Then lig = Range("K1") + 1
    Range("A" & lig - 1 & ":E" & lig - 1).Select
    Range("A" & lig - 1 & ":E" & lig).Select
    Selection.AutoFill Destination:=Range("A" & lig & ":E" & lig),Type:=xlFillDefault
    Range("A" & lig + 1 & ":E" & lig + 1).Select
    Range("A" & lig & " :E" & Range("J1")).Select
    Selection.ClearContents
    Cells.Select
    Selection.Locked = True
    Range("B" & lig & ":D" & lig).Select
    Selection.Locked = False
    Range("B" & lig).Select
    Range("A" & lig) = Range("J1")
    Range("E" & lig - 1) = Now()
    Range("J1") = Range("J1") + 1
    ActiveSheet.Protect

Mais elle ne marche pas. De plus il faut que je rajoute dedans quelque chose que pour chaque nouveau champ mon tableau croisée dynamique le prenne en compta automatiquement.

Je sais pas si j'ai bien expliqué ma situation et si vous pouvez m'aidez !
Merci

[Daranc]

lorsque tu envoies un message juste dan la ligne du dessus il y a ce symbole #
sélectionnes ton code et cliques dessus tu obtiens ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
lig = Range("I1")
If Range("I1") > Range("K1") + 1 Then lig = Range("K1") + 1
Range("A" & lig - 1 & ":E" & lig - 1).Select
Range("A" & lig - 1 & ":E" & lig).Select
Selection.AutoFill Destination:=Range("A" & lig & ":E" & lig),Type:=xlFillDefault
Range("A" & lig + 1 & ":E" & lig + 1).Select
Range("A" & lig & " :E" & Range("J1")).Select
Selection.ClearContents
Cells.Select
Selection.Locked = True
Range("B" & lig & "" & lig).Select
Selection.Locked = False
Range("B" & lig).Select
Range("A" & lig) = Range("J1")
Range("E" & lig - 1) = Now()
Range("J1") = Range("J1") + 1
ActiveSheet.Protect

c'est nettement plus clair pour ceux qui te lise

[Daranc]

autrement pour faire ceci il y a un outil dans Excel : la grille ( enfin c'est le nom qu'il partait sous 2000) il est toujours présent dans 2007 ( mais pas des plus évident à dégoter)
cliquer le gros bouton Microsoft
--> option Excel
--> personalisé
cliquer commande non présente dans le bandeau
selectionner formulaire
cliquer ajouter
OK
l'icone formulaire est dans la barre personnalisée
il y a d'autre manœuvres derrières à faire mais en mettant un nom à ton tableau ça devrait être gérable en TCD