ComboBox + LOGO

Bonjour les amis,

je suis bloqué à ce stade de code fourni par FRANGY que je remsercie d'ailleurs et je ne suis quoi faire car j'ai changé le TextBox2.Value par un ComboBox1.

J'aimerai bien aussi afficher le logo de la banque à l'entête selon le choix de la société dans la liste déroulante ( sa banque c'est à la cellule de côté).

Que dois-faire si la page est remplie pour passer automatiquement à la page 2 avec entête biensûr ?

Voici mon fichier :

Bonjour

Ci-joint le document avec ce que vous souhaitiez:

Mes modifications sont les suivantes :

• passage à une liste déroulante plutôt qu'a une combobox
• Les informations liées à la société sont dans la feuille donnée Code société / Id_banque
• A la saisie Id_banque le nom de la banque + identifiant image se charge via un recherchev
• L'image de la banque dans la feuille logo doit se nommer ainsi "Image " + n° id_image_banque

cdt,

BONJOUR

Bonjour

Private Sub Bt_Valider_Click()
    Dim i As Integer
        With Worksheets("Feuil1")
            InsMot = Application.Max(.Range("B52").End(xlUp).Row + 1, 8)
            .Range("B" & InsMot).Value = Me.TextBox1.Value
            .Range("C" & InsMot).Value = Me.ComboBox1.Value
            .Range("D" & InsMot).Value = Me.TextBox3.Value
            .Range("E" & InsMot).Value = Me.TextBox4.Value
            .Range("F" & InsMot).Value = Me.TextBox5.Value
            For i = 1 To 5
                Me.Controls("TextBox" & i) = ""
            Next i
        End With
    End Sub

Bonjour les amis, merci de votre aide mais ça donne toujours ce message d'erreur : Me.Controls("TextBox" & i) = ""

je crois qu'il faut ajouter le combobox au textbox.

la solution apportée par richi2casa marche, reste à savoir si on peut ajouter un bouton de modification ou de supression d'une ligne déjà saisie ? et merci d'avance à tout ce qui contribue à résoudre ce problème.

richi2casa a écrit :

Bonjour

Private Sub Bt_Valider_Click()
    Dim i As Integer
        With Worksheets("Feuil1")
            InsMot = Application.Max(.Range("B52").End(xlUp).Row + 1, 8)
            .Range("B" & InsMot).Value = Me.TextBox1.Value
            .Range("C" & InsMot).Value = Me.ComboBox1.Value
            .Range("D" & InsMot).Value = Me.TextBox3.Value
            .Range("E" & InsMot).Value = Me.TextBox4.Value
            .Range("F" & InsMot).Value = Me.TextBox5.Value
            For i = 1 To 5
                Me.Controls("TextBox" & i) = ""
            Next i
        End With
    End Sub

Bonsoir

pensez à ajouter .text derrière Me.Controls("TextBox" & i)

Bonjour

A tester

Merci Richi2casa, et pour le bouton de suppression et de rajout d'un ligne ? un tuyau ?

maximob a écrit :

Merci Richi2casa, et pour le bouton de suppression et de rajout d'un ligne ? un tuyau ?

bonsoir

des détails ?

Je pense pour la suppression à un combobox avec les differents rangs.

une fois un rang non vide selectionné on clique sur supprimer et il met la ligne à vide est ce bien cela?

pour l'ajout?

cdt,

ti_chou_3 a écrit :

maximob a écrit :

Merci Richi2casa, et pour le bouton de suppression et de rajout d'un ligne ? un tuyau ?

bonsoir

des détails ?

Je pense pour la suppression à un combobox avec les differents rangs.

une fois un rang non vide selectionné on clique sur supprimer et il met la ligne à vide est ce bien cela?

pour l'ajout?

cdt,

bonjour ti-chou-3

je m'explique , je veux modifier si tu veux une ligne déja saisi via le userform et ayant aussi un choix de suppression de ligne en indiquant son numéro. suis-je claire j'espère.

ti_chou_3 a écrit :

maximob a écrit :

Merci Richi2casa, et pour le bouton de suppression et de rajout d'un ligne ? un tuyau ?

bonsoir

des détails ?

Je pense pour la suppression à un combobox avec les differents rangs.

une fois un rang non vide selectionné on clique sur supprimer et il met la ligne à vide est ce bien cela?

pour l'ajout?

cdt,

bonjour ti-chou-3

je m'explique , je veux modifier si tu veux une ligne déja saisi via le userform et ayant aussi un choix de suppression de ligne en indiquant son numéro. suis-je claire j'espère.