XL 2010 réccupérer dernière résultat

Créer une discussion
Répondre

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
Y

yahya belbachir

XLDnaute Occasionnel
Bonjour
je ne sais pas si vous avez une idée comment récupperer la dérniere valeur d'une colonne, par la recherche du code client on l'affichant ce résultat dans le texbox du formulaire.
pour être plus clair
mon fichier çi joint j'ai coloré le résultat que je veux récuppérer par la recherche du code
ex si je tape le code dans la combobox il me donne le résultat que j'ai expliqué.
merci d'avance
 

Pièces jointes

Trier par date Trier par votes
par contre je ne sais pas s'il y a quelqu'un qui peut m'aider de me proposer une idée en VBA pour effectuer cet opération dans le formulaire.
on recherchant les code Id dans la combobox puis dans le textbox il me cherche par le code la dérnière valeur dans la ligne.
 
Vote positif 0 Vote négatif
Bonjour @yahya belbachir, @JHA 😉

J'ai tout repris.
  • J'ai remis la propriété RowSource à blanc.
  • Dans la procédure UserForm_Initialize(), on remplit la ComboBox1 sans doublon et sans ligne vide.
  • Dans la procédure Sub ComboBox1_Change(), on recherche le dernier impayé.
Le code du module de UserForm1 (il est un peu commenté) :
VB: 
Private Sub UserForm_Initialize()
Dim i As Long, t, m As Long, N As Long, doublon As Boolean

   'lecture des valeurs de la colonne B
   With Sheets("Feuil1")
      t = .Range("b2:b" & .Cells(.Rows.Count, "b").End(xlUp).Row).Value
   End With
   ' on groupe en haut du tableau les valeurs non vides
   ' et qui ne sont pas doublons
   For i = 1 To UBound(t)
      If t(i, 1) <> "" Then      'il faut que la valeur ne soit pas vide
         'recherche de la même valeur dans les lignes
         'au dessus de la ligne i qu'on traite
         doublon = False 'indicateur de doublon à FAUX
         For m = 1 To N
            'si c'est un doublon, alors on met doublon à VRAI
            If t(m, 1) = t(i, 1) Then doublon = True: Exit For
         Next m
         'si t(i,1) est rencontré pour la première fois (doublon = False) alors
         'on incrémente le compteur des valeurs sans doublon N
         'et on stocke à la ligne N la nouvelle valeur trouvée en i
         If Not doublon Then N = N + 1: t(N, 1) = t(i, 1)
      End If
   Next i
   'on remplit la combobox1 avec les N valeurs sans doublons stockées en haut de t
   For i = 1 To N: ComboBox1.AddItem t(i, 1): Next i
End Sub

Private Sub ComboBox1_Change()
Dim t, v, i As Long

   TextBox2 = ""     'RAZ de combobox1
   'lecture dec colonnes "Id-client" et "Reste Impayé"
   With Sheets("Feuil1")
      t = .Range("b2:b" & .Cells(.Rows.Count, "b").End(xlUp).Row).Value
      v = .Range("k2").Resize(UBound(t)).Value
   End With
   If ComboBox1.ListIndex > -1 Then
      'si la combobox affiche un de ses élément alors on boucle sur la tableau t
      'à partir de la fin du tableau à la recherche de l'identité affichée par la combobox1
      For i = UBound(t) To 1 Step -1
         'quand on trouve cette identité, on renvoie la valeur de l'impayé de la même ligne
         If CStr(t(i, 1)) = CStr(ComboBox1.Value) Then TextBox2 = v(i, 1): Exit For
      Next i
   End If
End Sub
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
mapomme à dit:
Bonjour @yahya belbachir, @JHA 😉

J'ai tout repris.
  • J'ai remis la propriété RowSource à blanc.
  • Dans la procédure UserForm_Initialize(), on remplit la ComboBox1 sans doublon et sans ligne vide.
  • Dans la procédure Sub ComboBox1_Change(), on recherche le dernier impayé.
