Aide pour mettre la valeur de la cellule dans la text box

Bonjour,

Je suis en train de faire un planning d'heure en vba avec userform.

Mon problème je voudrais sélectionner à l'aide d'une combobox l'une des valeurs de la colonne A dans ma Bd (JOURNALIER).

je voudrais que lorsque je sélectionne ma donnée dans la combobox cela copie les données de la ligne concernée dans mes text box.

Exemple nom inscrit dans la combox: john.

Les textbox doit se remplir selon le planning de john.

Je joints mon fichier.

Merci de votre aide

Bonjour,

proposition de modification

Private Sub BtnRecherche_Click()

' Valider
Dim nblg As String
Dim cel
Dim i As Integer
  Me.TextBox1 = ""

  If Trim(Me.txtrecherche) = "" Then
    MsgBox "Veuillez saisir un nom"
    Exit Sub
  End If

  Application.ScreenUpdating = False

    Set cel = Sheets("JOURNALIER").Columns(1).Find(what:=Me.txtrecherche, LookIn:=xlValues, lookat:=xlWhole)
    If Not cel Is Nothing Then

    For i = 1 To 10
    Me("textbox" & i) = cel.Offset(0, i + IIf(i = 2, 1, 0) + IIf(i > 2, 2, 0)) ' offset 1, 3 ,5,6,7,8,9,10,11,12 pour les textbox 1 à 10

     ' Selection.Offset(0, 1).Select
      'Selection.Value = TextBox1
     Next i

  End If

End Sub

Merci h2so4

J'ai essayé ta solution elle marche.

Mais quand j'ai une valeur en j colonne maladie la valeur s'affiche texbox7 (RTT) au lieu de la textbox8 (Maladie).

De plus je voudrais récupérer la valeur de la cellule concerné et sa couleur pour mettre dans la textbox concerné.

Les cellule concerner voir la légende.

De plus les cellules à partir de la ligne 10 de F à L son au format hh:mm ce qui me met un résultat erroné dans les textbox.

Une solution

cordialement

bonjour,

je te mets un début de solution dans le code, à toi de compléter ton code.

Private Sub BtnRecherche_Click()

' Valider
Dim nblg As String
Dim cel
Dim i As Integer
  Me.TextBox1 = ""

  If Trim(Me.txtrecherche) = "" Then
    MsgBox "Veuillez saisir un nom"
    Exit Sub
  End If

  Application.ScreenUpdating = False

    Set cel = Sheets("JOURNALIER").Columns(1).Find(what:=Me.txtrecherche, LookIn:=xlValues, lookat:=xlWhole)
    If Not cel Is Nothing Then

   ' on remplit les textbox1 à 10
    TextBox1 = cel.Offset(0, 1)
 TextBox1.BackColor = lacouleurquetuveux
    TextBox2 = cel.Offset(0, 3)

    ' je te laisse compléter

  End If

End Sub

J'ai fini de modifier le code merci encore car tu me fait avancer à grand pas je découvre la vba par mes propre moyen. Sa fait déjà plusieurs moi que je travail sur ce fichier.

j'ai encore un souci je ne connais pas les codes couleur j'ai essayer d'enregistrer une macro avec la couleur souhaité mais je n'ai pas le résultat voulu. les couleur que je souhaite son dans la légende.

De plus les cellules à partir de la ligne 10 de F à L son au format hh:mm ce qui me met un résultat erroné dans les textbox.

Merci

J'ai trouvé les codes couleur sur internet mais la coloration de la textbox n'est pas semblable à la couleur du code.

Je suis toujours aussi sur la recherche du deuxième problème:

De plus les cellules à partir de la ligne 10 de F à L son au format hh:mm ce qui me met un résultat erroné dans les textbox.

Merci

Bonsoir,

je t'ai mis dans le code quelques pistes, à adapter en fonction de tes besoins.

Private Sub BtnRecherche_Click()

' Valider
Dim nblg As String
Dim cel
Dim i As Integer
  Me.TextBox1 = ""

  If Trim(Me.txtrecherche) = "" Then
    MsgBox "Veuillez saisir un nom"
    Exit Sub
  End If

  Application.ScreenUpdating = False

    Set cel = Sheets("JOURNALIER").Columns(1).Find(what:=Me.txtrecherche, LookIn:=xlValues, lookat:=xlWhole)
    If Not cel Is Nothing Then

   ' on remplit les textbox1 à 10
   TextBox1 = cel.Offset(0, 1)
 TextBox1.BackColor = sheets("journalier").range("K3").interior.color ' exemple pour copier la couleur
    TextBox2 = cel.Offset(0, 3)
textbox5=format(cel.offset(0,5),"HH:MM") ' exemple pour mettre au format hh:mm

    ' je te laisse adapter à tes colonnes

  End If

End Sub

Merci pour tout.

J'ai trouvé le code couleur que je voulais. Grâce à une petite application trouver ici : https://www.excel-pratique.com/fr/telechargements/utilitaires/valeurs-rgb-no47.php

Donc les textbox se colorie en fonction des données que je mets et j'ai rajouté des conditions.

Je mets la discussion résolu.

Et je vais ouvrir une nouvelle discussion toujours sur le développement de mon userform.

Merci le forum