changement de valeur d'une cellule

[debo]

salut à tous.Voilà mon petit soucis:
j'ai fait un tableau avec des colonnes comme ci dessous:

nom prenom matri grade brigade

j'ai créé un userform ds lequel j'entre les données ds des textbox(TBCINom,TBCIPren,TBCIMatri,TBCIGrad,TBCIBrig)
Qd une personne change de brigade, j'aimerais le code pour pouvoir retrouver la ligne où se situe la personne par le matricule; et inscrire ds la colonne brigade ce que j'ai entré ds ma textbox nommé TBCIBrig
Si quelqu'un peut m'aider merci d'avance.
A plus

 

[Hervé]

Re : changement de valeur d'une cellule

bonjour debo

en imaginant que ton matricule est en colonne C, et ta brigade en colonne E, tu peux peut etre t'inspiré de ceci :

Dim c As Range

Set c = Columns("C").Find(TBCIMatri)
If Not c Is Nothing Then
    Cells(c.Row, "E") = TBCIBrig
Else
    MsgBox "Matricule non trouvé."
End If

salut

 

[porcinet82]

Re : changement de valeur d'une cellule

Salut debo, re Hervé,

Comme j'etais en train de taper le code et que j'ai du répondre au tel, Hervé m'a devancé, mais je post quand même car mon approche est légèrement différente :

Dim cel As Range
For Each cel In Range("A1:" & Range("A65536").End(xlUp).Row)
    'si le matricule ne contient que des numéro met Val(Userform1.Textbox1.Value)
    If Userform1.Textbox1.Value = cel Then
        'je suppose que la colonne contenant la brigade est la colonne 3
        Cells(cel.Row, 3).Value = Userform1.TBCIBrig.Value
    End If
Next cel

Voili, voilou,

@+

 

[debo]

Re : changement de valeur d'une cellule

merci beaucoup à vous deux je vais de ce pas essayé.
a plus

 

[debo]

Re : changement de valeur d'une cellule

ca marche.merci beaucoup et à la prochaine