contenu textbox dans cellule

jabenj

XLDnaute Junior
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...:

VB:
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
upload_2018-5-2_17-38-24.png


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
 

Pièces jointes

  • base.xlsm
    78.7 KB · Affichages: 37

jabenj

XLDnaute Junior
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 !
 
Dernière édition:

jabenj

XLDnaute Junior
Bonjour,

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

VB:
   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...)
 

Discussions similaires

Statistiques des forums

Discussions
294 444
Messages
1 938 545
Membres
188 919
dernier inscrit
sergio 3