XL 2013 (RESOLU) Renseignement horizontal avec intersections via UserForm

[chaelie2015]

Bonsoir Forum
Dans un UserForm (USF), j'ai une ComboBox1 alimentée par une liste déroulante, un TextBox1, un bouton de validation nommé "CommandButton1", et une feuille nommée "Link". Cette feuille contient un tableau où la colonne A (site principal) va de A3 à A252 et la ligne 2 représente les sites vis-à-vis (de B2 à SG2). La colonne A est déjà renseignée.
Mon objectif est d'utiliser l'UserForm pour renseigner la ligne 2 à partir de la cellule B2 (et des cellules non vides suivantes) (rensignement horizotal) en utilisant le contenu du TextBox1. Ensuite, je souhaite cocher la cellule d'intersection entre la valeur sélectionnée dans ComboBox1 et le contenu du TextBox1 avec un "1"
Merci

 

[sylvanu]

Bonsoir Chaelie,
Un essai en PJ avec :

    ' Chercher la valeur du TextBox1 dans la colonne A et mettre "1" dans la cellule correspondante de la ligne 2
    Lig = Application.Match(ComboBox1.Value, ws.[A:A], 0)
    Col = Application.Match(TextBox1.Value, ws.[2:2], 0)
    If Not IsError(Col) Then
        ws.Cells(Lig, Col) = "X"                ' Car Site Vis à vis trouvé
    Else                                        ' Si non trouvé
        Col = Cells(2, Columns.Count).End(xlToLeft).Column ' Dernière colonne
        ws.Cells(2, Col + 1) = TextBox1.Value   ' Inscription nouveau  Site Vis à vis
        ws.Cells(Lig, Col + 1) = "X"            ' et le X qui va bien
    End If

J'ai mis votre code en commentaire.
A noter que dans votre code textBoxValue et comboBoxValue sont faux, il faut utiliser textBox1.Value et comboBox1.Value

 

[chaelie2015]

Bonsoir sylvanu
Merci, c'est parfait.
Passe un excellent week-end

 

[sylvanu]

Re,
Excusez moi, j'ai mis X et non 1, donc utilisez :

' Chercher la valeur du TextBox1 dans la colonne A et mettre "1" dans la cellule correspondante de la ligne 2
    Lig = Application.Match(ComboBox1.Value, ws.[A:A], 0)
    Col = Application.Match(TextBox1.Value, ws.[2:2], 0)
    If Not IsError(Col) Then
        ws.Cells(Lig, Col) = 1                ' Car Site Vis à vis trouvé
    Else                                        ' Si non trouvé
        Col = Cells(2, Columns.Count).End(xlToLeft).Column ' Dernière colonne
        ws.Cells(2, Col + 1) = TextBox1.Value   ' Inscription nouveau  Site Vis à vis
        ws.Cells(Lig, Col + 1) = 1            ' et le 1 qui va bien
    End If

 

[chaelie2015]

Re,
Excusez moi, j'ai mis X et non 1, donc utilisez :

' Chercher la valeur du TextBox1 dans la colonne A et mettre "1" dans la cellule correspondante de la ligne 2
    Lig = Application.Match(ComboBox1.Value, ws.[A:A], 0)
    Col = Application.Match(TextBox1.Value, ws.[2:2], 0)
    If Not IsError(Col) Then
        ws.Cells(Lig, Col) = 1                ' Car Site Vis à vis trouvé
    Else                                        ' Si non trouvé
        Col = Cells(2, Columns.Count).End(xlToLeft).Column ' Dernière colonne
        ws.Cells(2, Col + 1) = TextBox1.Value   ' Inscription nouveau  Site Vis à vis
        ws.Cells(Lig, Col + 1) = 1            ' et le 1 qui va bien
    End If

Re
Oui, je l'ai déjà fait,
merci.