Discussion :

[fullmetalknet]

Bonjour,

je souhaiterais faire un bouton suivant et un bouton précedent
je recupere les données sur une feuille

j'ai commencé mon code mais il ne fonctionne qu'une seule fois!

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
Private Sub CommandButton10_Click() 'Bouton AES Suiv.
 
Dim lig As Long
Dim col As Long
 
        col = (ComboBox2.ListIndex * 2) + 13
        lig = ComboBox1.ListIndex + 3
 
        col = col + 2       'toute les deux colones
 
        If Cells(1, col) = "Batteries AES 7" Then         'limite
 
        Else
        Frame7.Caption = Sheets("Détails").Cells(1, col)
        TextBox10.Value = Sheets("Détails").Cells(lig, col)
        TextBox11.Value = Sheets("Détails").Cells(lig, col + 1)
        End If
 
End Sub

je pense que cela viens de ma combobox2

pour decoincé il faudrais rajouté 1 a ComboBox2.ListIndex
mais je n'arive pas a faire le code

Pouvez vous m'aider?

merci d'avance

[ESVBA]

Ce n'est pas très clair.

Avec un clic sur "suivant", on se déplace en ligne ou en colonne car il y a deux sources "ComboBox1" et "ComboBox2" ?

Si on change la valeur de liste déroulante que se passe-t-il ? Quel code contiennent-elles ?

Dans la procédure, il n'y a pas de valeurs de référence : de valeur gardée entre deux clics.
Il faut soit une variable soit une cellule active soit encore une valeur dans une liste déroulante::.

Globalement, ton code de pointage (code donné) :
>> je le placerais dans l'évènement "ComboBox1_Change" (1 ou 2) pour que la sélection change quelque chose et
sur "CommandButton10_Click()" je mettrais un truc du genre :

Code :

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

ComboBox1.ListIndex = ComboBox.ListIndex + 1 'box1 ou box2

Enfin... Faut plus de précisions.

ESVBA

[fullmetalknet]

mes combobox sont remplis par userform_initialize

combobox1 pour les lignes
combobox2 pour les colones

j'ai essayer le code

Code :

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

1
2
3
4
5
6
 
Sub ComboBox2_Change()
 
Details.ComboBox2.ListIndex = Details.ComboBox2.ListIndex + 1
 
End Sub

mais il me met une erreur d'execution '380'
impossible de définir la propriété listindex. valeur de proprieté non valide

[fullmetalknet]

c'est bon j'ai mis le code dans commandbutton10_click et ca fonctionne merci de m'avoir débloqué

A+