Le code du module de UserForm1 (il est un peu commenté) :
VB: 
Private Sub UserForm_Initialize()
Dim i As Long, t, m As Long, N As Long, doublon As Boolean

   'lecture des valeurs de la colonne B
   With Sheets("Feuil1")
      t = .Range("b2:b" & .Cells(.Rows.Count, "b").End(xlUp).Row).Value
   End With
   ' on groupe en haut du tableau les valeurs non vides
   ' et qui ne sont pas doublons
   For i = 1 To UBound(t)
      If t(i, 1) <> "" Then      'il faut que la valeur ne soit pas vide
         'recherche de la même valeur dans les lignes
         'au dessus de la ligne i qu'on traite
         doublon = False 'indicateur de doublon à FAUX
         For m = 1 To N
            'si c'est un doublon, alors on met doublon à VRAI
            If t(m, 1) = t(i, 1) Then doublon = True: Exit For
         Next m
         'si t(i,1) est rencontré pour la première fois (doublon = False) alors
         'on incrémente le compteur des valeurs sans doublon N
         'et on stocke à la ligne N la nouvelle valeur trouvée en i
         If Not doublon Then N = N + 1: t(N, 1) = t(i, 1)
      End If
   Next i
   'on remplit la combobox1 avec les N valeurs sans doublons stockées en haut de t
   For i = 1 To N: ComboBox1.AddItem t(i, 1): Next i
End Sub

Private Sub ComboBox1_Change()
Dim t, v, i As Long

   TextBox2 = ""     'RAZ de combobox1
   'lecture dec colonnes "Id-client" et "Reste Impayé"
   With Sheets("Feuil1")
      t = .Range("b2:b" & .Cells(.Rows.Count, "b").End(xlUp).Row).Value
      v = .Range("k2").Resize(UBound(t)).Value
   End With
   If ComboBox1.ListIndex > -1 Then
      'si la combobox affiche un de ses élément alors on boucle sur la tableau t
      'à partir de la fin du tableau à la recherche de l'identité affichée par la combobox1
      For i = UBound(t) To 1 Step -1
         'quand on trouve cette identité, on renvoie la valeur de l'impayé de la même ligne
         If CStr(t(i, 1)) = CStr(ComboBox1.Value) Then TextBox2 = v(i, 1): Exit For
      Next i
   End If
End Sub
Cliquez pour agrandir...
c'est super bien un châpaux
je vous remercie infiniment "mapomme"
 
Vote positif 0 Vote négatif
mapomme à dit:
Bonjour @yahya belbachir, @JHA 😉

J'ai tout repris.
  • J'ai remis la propriété RowSource à blanc.
  • Dans la procédure UserForm_Initialize(), on remplit la ComboBox1 sans doublon et sans ligne vide.
  • Dans la procédure Sub ComboBox1_Change(), on recherche le dernier impayé.
Le code du module de UserForm1 (il est un peu commenté) :
VB: 
Private Sub UserForm_Initialize()
Dim i As Long, t, m As Long, N As Long, doublon As Boolean

   'lecture des valeurs de la colonne B
   With Sheets("Feuil1")
      t = .Range("b2:b" & .Cells(.Rows.Count, "b").End(xlUp).Row).Value
   End With
   ' on groupe en haut du tableau les valeurs non vides
   ' et qui ne sont pas doublons
   For i = 1 To UBound(t)
      If t(i, 1) <> "" Then      'il faut que la valeur ne soit pas vide
         'recherche de la même valeur dans les lignes
         'au dessus de la ligne i qu'on traite
         doublon = False 'indicateur de doublon à FAUX
         For m = 1 To N
            'si c'est un doublon, alors on met doublon à VRAI
            If t(m, 1) = t(i, 1) Then doublon = True: Exit For
         Next m
         'si t(i,1) est rencontré pour la première fois (doublon = False) alors
         'on incrémente le compteur des valeurs sans doublon N
         'et on stocke à la ligne N la nouvelle valeur trouvée en i
         If Not doublon Then N = N + 1: t(N, 1) = t(i, 1)
      End If
   Next i
   'on remplit la combobox1 avec les N valeurs sans doublons stockées en haut de t
   For i = 1 To N: ComboBox1.AddItem t(i, 1): Next i
End Sub

