Microsoft 365 Code pour index

M

Marvin57

XLDnaute Occasionnel
bonjour tout le monde,

dans le fichier ci-joint, je peux appeler un formulaire depuis l'onglet "ACCUEIL".

Mon souhait ;

Lorsque je choisi une ligne dans la listbox et que je clique sur supprimer, il devrait automatiquement me remettre les numéros de la colonne ID à jour.

Explications ;

Si je choisi par exemple la ligne qui à le numéro ID 11 et que je le supprime, alors il devrait me remettre un ID 11 dans la colonne ID afin que les numéros ID se suivent toujours.

Est-ce possible ?

Merci à vous tous pour vos réponses.

Marvin57
 

Pièces jointes

  • essai trier index.xlsm
    20.4 KB · Affichages: 4
Solution
patricktoulon
re
comme ça vite fait
tu vire tout le code en entier de ton userform et tu met celui ci
VB: 
Private Sub CommandButton1_Click()
'dim R as range
'envoi toutes les références dans le tableau
    Set r = Sheets("TDB").Range("tblbd").ListObject.ListRows.Add.Range
    r.Cells(1).Value = Me.TextBox1.Value
    r.Cells(1).Value = Me.TextBox2.Value
    r.Cells(1).Value = Me.TextBox3.Value
    Sheets("TDB").Activate
    Unload Me
End Sub

Private Sub CommandButton2_Click()
    Dim x&
    Application.ScreenUpdating = True
    With ListBox1
        If ListBox1.ListIndex = -1 Then MsgBox ("Veuillez effectuer un choix d'article préalable !!!"): Exit Sub
        If MsgBox("Voulez vous supprimer l'article sélectionné ?", vbYesNo) = vbYes Then...
Trier par date Trier par votes
patricktoulon

patricktoulon

XLDnaute Barbatruc
re
Bonjour
je détecte là même si est là ton besoins un problème conceptuel
un ID c'est un identifiant que l'on attribut a une ligne de donnée
par conséquent il est unique et ne peut être réutilisé
un ligne supprimée supprimant par la force des choses un id doit resté supprimée


en début d'année tu atribut l'id (xx04) à paul
en milieu d'année tu supprime Paul
en fin d'année tu ne peux pas ajouter un certain Robert avec (xx04) comme ID (identifiant )
car en fin d'année si tu dois faire un listing ou chercher la donnée de paul pour une raison ou une autre tu aura celles de robert

à méditer
mon intervention s'arrêtera là;)
 
Vote positif 0 Vote négatif
M

Marvin57

XLDnaute Occasionnel
patricktoulon à dit:
re
Bonjour
je détecte là même si est là ton besoins un problème conceptuel
un ID c'est un identifiant que l'on attribut a une ligne de donnée
par conséquent il est unique et ne peut être réutilisé
un ligne supprimée supprimant par la force des choses un id doit resté supprimée


en début d'année tu atribut l'id (xx04) à paul
en milieu d'année tu supprime Paul
en fin d'année tu ne peux pas ajouter un certain Robert avec (xx04) comme ID (identifiant )
car en fin d'année si tu dois faire un listing ou chercher la donnée de paul pour une raison ou une autre tu aura celles de robert

à méditer
mon intervention s'arrêtera là;)
Cliquez pour agrandir...
Bonjour patrick,

Merci pour le retour.

Alors je viens de modifier le fichier comme il est en réel, à peu de choses prêt.

Ma demande au départ était de savoir si je supprime une ligne , donc l'ID en question est supprimé.
Ensuite si je veux créer un nouvel article il pourrait me redonner l'ID effacé ou non ?

Dans le fichier ci-joint j'ai effacé l'article ayant eu l'ID 5. Maintenant lorsque j'appelle le formulaire tu verra qu'il me donne l'ID 18 au lieu de me donner l'ID 17 vu que le 5 avait été supprimé.

Alors lorsque je te lis je ne sais plus vraiment si mon fichier actuel est bien construit !

Comment gérer cela d'après toi ?

Merci beaucoup A+
 

Pièces jointes

  • essai trier index.xlsm
    25 KB · Affichages: 2
Vote positif 0 Vote négatif
patricktoulon

patricktoulon

XLDnaute Barbatruc
re
comme ça vite fait
tu vire tout le code en entier de ton userform et tu met celui ci
VB: 
Private Sub CommandButton1_Click()
'dim R as range
'envoi toutes les références dans le tableau
    Set r = Sheets("TDB").Range("tblbd").ListObject.ListRows.Add.Range
    r.Cells(1).Value = Me.TextBox1.Value
    r.Cells(1).Value = Me.TextBox2.Value
    r.Cells(1).Value = Me.TextBox3.Value
    Sheets("TDB").Activate
    Unload Me
