XL 2013 Userform ne fonctionne pas s'il manque des Numéros de liste

[candido57]

Bonjour,
Il y a quelques temps vous m'avez aidé pour faire mon fichier qui fonctionne très bien.
La seule chose que je n'ai pas réussi à régler , c'est le faite que lorsque sur ma liste de la colonne A la numérotation ne se suit pas, dans l'userform, les valeurs ne sont pas bonnes, elles sont décalés
Actuellement sur le fichier qui fonction, je suis obligé de mettre des lignes vides pour avoir en colonne A des chiffres qui se suivent.
Par exemple 1 -2 3 -4 -5 -6 -7 -8 -9 mon fichier fonctionne
Mais si j'ai 2 - 4 -5 -7 -9 -11 -42 - 63 - 110 Mon fichier ne me met pas correctement les infos, elles ne va pas chercher l'info au bonne endroit

Merci merci d'avance pour votre aide.

 

[PierreMalta]

bonjour Candido
c'est un peu normal, vous identifiez le numéro de ligne du client par son numéro de carte +4.
voici un correctif

'Ligne = Me.ComboBox_Carte.ListIndex + 4
Ligne = ws.Range("B4:B1000").Find(ComboBox_Carte).Row

bon code

 

[candido57]

bonjour Candido
c'est un peu normal, vous identifiez le numéro de ligne du client par son numéro de carte +4.
voici un correctif

'Ligne = Me.ComboBox_Carte.ListIndex + 4
Ligne = ws.Range("B4:B1000").Find(ComboBox_Carte).Row

bon code

Bonjour,

Déjà un grand merci pour ton aide.
Mon code actuel est le suivant.
Où sur quel ligne dois je changer ta correction ? J'ai essayé , mais je ne parviens pas .

Private Sub ComboBox_Carte_Change()
Dim Ligne As Long
'Application.Calculation = xlCalculationAutomatic

'Donnée en auto dans UserForm
If Me.ComboBox_Carte.ListIndex = -1 Then Exit Sub
NumCarte = Me.ComboBox_Carte
Me.Tbx_Qté.Value = 1 'valeur par défaut
With Sheets("Donnée").ListObjects("t_Donnée")
Me.Tbx_Nom = .ListColumns("Nom").DataBodyRange(NumCarte) 'Nom
Me.Tbx_Prénom = .ListColumns("Prénom").DataBodyRange(NumCarte) 'Prénom
Me.Tbx_NbPoints = .ListColumns("Point").DataBodyRange(NumCarte) 'Nombre de points
Me.Tbx_Alimentation = .ListColumns("Alimentation").DataBodyRange(NumCarte) 'Alimentation
Me.Tbx_FamilleDe = .ListColumns("Famille de").DataBodyRange(NumCarte) 'Nombre par famille
Me.Tbx_Jour = .ListColumns("Jour").DataBodyRange(NumCarte) 'Jour
Me.Tbx_Heure = Format(.ListColumns("Heure").DataBodyRange(NumCarte), "hh""h""mm") 'Heure
Me.Tbx_Naissance = Format(.ListColumns("Naissance").DataBodyRange(NumCarte), "dd/mm/yyyy") 'Naissance
Me.Tbx_Dotation = .ListColumns("Dotation accordée").DataBodyRange(NumCarte) 'Dotation
Me.Tbx_Mois = .ListColumns("Mois").DataBodyRange(NumCarte) 'Mois
End With

 

[ChTi160]

Bonjour le Fil
Tu dis :

Mon code actuel est le suivant.

mais dans le fichier joint , je n'ai pas trouvé de tableau structuré "t_Donnée"
dans le fichier que je joins , j'ai travaillé que les données de la Feuille "Données" (Sans TS)
il faudrait que tu mettes le Fichier sur lequel tu travailles
ce n'est pas très Clair tout ça ! Lol
ou trouve t'on ceux ci ?

Me.Tbx_Jour = .ListColumns("Jour").DataBodyRange(NumCarte) 'Jour
Me.Tbx_Heure = Format(.ListColumns("Heure").DataBodyRange(NumCarte), "hh""h""mm") 'Heure
Me.Tbx_Naissance = Format(.ListColumns("Naissance").DataBodyRange(NumCarte), "dd/mm/yyyy") 'Naissance
Me.Tbx_Dotation = .ListColumns("Dotation accordée").DataBodyRange(NumCarte) 'Dotation
Me.Tbx_Mois = .ListColumns("Mois").DataBodyRange(NumCarte) 'Mois

Jean marie

 

[candido57]

Bonjour le Fil
Tu dis :

mais dans le fichier joint , je n'ai pas trouvé de tableau structuré "t_Donnée"
dans le fichier que je joins , j'ai travaillé que les données de la Feuille "Données" (Sans TS)
il faudrait que tu mettes le Fichier sur lequel tu travailles
ce n'est pas très Clair tout ça ! Lol
ou trouve t'on ceux ci ?

Me.Tbx_Jour = .ListColumns("Jour").DataBodyRange(NumCarte) 'Jour
Me.Tbx_Heure = Format(.ListColumns("Heure").DataBodyRange(NumCarte), "hh""h""mm") 'Heure
Me.Tbx_Naissance = Format(.ListColumns("Naissance").DataBodyRange(NumCarte), "dd/mm/yyyy") 'Naissance
Me.Tbx_Dotation = .ListColumns("Dotation accordée").DataBodyRange(NumCarte) 'Dotation
Me.Tbx_Mois = .ListColumns("Mois").DataBodyRange(NumCarte) 'Mois

Jean marie

Bonjour,

Oui c'est mieux avec le bon fichier.
Par contre je n'arrive plus à coller les infos en appuyant sur valider.
Je pense que ce n'est pas compatible avec mon MAC.

Merci pour ton aide

 

[ChTi160]

Re
Une approche perfectible !
a tester et Nous dire .
Jean marie

 

[candido57]

Bonjour Jean Marie,
Merci pour ton aide.
Il faut que j'essais sur Windows car avec mon mac ça fonctionne pas .
Je reviendrai vers toi dès que j'ai fait le test.
Merci
Bonne soirée

 

[PierreMalta]

Oh, oh, tout a changé, le formulaire( j'ai pas vu mais le code l'indique), les données regroupées en tableau...
De plus j'ignore tout des propriétés de ces tableaux. je travaille sur 2007 et j'ai toutes mes fonctions pour paramétrer mes accès, voici le code que j'utiliserais
a l'initiation du formulaire

Set ws = Sheets("Donnée").Cells(5, 2)
i = 0
Do While ws <> ""
    If ws.Offset(0, 1) <> "" Then
        ComboBox_Carte.AddItem ws
        ComboBox_Carte.List(i, 1) = ws.Row
        i = i + 1
    End If
Loop

et au choix du numéro de carte

ni = ComboBox_Carte.ListIndex
If ni = -1 Then
    nl = ComboBox_Carte.List(ni, 1)
    Tbx_Qté.Value = 1
    Tbx_Nom = ws.Cells(nl, 3)
    Tbx_Prénom = ws.Cells(nl, 4)
    '...
End If

bon code

 

[PierreMalta]

bien sûr il faut lire
If ni > -1 Then

 

[candido57]

bien sûr il faut lire
If ni > -1 Then

Bonjour,
Merci pour ton aide, je vais essayé d'introduire ton code .

Merci

Bonne journée