Clé primaire auto incrémentée non modifiable

Version imprimable

22/11/2014, 19h38
Xenna77

Clé primaire auto incrémentée non modifiable

Bonsoir au Forum,

Je fais appel à nouveau à vos lumières. Peut-on créer en Excel comme dans ACCESS une clé primaire numérique automatiquement incrémentée ?
J'avais mis cette formule dans ma colonne A en la bloquant avec la validation des données et je l'ai copiée sur toutes les cellules de ma colonne mais le soucis c'est que si on efface la donnée de la colonne B, la clé s'efface également:

Code:

=SI(b2<>"";LIGNE();"")

Auriez-vous une idée en VBA peut-être ?

Merci

Xenna

Aur
23/11/2014, 00h03
vinc_bilb

Bonsoir,

Solution simple, si j'ai bien compris, vous faites comme vous l'avez décrit mais à la fin, vous reprenez tout et vous faites une copie + collage spécial = valeurs.
Sous VBA, c'est aussi facile mais un exemple (fictif possible) aiderait ....

Bonjour,
non le N° de ligne ne peut pas être une clé primaire, car la suppression d'une ligne permettrait de numéroter une nouvelle ligne avec un ID déjà utilisé.

l'intérêt d'une clé primaire est de faire le lien entre deux onglets (Tables) .

il faut utiliser une feuille contenant les clés primaires.
Code:

1 2 3 4 5 6 7 8 Sub test() Debug.Print ClePrimaire("A1") End Sub Function ClePrimaire(Cle As String) As Long ClePrimaire = ClePrimaire("Clés_Primaire").Range(Cle) + 1 Sheets("Clés_Primaire").Range(Cle) = ClePrimaire End Function

23/11/2014, 09h19
Xenna77

1 pièce(s) jointe(s)

Bonjour,

Un grand merci pour vos réponses mais je n'arrive pas à intégrer ce code dans mon fichier

Voici le fichier

Encore merci ;)

1 pièce(s) jointe(s)

Bonjour,
le fichier est en pièce jointe!

Code:

1
2
3
4
5
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Trim("" & Sh.Cells(Target.Row, 1)) = "" And Trim("" & Sh.Cells(Target.Row, 2)) <> "" _
And Sh.Name <> "Clés_Primaire" Then _
 Sh.Cells(Target.Row, 1) = ClePrimaire(Sh.Name, Sh.Index)
End Sub

Code:

1
2
3
4
5
Function ClePrimaire(Cle As String, Pos As Integer) As Long
ClePrimaire = Sheets("Clés_Primaire").Cells(Pos, 2) + 1
Sheets("Clés_Primaire").Cells(Pos, 2) = ClePrimaire
Sheets("Clés_Primaire").Cells(Pos, 1) = Cle
End Function

24/11/2014, 05h17
Xenna77

Bonjour,

Je te remercie infiniment pour ta réponse mais lorsque je modifie une donnée dans GTT, les valeurs qui ont été transférées vers GM ne s'adapte pas. Est-ce que la clé primaire ne doit pas avoir ce rôle également ??

Si par exemple la clé n°1 dans GTT, c'est une ligne qui nécessite une RM dans la liste de choix (--> copie des données vers GM), si jamais l'utilisateur s'est trompé et modifie l'une des cellules dans GTT qui a déjà été copiées vers GM, la donnée en question ne s'adapte pas également dans GM ?

Merci pour le temps que vous me consacrer ....

Xenna
24/11/2014, 12h40
Invité

Bonjour,
Puis-je te rappeler qu'un tableur Excel n'est pas une base de données relationnelle. Une clé primaire effectue le lien entre 2 tables dans le but de ne pas recopier les valeurs d'une table à l'autre. Seule l’identifiant (ID) apparaît dans l'autre table.

se sont les requêtes qui permettent d'afficher les valeur liées par la clé primaire.

Code:

select Table1.Champ1,Table2.Champ1 from Table1 innert join table2 on table2.id=table1.id

