Comparer cellules de deux colonnes vba

mgrizzly à dit:

Je souhaite comparer les cellules de deux colonnes en VBA sous excel.

J'ai la colonne B où les noms sont déja insrits et la colonne K où je voudrais qur l'utilisateur rentre des noms et valide ces noms en cliquant sur un bouton. Si un nom est le même alors je voudrais vcerrouiller la ligne de la cellule de la colonne B. Ce que j'ai fait ne marche pas.

Voila mon code :

Sub Comparaison()

Dim VALEURA As String, VALEURB As String

For i = 9 To 59
VALEURA = Range("B" & i).Value
For j = 9 To 59
VALEURB = Range("K" & j).Value
If VALEURA = VALEURB Then
Worksheets("Compétences").Activate
Worksheets("Compétences").VALEURA.Select
Rows(ActiveCell.Row).Select
Selection.Locked = True
End If
Next j
Next i

End Sub

Merci de m'aider, il n'y a pas d'erreur dans le code mais rien ne se passe quand je clique sur le bouton.

Cliquez pour agrandir...

Option Explicit

Sub Comparaison()
'
Dim VALEURA As String, ShComp As Worksheet
Dim i As Long
'
Set ShComp = Sheets("Compétences")

For i = 9 To 59

VALEURA = Range("B" & i).Value

With Application.WorksheetFunction

  If .CountIf(Range(Cells(9, "B"), Cells(59, "B")), VALEURA) > 0 Then
    ShComp.Range("A" & i).EntireRow.Locked = True
  End If
  
End With

Next i

ShComp.Protect

End Sub

mgrizzly à dit:

Sinon kjin,
Voilà mon fichier, tu peux regarder pourquoi ton code que j'ai mis dedans ne marche pas?
Merci beaucoup.

Cliquez pour agrandir...

mgrizzly à dit:

If VALEURA = VALEURB Then
Worksheets("Compétences").Activate
Worksheets("Compétences").VALEURA.Select
Rows(ActiveCell.Row).Select
Selection.Locked = True

Cliquez pour agrandir...