Bonjour à tous,
Je bute sur un probléme simple entre une textbox et une cellule.
Je voudrais faire la requête : Si le matricule de la textbox est égal au champ de la colonne A de l'onglet profs, alors on modifie.
Mais avec ce test sur le 1er de la liste "BRULEBOIS":
If i = 2 Then MsgBox ws2.Range("A" & i).Value & " " & matP.Value
Cà m'affiche bien le matricule coté cellule et textbox
Private Sub btnEnregP_Click()
Dim i%, drn%, x%, ws2 As Worksheet
Set ws2 = Sheets("profs")
'&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
' ENREGISTRER
'&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
'recherche enregistrement existant
'matricule
drn = ws2.Range("A" & Rows.Count).End(xlUp).Row
For i = 2 To drn
'si aucun matricule choisit
If i = 2 Then MsgBox ws2.Range("A" & i).Value & " " & matP.Value
' If matP.Value = "" Then
' ws2.Range("A" & i).Value = drn ' a voir si on prend tjrs le nbre de ligne en cas de suppression des profs
If ws2.Range("A" & i).Value = matP.Value Then
'ElseIf ws2.Range("B" & i).Value = nomP.Value And ws2.Range("C" & i).Value = prenP.Value Then
ws2.Cells(i, 2).Value = nomP.Text 'nom
ws2.Cells(i, 3).Value = prenP.Text 'prenom
ws2.Cells(i, 4).Value = cmbSexP.Text 'sexe
ws2.Cells(i, 5).Value = datNP.Text 'date naissance
With Selection
...
Mais impossible de reconnaitre l'égalité, il faut que je mette <> pour que la modif se fasse
Et lorsque j'essaie avec les critéres nom et prenom çà modifie. (UF ecole, code en partie 'notes')
Pour essayer un exemple, cliquez droit pour ouvrir le formulaire, et allez sur l'onglet profs.
Merci pour votre aide