tu demande de gérer par macro ce qu'ACCESS gère en assembleur. De plus ACCESS ne recopie pas les données d'une table à l'autre en automatique. Ce dont tu fais allusion c'est le schéma relationnel avec ses contraintes mais ça marche pas comme ça.
24/11/2014, 13h56
Xenna77

Merci encore pour votre aimable aide et pour cet éclaircissement !

Bonne journée à vous !
28/11/2014, 22h42
Xenna77

Bonsoir,

Je reviens vers vous concernant la clé primaire. Lorsque je protège la colonne dans laquelle se trouve la clé primaire, la fonction vba ne fonctionne plus. Pourriez-vous m'aider ?

Merci.

Bonsoir,
il faut déprotéger la feuille avant et la re-protéger après

Code:

1
2
3
4
5
6
7
8
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Trim("" & Sh.Cells(Target.Row, 1)) = "" And Trim("" & Sh.Cells(Target.Row, 2)) <> "" _
And Sh.Name <> "Clés_Primaire" Then
  Unprotect "Password"
    Sh.Cells(Target.Row, 1) = ClePrimaire(Sh.Name, Sh.Index)
  Protect "Password"
 End If
End Sub

Bonsoir,

C'est ce que j'avais fait avec un point devant unprotect, mais même sans, il marque une erreur au niveau du Sh.Cells ?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Workbook_Open()
 
End Sub
 
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Trim("" & Sh.Cells(Target.Row, 1)) = "" And Trim("" & Sh.Cells(Target.Row, 2)) <> "" _
And Sh.Name <> "Clés_Primaire" Then
  Unprotect "Xenna"
    Sh.Cells(Target.Row, 1) = ClePrimaire(Sh.Name, Sh.Index) '----> à ce niveau
  Protect "Xenna"
 End If
End Sub

? :(

30/11/2014, 20h49
Xenna77

Bonsoir à tous,

Est-ce que quelqu'un aurait une solution à mon problème ? J'aimerais que la clé primaire ne puisse pas être effacée. J'ai donc protégé ma colonne A mais du coup la fonction clé primaire bug ... et excel plante ...

Help svp !:arf:

Bonsoir,
si tu as protégé la feuille Clés_Primaire également

Code:

1
2
3
4
5
6
7
Function ClePrimaire(Cle As String, Pos As Integer) As Long
Sheets("Clés_Primaire").Unprotect "Password"
ClePrimaire = Sheets("Clés_Primaire").Cells(Pos, 2) + 1
Sheets("Clés_Primaire").Cells(Pos, 2) = ClePrimaire
Sheets("Clés_Primaire").Cells(Pos, 1) = Cle
Sheets("Clés_Primaire").Protect "Password"
End Function

Code:

1
2
3
4
5
6
7
8
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Trim("" & Sh.Cells(Target.Row, 1)) = "" And Trim("" & Sh.Cells(Target.Row, 2)) <> "" _
And Sh.Name <> "Clés_Primaire" Then
 Sh.Unprotect "Xenna"
    Sh.Cells(Target.Row, 1) = ClePrimaire(Sh.Name, Sh.Index) '----> à ce niveau
  Sh.Protect "Xenna"
 End If
End Sub

01/12/2014, 22h15
Xenna77

1 pièce(s) jointe(s)

Bonsoir,

Je n'ai pas protégé ma feuille clé primaire. Il bug dans le ThisWorkbook

Je vous joins le fichier. :(

Bonjour,
Voila ça marche!

Code:

1
2
3
4
5
6
7
8
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Trim("" & Sh.Cells(Target.Row, 1)) = "" And Trim("" & Sh.Cells(Target.Row, 2)) <> "" _
And Sh.Name <> "Clés_Primaire" Then
 Sh.Unprotect Password:="Xenna"
    Sh.Cells(Target.Row, 1) = ClePrimaire(Sh.Name, Sh.Index)
  Sh.Protect Password:="Xenna"
 End If
End Sub

03/12/2014, 19h35
Xenna77

:resolu:

:merci:

Cela mérite plus qu'un café virtuel !

Merci encore à vous ! Vous êtes super !

Xenna