Remplissage Userform avec données ligne suivante quand validation avec bouton de commande

**lalessivelechat** · 30/03/2018, 12h50

Bonjour,

J'ai réalisé un formulaire qui marche correctement mais je bloque sur une chose : je ne trouve pas le code qui permettrait de charger le formulaire automatiquement avec les informations de la ligne suivante, après avoir cliqué sur le bouton de commande !

J'ai pourtant affecté le code "combobox8.value = combobox8.value +1" (combobox qui me permet de remplir toutes les cases du formulaire lorsque je sélectionne une valeur dans la liste) en dernière instruction mais cela m'affiche "erreur d'execution 13, incompatibilité de type".

je ne comprends pas comment faire... Merci de votre aide, la solution doit être évidente mais je bloque vraiment

Le fichier ci-joint

**goldstar** · 30/03/2018, 14h30

Bonjour,

Je te propose le code ci-dessous

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
 
MsgBox ("Informations enregistrées")
 
    Set R = Sheets("Eau usée").Range("I:I").Find(ComboBox8.Value, lookat:=xlWhole)
 
    If Not R Is Nothing Then
        valSuivante = Sheets("Eau usée").Cells(R.Row + 1, 9)
 
        If valSuivante <> "" Then
            ComboBox8.Value = valSuivante
        End If
 
    End If

Cordialement,

**Transitoire** · 31/03/2018, 09h18

Bonjour,
Sauf erreur ou omission de ma part, on ne peut pas faire Text + 1 . On ne peut additionner que des chiffres ou des nombres .
Si textbox8.value = 8 + 1 = 9
Si Textbox8.value = C8 + 1 = erreur il faudrait écrire "C8" & 1 ce qui donnerais c81mais c'est du texte.
Cordialement

**mjpmjp** · 02/04/2018, 23h51

bonjour,

ton code :

Code :

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

1
2
3
4
5
6
 
    With Me.ComboBox8
        For J = 8 To Ws.Range("I" & Rows.Count).End(xlUp).Row
        ComboBox8.AddItem Ws.Range("I" & J)
        Next J
    End With

la colonne i :
1a
e1
i1
o1
u1
y1

dans le bouton valider :
ComboBox8.Value = ComboBox8.Value + 1

ce que tu veux ??
1a + 1.... ???

@+JP

**lalessivelechat** · 03/04/2018, 17h31

Envoyé par Transitoire

Bonjour,
Sauf erreur ou omission de ma part, on ne peut pas faire Text + 1 . On ne peut additionner que des chiffres ou des nombres .
Si textbox8.value = 8 + 1 = 9
Si Textbox8.value = C8 + 1 = erreur il faudrait écrire "C8" & 1 ce qui donnerais c81mais c'est du texte.
Cordialement

Oui c'est bien ça le problème

Envoyé par mjpmjp

bonjour,

ton code :

Code :

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

1
2
3
4
5
6
 
    With Me.ComboBox8
        For J = 8 To Ws.Range("I" & Rows.Count).End(xlUp).Row
        ComboBox8.AddItem Ws.Range("I" & J)
        Next J
    End With

la colonne i :
1a
e1
i1
o1
u1
y1

dans le bouton valider :
ComboBox8.Value = ComboBox8.Value + 1

ce que tu veux ??
1a + 1.... ???

@+JP

J'aimerais qu'en validant, je passe de "1a" à "e1" et qu'ainsi le formulaire se remplisse avec les données de la ligne liée à "e1"

Merci de vous intéresser à mon problème

**lalessivelechat** · 03/04/2018, 17h35

Envoyé par goldstar

Bonjour,

Je te propose le code ci-dessous

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
 
MsgBox ("Informations enregistrées")
 
    Set R = Sheets("Eau usée").Range("I:I").Find(ComboBox8.Value, lookat:=xlWhole)
 
    If Not R Is Nothing Then
        valSuivante = Sheets("Eau usée").Cells(R.Row + 1, 9)
 
        If valSuivante <> "" Then
            ComboBox8.Value = valSuivante
        End If
 
    End If

Cordialement,

Merci Goldstar cependant il me dit "membre de méthode ou de données introuvables" et se place sur "R.Row"