Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.
  • Initiateur de la discussion Initiateur de la discussion Mody200
  • Date de début Date de début

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 !

Mody200

XLDnaute Occasionnel
Bonjour
Quand je choisis dans combobox1 le nom et textbox1 le code, la dernière valeur apparaît dans textbox3 comme dans la feuille, mais il y a une valeur différente
Sachant qu'il y a des données en double, mais je veux un autre événement
 

Pièces jointes

  • 28433ab1-10b5-435e-9b15-d330f874e090.jpg
    210.7 KB · Affichages: 22
  • Stock.xlsm
    Stock.xlsm
    17.9 KB · Affichages: 6
Dernière édition:
Bonjour,
Si c'est la dernière ligne des valeurs renseignées que tu cherches, ôte le Exit Sub de ta macro Change
VB:
Private Sub TextBox1_Change()

'cod vba
Dim iii
'TextBox11 = Null
'TextBox82 = Null
Sheet1.Activate
iii = 2
Do Until Sheet1.Cells(iii, "b").Text = ""
    If Me.TextBox1.Text = Sheet1.Cells(iii, "b").Text Then
      Cells(iii, "b").Activate
       
Me.TextBox2 = ActiveCell.Offset(0, 1).Text
Me.TextBox3 = ActiveCell.Offset(0, 2).Text

'Exit Sub (à supprimer)
    End If
    iii = iii + 1
   
Loop


End Sub
 
Bonjour
je ne veux pas ajouter ce code
Me.TextBox3 = ActiveCell.Offset(0, 2).Text
Le résultat dans textbox3 est la valeur de la cellule D3 qui est 662 .
Je ne veux pas que la zone de textbox3 soit dans la cellule D11
 
- 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

Réponses
4
Affichages
258
Réponses
4
Affichages
679
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…