Private Sub ComboBox1_Change()
Dim t, v, i As Long

   TextBox2 = ""     'RAZ de combobox1
   'lecture dec colonnes "Id-client" et "Reste Impayé"
   With Sheets("Feuil1")
      t = .Range("b2:b" & .Cells(.Rows.Count, "b").End(xlUp).Row).Value
      v = .Range("k2").Resize(UBound(t)).Value
   End With
   If ComboBox1.ListIndex > -1 Then
      'si la combobox affiche un de ses élément alors on boucle sur la tableau t
      'à partir de la fin du tableau à la recherche de l'identité affichée par la combobox1
      For i = UBound(t) To 1 Step -1
         'quand on trouve cette identité, on renvoie la valeur de l'impayé de la même ligne
         If CStr(t(i, 1)) = CStr(ComboBox1.Value) Then TextBox2 = v(i, 1): Exit For
      Next i
   End If
End Sub
Cliquez pour agrandir...
Bonjour Cher Ami
veuillez m'excuser juste une question concernant cette solution,
pour être plus clair
ce code fonctionne très bien,sauf par exemple en débute par la première ligne
il y a seulement une ligne qui est rempli dans le tableau
alors la recherche ne donne pas de résultat
sauf si on remplit la deuxième et la troisième etc...
il y a une solution?
dans mon fichier je n'ai rien touché sauf j'ai supprimé quelque données pour vous expliquer.
merci
 

Pièces jointes

Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

V
  • Résolu(e)
Microsoft 365 Recherch V formule s'affiche et ne donne pas le résultat
Réponses
6
Affichages
442
Virginie31p
V
J
  • Résolu(e)
XL 2019 VBA - problème call depuis module de classe
Réponses
10
Affichages
372
JohnnyBGood
J
treza88
  • Question Question
XL 2021 Copier coller qui ajoute une référence absolu Toute seule
2
Réponses
24
Affichages
929
TooFatBoy
TooFatBoy
L
  • Question Question
Microsoft 365 Recherche dans fichier excel dans un répertoire
2 3 4
Réponses
50
Affichages
2 K
Loulou27
L
K
  • Résolu(e)
XL 2021 Garder un résultat ou donnée en mémoire
2
Réponses
17
Affichages
462
KORSiRO
K
jeff1494
  • Question Question
XL 2021 Problème à l'utilisation calendrier de Patricktoulon.
Réponses
5
Affichages
502
jeff1494
jeff1494
U
  • Question Question
Autres [RÉSOLU] Compléter la macro mais comment et où?
Réponses
2
Affichages
570
un internaute
U
V
  • Résolu(e)
Microsoft 365 Barre de recherche : comment rendre éditable le résultat ?
2 3 4
Réponses
52
Affichages
1 K
dysorthographie
dysorthographie
Staple1600
  • Question Question
Power Query Distancier entre deux villes
2 3
Réponses
35
Affichages
1 K
Staple1600
Staple1600
L
  • Résolu(e)
XL 2016 formule nombre de véhicules mensuel
2 3
Réponses
34
Affichages
983
Lionel 25
L
S
  • Question Question
Microsoft 365 Problème avec RechercheV
Réponses
3
Affichages
286
STEPHANIE1975
S
J
  • Question Question
Microsoft 365 Copie des onglets dans un fichier séparé depuis une liste en VBA
Réponses
3
Affichages
401
job75
job75
C
  • Résolu(e)
XL 2016 humains VS chatGPT
Réponses
9
Affichages
645
AtTheOne
AtTheOne
E
  • Résolu(e)
Microsoft 365 Combobox ajouter si n'existe pas dans Liste
2 3 4
Réponses
47
Affichages
3 K
cathodique
cathodique
J
  • Question Question
XL 2021 activesheet.shapes suivant la valeur d'une cellule
Réponses
5
Affichages
217
JUAN45
J
P
  • Résolu(e)
XL 2010 Recuperer données listbox
Réponses
3
Affichages
565
Staple1600
Staple1600
M
  • Question Question
XL 2010 Colorie certaines lettres en bleu dans la ListBox 1
Réponses
1
Affichages
454
job75
job75
P
  • Question Question
Autres Finalisation de projet VBA pour planning quotidien
2
Réponses
15
Affichages
681
vgendron
vgendron
E
  • Question Question
XL 2016 extraire le résultat d'une colonne a partir d'un autre fichier excel
Réponses
13
Affichages
362
vgendron
vgendron
A
  • Résolu(e)
Microsoft 365 NB.SI sous condition_fusionner deux formules
Réponses
10
Affichages
396
job75
job75
Retour