En fonction donne combox appel des donne dans texbox

Fermé

cedric0715 Messages postés 210 Date d'inscription mercredi 25 février 2015 Statut Membre Dernière intervention 6 mai 2018 - 17 janv. 2017 à 11:49
cedric0715 Messages postés 210 Date d'inscription mercredi 25 février 2015 Statut Membre Dernière intervention 6 mai 2018 - 17 janv. 2017 à 16:02

Bonjour,
bonjour
le choix de mon combox est dans la colone A
des lors que je choisis un élément dans mon combox je voudrais avoir dans mon texbox4 la valeur de la ligne chosis qui se trouve dans ma colonne c
mon code du dessous affiche la valeur de mon combox
pouvez vous m'aider


Private Sub ComboBox2_Change()
    Dim plage As Range
    Set plage = Sheets("feuil3").Range("a2:g3400")
    TextBox4 = plage(1 + ComboBox2.ListIndex, 1)
End Sub

merci par avance

A voir également:

En fonction donne combox appel des donne dans texbox
Appel anonyme - Guide
Fonction si et - Guide
Ysé reçoit un appel téléphonique de gautier. gautier lui dit qu'il a reçu un message électronique suspect de sa part. comment s'appelle cette situation ? quels sont les deux conseils indispensables à donner à ysé ? ✓ - Forum Mail
Comment reecouter un appel sur iphone - Forum Huawei
Renvoi d'appel ooredoo - Forum telephonie fixe

2 réponses

Réponse 1 / 2

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
Modifié par f894009 le 17/01/2017 à 13:05

Bonjour,

ListIndex commence a 0 pas a 1 si selection, donc premiere cellule en 2

Private Sub ComboBox2_Change()
    Dim plage As Range
    Set plage = Sheets("feuil3").Range("a2:g3400")
'soit comme ceci mais tenir compte de la premiere ligne de la plage
    TextBox4 = plage(2 + ComboBox2.ListIndex, 1)
'soit comme ceci:
    TextBox1 = plage(1 + ComboBox1.ListIndex, 1).Row
End Sub

cedric0715 Messages postés 210 Date d'inscription mercredi 25 février 2015 Statut Membre Dernière intervention 6 mai 2018
17 janv. 2017 à 16:02

MERCI J AI PRIS LA SOLUTION DE mOMO

Réponse 2 / 2

momo
17 janv. 2017 à 14:05

Bonjour
sans un modèle de ton fichier dur dur
peux être comme ça

Private Sub ComboBox2_Change()
    TextBox4.Value = Range("C" & ComboBox2.ListIndex + 1).Value
End Sub

A+
Maurice

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
17 janv. 2017 à 15:26

Bonjour,

sans un modèle de ton fichier dur dur
Ben si, y a ce qu'il faut dans le code qu'il a mis dans son post

cedric0715 Messages postés 210 Date d'inscription mercredi 25 février 2015 Statut Membre Dernière intervention 6 mai 2018
17 janv. 2017 à 16:01

MERCI

Discussions similaires

Code de renvoi d'appel : Ooredo, Mobilis...

comment donner les droits sur fichier partage

Accés au cloud

[binaire] p'tite question

Renvoie code ooredoo

Discussions similaires

Newsletters