Discussion :

[Akah94]

Bonjour, j'ai un petit oubli car j'avais déjà réussi à le faire mais je viens de passer ma matinée dessus et je n'arrive pas à me remémorer...

J'ai mon Userform, j'ai une listbox1 avec des références lorsque je sélectionne une référence que je souhaite, j'ai des dates qui s'affichent (qui sont sur la même ligne) j'aimerai modifier la date et qu'elle prenne la place de l'ancien dans mon tableau...
le PCLA c'est pour le mettre à la suite, mais je sais plus comment on remplace sur la même ligne que la référence de ma listbox1 ?

Si quelqu'un peut m'aider ce serait super...

Merci

Bien Cordialement IA

[Thautheme]

Bonjour Akah, bonjour le forum,

Tout dépend de comment est alimentée ta ListBox.
La propriété
[ListIndex] permet de récupérer le numéro de ligne si tes données sont uniques. Comme le premier index d'une ListBox est 0, si la première ligne de données commente à la ligne 2, ListIndex + 2 te renverra le numéro de ligne.
En revanche, si ta ListBox est issue d'un filtrage, la propriété
[ListIndex] ne permet plus cela. Dans ce cas, je stocke le numéro de ligne dans une colonne cachée de la ListBox et ensuite, à la sélection d'un élément, je le récupère...

[Akah94]

C'est un combobox pardon... bon la façon de faire doit rester la même

Voici mon code qui alimente mon combobox1

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
Private Sub ComboBox1_Change()
Dim i As Byte
 
 
With ComboBox1
For i = 5 To 8
    Controls("TextBox" & i) = Sheets("feuil1").Cells(.List(.ListIndex, 1), i)
    ComboBox2 = Sheets("feuil1").Cells(.List(.ListIndex, 1), 1)
 
    TextBox25 = Sheets("feuil1").Cells(.List(.ListIndex, 1), 12)
    TextBox26 = Sheets("feuil1").Cells(.List(.ListIndex, 1), 13)
    TextBox27 = Sheets("feuil1").Cells(.List(.ListIndex, 1), 14)
    TextBox28 = Sheets("feuil1").Cells(.List(.ListIndex, 1), 15)
    TextBox29 = Sheets("feuil1").Cells(.List(.ListIndex, 1), 16)
    TextBox30 = Sheets("feuil1").Cells(.List(.ListIndex, 1), 17)
    TextBox31 = Sheets("feuil1").Cells(.List(.ListIndex, 1), 18)
    TextBox32 = Sheets("feuil1").Cells(.List(.ListIndex, 1), 19)
    TextBox33 = Sheets("feuil1").Cells(.List(.ListIndex, 1), 20)
    TextBox34 = Sheets("feuil1").Cells(.List(.ListIndex, 1), 21)
    TextBox35 = Sheets("feuil1").Cells(.List(.ListIndex, 1), 22)
    TextBox36 = Sheets("feuil1").Cells(.List(.ListIndex, 1), 23)
    TextBox37 = Sheets("feuil1").Cells(.List(.ListIndex, 1), 24)
    TextBox38 = Sheets("feuil1").Cells(.List(.ListIndex, 1), 25)
    TextBox39 = Sheets("feuil1").Cells(.List(.ListIndex, 1), 26)
 
 
 
 
    TextBox10 = DateAdd("d", TextBox25, TextBox5)
    TextBox11 = DateAdd("d", TextBox26, TextBox5)
    TextBox12 = DateAdd("d", TextBox27, TextBox5)
    TextBox13 = DateAdd("d", TextBox28, TextBox5)
    TextBox14 = DateAdd("d", TextBox29, TextBox5)
    TextBox15 = DateAdd("d", TextBox30, TextBox5)
    TextBox16 = DateAdd("d", TextBox31, TextBox5)
    TextBox17 = DateAdd("d", TextBox32, TextBox5)
    TextBox18 = DateAdd("d", TextBox33, TextBox5)
    TextBox19 = DateAdd("d", TextBox34, TextBox5)
    TextBox20 = DateAdd("d", TextBox35, TextBox5)
    TextBox21 = DateAdd("d", TextBox36, TextBox5)
    TextBox22 = DateAdd("d", TextBox37, TextBox5)
    TextBox23 = DateAdd("d", TextBox38, TextBox5)
    TextBox24 = DateAdd("d", TextBox39, TextBox5)
 
 
 
Next i
 
 
End With
End Sub

Je récupère ma valeur avec Listindex certes mais j'aimerai modifier par exemple un textbox et valider pour que ça remplace mon textbox par la nouvelle valeur entrée...

Par exemple j'ai

Textbox1 = 2
Textbox2 = 3
textbox 3 = 4

je clique sur la référence que je souhaite afficher via le combobox1 et j'ai Textbox1,2,3 qui s'affiche avec les valeurs qui sont dans excel, je change par exemple Textbox2 que je remplace la valeur par 6, j'aimerai valider pour que ça change ma valeur dans excel et que ça me met lors que ma nouvelle recherche via combobox1
Textbox1 = 2
Textbox2 = 6
Textbox 3 = 4

Voilà..

[Akah94]

voici à quoi ressemble mon commandbutton

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub CommandButton9_Click()
Dim i As Byte
    For i = 5 To 8
    With Sheets("feuil1")
 
        .Cells(.List(.ListIndex, 1), i) = (CDate(Me.TextBox10.Value) - CDate(Me.TextBox5.Value))
 
    End With
 
Next i
 
End Sub

ça ne marche pas...

[unparia]

Bonjour
Au sein d'un bloc With, toute variable précédée d'un "." signifie que cette variable est un membre de l'objet déclaré par l'instruction With
Je ne crois pas que ce que j'ai mis en rouge soient des membres de l'objet Sheets("feuil1")

Code :

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

.Cells(.List(.ListIndex, 1), i) = (CDate(Me.TextBox10.Value) - CDate(Me.TextBox5.Value))

[Akah94]

C'était pour "essayer" de récupérer la ligne concernée pour remplacer ma valeur par la nouvelle... mais apparemment c'est loupé...

Code :

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

X = (CDate(Me.TextBox10.Value) - CDate(Me.TextBox5.Value))

il faut que je remplace le X par l'identification par Exemple si c'est Colonne C et ligne 5 par .cells(5 , 3) mais là c'est un truc du genre automatique qu'il me faut, identifier la ligne choisi par mon combobox1 puis la colonne c'est fixe

Donc je me rapproche en faisant

Code :

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

.cells( X, 3) = (CDate(Me.TextBox10.Value) - CDate(Me.TextBox5.Value))

il me faut détecter en gros la ligne de mon combobox et c'est réussi..