contenu textbox dans cellule

[jabenj]

Bonjour,

Malgré la bonne idée du site de proposer des discussions similaires, je ne trouve rien de nouveau qui arrive à m'aider...

Je vous appelle donc au secours !!

En pj mon tableau "light" : le formulaire "transmission de l'arbitrage" n'écrit pas le contenu des textbox liées à la listbox... (déjà bien galère à faire)

Et je suppose que je dois omette un truc car les autres formulaires fonctionnent sur le meme principe... mais sans listbox en amont..

Voici le code qui fonctionne mais n'écrit pas...:

Private Sub ListBox1_Click()

With Sheets("Postes vacants")

    Me.TextBox11 = Me.ListBox1.ListIndex + 1
    Me.TextBox1 = Me.ListBox1.Column(27)
    Me.TextBox2 = Me.ListBox1.Column(28)
    Me.TextBox3 = Me.ListBox1.Column(29)
    Me.ComboBox1 = Me.ListBox1.Column(30)
    Me.TextBox4 = Me.ListBox1.Column(31)
    Me.TextBox5 = Me.ListBox1.Column(32)
    Me.TextBox6 = Me.ListBox1.Column(33)
    Me.ComboBox2 = Me.ListBox1.Column(34)
    Me.TextBox7 = Me.ListBox1.Column(35)
   Me.TextBox1.SetFocus
End With
End Sub


Private Sub CommandButton1_Click()
    Dim L As Integer

    With Sheets("Postes vacants")
      
    If msgbox("Voulez-vous envoyer les données saisies vers le tableau ?", vbYesNo, "Demande de confirmation d'ajout") = vbYes Then

            L = ListBox1.ListIndex + 1
'Les lignes sont différentes liées à des tests que je n’ai pas rétabli.. 
            .Cells(L, 28) = TextBox1.Value
            .Cells(L, 29) = TextBox2.Value
            .Cells(L, 30).Value = TextBox3.Value
            .Cells(L, 31).Value = ComboBox1.Value
            .Cells(L, 32).Value = TextBox4.Value
            .Cells(L, 33).Value = TextBox5.Value
            .Cells(L, 34).Value = TextBox6.Value
            .Cells(L, 35).Value = ComboBox2.Value
            .Cells(L, "AJ").Value = TextBox7.Value
            ActiveWorkbook.Save

    End If

End With
    Unload Me

End Sub

Prorpiétés de la ListBox1

Il doit y avoir une info que je ne donne pas ou que j'écris mal.. mais je n'arriv epas à la trouver malgré une quantité de temps passé à corriger !

Merci de votre retour constructif !

Cordialement

 

[Lone-wolf]

Bonsoir jabenj

Si tu veux ajouter les données, il faut remplacer ListIndex par

Dim L As Long

With Sheets("Postes vacants")
L = .Cells(Rows.Count, "A").End(xlUp).Row + 1

 

[jabenj]

Bonjour,

Merci pour ton retour !

En voyant ce code, cela me semblait incohérent avec mon besoin, tu as raison, cette ligne inscrit bien en effet ! Mais à +1 de la dernière ligne occupée, pas là où je le souhaite.

Je me suis certainement mal exprimé : l'idée de ce code est de pouvoir sélectionner une ligne via listbox et écrire des données sur cette même ligne (cellules "remplies" par les textbox).

J'avoue que je ne me trouve pas plus clair ! L'exemple du fichier suffit-il ?

Merci quand même pour cette piste !

 

[jabenj]

Bonjour,

En surfant, j'ai testé ceci qui a fonctionné !!

   With Sheets("Postes vacants")
           L = ListBox1.ListIndex + 2
            .Cells(L, 36).Value = "test" 'fonctionne impec
'           TextBox7.Value = .Cells(L, 36).Value 'ne fonctionne pas (objectif)
End With

Je ne comprends donc vraiment pas pourquoi le contenu de me textbox ne s'inscrit pas dans la cellule....

Personne n'a d'idées ? (une référence à activer, le .value qui n'a pas sa place...)