ComboBox + INDEX

Salut les amis

j'ai fichier ou j'utilise la fonction INDEX pour selectionner le nom de la société x en (C5) avec son numéro de compte en (C6), et je veux insérer cette fonctionnalité dans mon userform via un combobox. est-ce possible?

Merci pour tout ce qui me donne un coup de pousse.

Voici mon fichier :

15remise-chq.xlsm (261.99 Ko)
maximob a écrit :

Salut les amis

j'ai fichier ou j'utilise la fonction INDEX pour selectionner le nom de la société x en (C5) avec son numéro de compte en (C6), et je veux insérer cette fonctionnalité dans mon userform via un combobox. est-ce possible?

Merci pour tout ce qui me donne un coup de pousse.

Voici mon fichier :

18remise-chq.xlsm (269.58 Ko)

Bonsoir,

Pourquoi ne pas lier le combobox à la cellule C5 via Format de controle sur click droit de la combobox.

Lier la cellule C5.

Et pour le numéro de compte faire un recherche v de vos données plus bas pr rechercher le compte du client en C5

Qu'en pensez vous?

Ps: Votre fichier est devenu vachement sympa !!!!!!

Cdt,

Merci ti_chou_3, mais moi je cherche à intégrer ma combobox dans le userform3 ainsi que la date. est-ce possible ?

Voila ce que je cherche :

11remise.xlsm (267.45 Ko)

Bonjour,

Une proposition.

14remise.xlsm (266.28 Ko)

A+

frangy vous êtes mon ange gardien, c'est parfait.

une chose encore SVP je veux quand de clique sur effacer une ligne et que cette ligne est vide un msgBox surgit me disant " il n y a rien à effacer", j'ai fait un essai mais je crois que j'ai loupé quelque chose :

Private Sub CommandButton3_Click()

Dim x As Integer

On Error Resume Next

x = InputBox("No. ligne à supprimer ?")

If IsNumeric(x) Then

Sheets("REMISE").Range("B" & x & ":f" & x).ClearContents

MsgBox ("Opération effectuée avec succès")

If IsNumeric(x) Then

Sheets("REMISE").Range("B" & x & ":f" & x) = ""

MsgBox ("il n'y a rien à supprimer")

End If

End If

End Sub

je crois que j'ai loupé quelque chose

Non, non ! Tu en fais même trop en essayant de supprimer 2 fois la ligne

Private Sub CommandButton3_Click()
Dim x As Integer
    On Error Resume Next
    x = InputBox("No. ligne à supprimer ?")
    If IsNumeric(x) Then
        If x > 7 And x < 58 Then
            Sheets("REMISE").Range("B" & x & ":f" & x).ClearContents
            MsgBox ("Opération effectuée avec succès")
        End If
    End If
End Sub

A+

En s'inspérant de ta génie, j'ai rajouté ceci :

Private Sub CommandButton3_Click()

Dim x As Integer

On Error Resume Next

x = InputBox("Entrez le numéro de la ligne à modifier ?")

If IsNumeric(x) Then

If x > 7 And x < 58 Then

Sheets("REMISE").Range("B" & x & ":f" & x).ClearContents

MsgBox ("Opération effectuée avec succès")

End If

If x < 8 Or x > 58 Then

MsgBox ("Cette ligne est inéffaçable !")

End If

End If

End Sub

Merci cher ami, tu es vraiment quelqu'un sur le quel on peut compter.

Bonjour,

Tu peux même continuer à jouer

Private Sub CommandButton3_Click()
Dim x
    x = InputBox("Entrez le numéro de la ligne à modifier ?")
    If IsNumeric(x) Then
        If x > 7 And x < 58 Then
            Sheets("REMISE").Range("B" & x & ":f" & x).ClearContents
            MsgBox ("Opération effectuée avec succès")
        Else
            MsgBox ("Le numéro de ligne doit être compris entre 8 et 57")
        End If
    Else
        MsgBox ("Vous devez saisir un NUMERO de ligne compris entre 8 et 57.")
    End If
End Sub

A+

t'es vraiment un ace frangy, je te remercie infiniment pour ton soutien.

Rechercher des sujets similaires à "combobox index"