End Sub

Private Sub CommandButton2_Click()
    Dim x&
    Application.ScreenUpdating = True
    With ListBox1
        If ListBox1.ListIndex = -1 Then MsgBox ("Veuillez effectuer un choix d'article préalable !!!"): Exit Sub
        If MsgBox("Voulez vous supprimer l'article sélectionné ?", vbYesNo) = vbYes Then
            x = .List(.ListIndex, 3)
            [Tab_6].Rows(x).EntireRow.Delete
        End If
    End With
    MsgBox ("Suppression  de la ligne effectuée !!!")
    reliste
End Sub

Private Sub ListBox1_Click()
    Dim tblBD()
    With ListBox1
        TextBox1 = .List(.ListIndex, 0)
        TextBox2 = .List(.ListIndex, 1)
        TextBox3 = .List(.ListIndex, 2)
    End With
End Sub

Private Sub UserForm_Initialize()
    reliste
End Sub
Sub reliste()
    Dim tblBD()
    tblBD = [Tab_6].Resize(, 4).Value: For i = 1 To UBound(tblBD): tblBD(i, 4) = i: Next
    Me.ListBox1.List = tblBD
    Me.ListBox1.ColumnCount = 4
    Me.ListBox1.ColumnWidths = "40;50;50"
End Sub
 
Vote positif 0 Vote négatif
Solution
M

Marvin57

XLDnaute Occasionnel
patricktoulon à dit:
re
comme ça vite fait
tu vire tout le code en entier de ton userform et tu met celui ci
VB: 
Private Sub CommandButton1_Click()
'dim R as range
'envoi toutes les références dans le tableau
    Set r = Sheets("TDB").Range("tblbd").ListObject.ListRows.Add.Range
    r.Cells(1).Value = Me.TextBox1.Value
    r.Cells(1).Value = Me.TextBox2.Value
    r.Cells(1).Value = Me.TextBox3.Value
    Sheets("TDB").Activate
    Unload Me
End Sub

Private Sub CommandButton2_Click()
    Dim x&
    Application.ScreenUpdating = True
    With ListBox1
        If ListBox1.ListIndex = -1 Then MsgBox ("Veuillez effectuer un choix d'article préalable !!!"): Exit Sub
        If MsgBox("Voulez vous supprimer l'article sélectionné ?", vbYesNo) = vbYes Then
            x = .List(.ListIndex, 3)
            [Tab_6].Rows(x).EntireRow.Delete
        End If
    End With
    MsgBox ("Suppression  de la ligne effectuée !!!")
    reliste
End Sub

Private Sub ListBox1_Click()
    Dim tblBD()
    With ListBox1
        TextBox1 = .List(.ListIndex, 0)
        TextBox2 = .List(.ListIndex, 1)
        TextBox3 = .List(.ListIndex, 2)
    End With
End Sub

Private Sub UserForm_Initialize()
    reliste
End Sub
Sub reliste()
    Dim tblBD()
    tblBD = [Tab_6].Resize(, 4).Value: For i = 1 To UBound(tblBD): tblBD(i, 4) = i: Next
    Me.ListBox1.List = tblBD
    Me.ListBox1.ColumnCount = 4
    Me.ListBox1.ColumnWidths = "40;50;50"
End Sub
Cliquez pour agrandir...
OK Merci. Je vois ça ce soir et je te tiens au courant.
A+
 
Vote positif 0 Vote négatif
M

Marvin57

XLDnaute Occasionnel
patricktoulon à dit:
re
comme ça vite fait
tu vire tout le code en entier de ton userform et tu met celui ci
VB: 
Private Sub CommandButton1_Click()
'dim R as range
'envoi toutes les références dans le tableau
    Set r = Sheets("TDB").Range("tblbd").ListObject.ListRows.Add.Range
    r.Cells(1).Value = Me.TextBox1.Value
    r.Cells(1).Value = Me.TextBox2.Value
    r.Cells(1).Value = Me.TextBox3.Value
    Sheets("TDB").Activate
    Unload Me
End Sub

Private Sub CommandButton2_Click()
    Dim x&
    Application.ScreenUpdating = True
    With ListBox1
        If ListBox1.ListIndex = -1 Then MsgBox ("Veuillez effectuer un choix d'article préalable !!!"): Exit Sub
        If MsgBox("Voulez vous supprimer l'article sélectionné ?", vbYesNo) = vbYes Then
            x = .List(.ListIndex, 3)
            [Tab_6].Rows(x).EntireRow.Delete
        End If
    End With
    MsgBox ("Suppression  de la ligne effectuée !!!")
    reliste
