Discussion :

[Dart974]

Bonjour tout le monde,
voilà, dans un formulaire je souhaite faire apparaitre la valeur d'une cellule dans une textbox.
D’après mes recherches, je suis arrivé à ça :

TextBox14.Value = Sheets("Bilan DS").Range(C.Offset(0, 1)).Value

Pour mieux me faire comprendre: la cellule se trouve dans l'onglet "Bilan", à une ligne choisie grâce à un menu déroulant (variable C) et décalée d'une cellule à droite de la variable C sélectionnée.
Mais ça ne fonctionne pas...
Quelqu'un pourrait m'aiguiller?
Je pense que c'est la partie soulignée qui pose problème.
Car si je remplace par une cellule fixe ça fonctionne.
Je précise que mon menu déroulant marche bien.

[Dart974]

Rectificatif, l'onglet se nomme bien "Bilan DS" alors pas d'erreur de ce coté malheureusement...

[rjamin]

Bonjour,
Je ne suis pas sûr de bien comprendre 'variable C' mais je suppose qu'il s'agit de la cellule active donc en remplaçant C par ActiveCell ce sera peut-être bon.

[Dart974]

Bonjour,
merci d'avoir pris la peine de répondre. Je vais essayer cette idée en rentrant
Je te tiendrai au courant

[Dart974]

Bonsoir,
pour davantage de clarté voici le fichier.

Evaluation DS2- TS1.xls

J'ai testé le code sans succès.
L'idée et de faire apparaitre en texbox14 une valeur de la colonne B du premier onglet "Bilan DS". La valeur à récupérer doit être celle en face du nom choisi dans la liste déroulante. Le tout se produisant après action de la commandbox14 "Valider".
En attendant un conseil je continue de chercher. Je tiens au courant si je trouve!

[lps02]

Bonjour

Essayer dans votre code du commandbutton14

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Private Sub CommandButton14_Click()
 
Dim Reponse As String, firstAddress As String, Texte As String
Dim C As Range, D As Range
 
    Set C = Columns("A").Find(ComboBox1.Value, Range("A1").End(xlDown), xlValues, xlWhole)
    If Not C Is Nothing Then
     ' MsgBox ("trouvé en " & C.Address & " !")
    C.Offset(0, 2).Value = TextBox7.Value
    C.Offset(0, 3).Value = TextBox8.Value
    C.Offset(0, 4).Value = TextBox9.Value
    C.Offset(0, 5).Value = TextBox10.Value
    C.Offset(0, 6).Value = TextBox11.Value
    C.Offset(0, 7).Value = TextBox12.Value
    TextBox7.Value = ""
    TextBox8.Value = ""
    TextBox9.Value = ""
    TextBox10.Value = ""
    TextBox11.Value = ""
    TextBox12.Value = ""
    TextBox13.Value = C.Offset(0, 1).Value
    Set D = Sheets("Bilan DS").Columns("A").Find(ComboBox1.Value, Range("A1").End(xlDown), xlValues, xlWhole)
    TextBox14.Value = D.Offset(0, 1).Value
    End If
 
End Sub

En fait , il faut declarer une nouvelle cellule de recherche dans la page "Bilan DS")
Cordialement
lps02

[Dart974]

Ha bin oui ça marche au poil!
Merci beaucoup lps02!
Bonne journée