Discussion :

[Xenna77]

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 :

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

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

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

Merci

Xenna

Aur

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

[Invité]

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 :

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

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

[Xenna77]

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

[Invité]

Bonjour,
le fichier est en pièce jointe!

Code ThisWorkbook :

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

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 Module1 :

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

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

[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

[Invité]

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

Code Module1 :

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

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 :

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

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