End Sub

Private Sub ListBox1_Click()
    Dim tblBD()
    With ListBox1
        TextBox1 = .List(.ListIndex, 0)
        TextBox2 = .List(.ListIndex, 1)
        TextBox3 = .List(.ListIndex, 2)
    End With
End Sub

Private Sub UserForm_Initialize()
    reliste
End Sub
Sub reliste()
    Dim tblBD()
    tblBD = [Tab_6].Resize(, 4).Value: For i = 1 To UBound(tblBD): tblBD(i, 4) = i: Next
    Me.ListBox1.List = tblBD
    Me.ListBox1.ColumnCount = 4
    Me.ListBox1.ColumnWidths = "40;50;50"
End Sub
Cliquez pour agrandir...
Re,

alors il y a un soucis lorsque je saisi un nouvel article ( voir image)
ERREUR.png
 
Vote positif 0 Vote négatif
M

Marvin57

XLDnaute Occasionnel
patricktoulon à dit:
re
comme ça vite fait
tu vire tout le code en entier de ton userform et tu met celui ci
VB: 
Private Sub CommandButton1_Click()
'dim R as range
'envoi toutes les références dans le tableau
    Set r = Sheets("TDB").Range("tblbd").ListObject.ListRows.Add.Range
    r.Cells(1).Value = Me.TextBox1.Value
    r.Cells(1).Value = Me.TextBox2.Value
    r.Cells(1).Value = Me.TextBox3.Value
    Sheets("TDB").Activate
    Unload Me
End Sub

Private Sub CommandButton2_Click()
    Dim x&
    Application.ScreenUpdating = True
    With ListBox1
        If ListBox1.ListIndex = -1 Then MsgBox ("Veuillez effectuer un choix d'article préalable !!!"): Exit Sub
        If MsgBox("Voulez vous supprimer l'article sélectionné ?", vbYesNo) = vbYes Then
            x = .List(.ListIndex, 3)
            [Tab_6].Rows(x).EntireRow.Delete
        End If
    End With
    MsgBox ("Suppression  de la ligne effectuée !!!")
    reliste
End Sub

Private Sub ListBox1_Click()
    Dim tblBD()
    With ListBox1
        TextBox1 = .List(.ListIndex, 0)
        TextBox2 = .List(.ListIndex, 1)
        TextBox3 = .List(.ListIndex, 2)
    End With
End Sub

Private Sub UserForm_Initialize()
    reliste
End Sub
Sub reliste()
    Dim tblBD()
    tblBD = [Tab_6].Resize(, 4).Value: For i = 1 To UBound(tblBD): tblBD(i, 4) = i: Next
    Me.ListBox1.List = tblBD
    Me.ListBox1.ColumnCount = 4
    Me.ListBox1.ColumnWidths = "40;50;50"
End Sub
Cliquez pour agrandir...
Je viends de modifier la ligne en jaune en cela ci-dessous et ça à l'air de fonctionner. Est-ce correct ?

VB: 
    Set R = Sheets("TDB").Range("Tab_6").ListObject.ListRows.Add.Range
 
Vote positif 0 Vote négatif

Discussions similaires

M
  • Résolu(e)
Microsoft 365 Prochain numéro
Réponses
2
Affichages
411
Marvin57
M
M
  • Résolu(e)
Microsoft 365 code pour ajout
Réponses
13
Affichages
399
Marvin57
M
L
  • Question
XL pour MAC Classer de chiffres aléatoirement en face d'une série de données
Réponses
9
Affichages
1 K
lola18
L
E
  • Question
Microsoft 365 Mettre code couleur quand un texte en dessous d'un autre
Réponses
3
Affichages
340
Erakmur
E
V
  • Question
XL 2021 Chronologie Globale
Réponses
1
Affichages
381
Gégé-45550
Gégé-45550
Todre
  • Question
Microsoft 365 [RESOLU] Mettre 2 adresses mail dans une cellule
Réponses
1
Affichages
310
Todre
Todre
M
  • Résolu(e)
Microsoft 365 Code transfert
Réponses
11
Affichages
366
Marvin57
M
M
  • Résolu(e)
Microsoft 365 Code de tri
2
Réponses
22
Affichages
817
Dudu2
Dudu2
H
  • Question
Power Query Power Query / récupérer ligne personnalisée
Réponses
4
Affichages
740
HOUAFA
H
M
  • Résolu(e)
Microsoft 365 Code pour afficher selection
Réponses
11
Affichages
604
Marvin57
M

Membres actuellement en ligne

1 membres et 20 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
315 127
Messages
2 116 534
Membres
112 771
dernier inscrit
mikadu49