Comparer cellules de deux colonnes vba
mgrizzly
Messages postés
17
Date d'inscription
Statut
Membre
Dernière intervention
-
pilas31 Messages postés 1825 Date d'inscription Statut Contributeur Dernière intervention -
pilas31 Messages postés 1825 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
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.
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.
A voir également:
- Comparer cellules de deux colonnes vba
- Comment faire deux colonnes sur word - Guide
- Formule moyenne excel plusieurs colonnes - Guide
- Concatener deux cellules excel - Guide
- Inverser deux colonnes excel - Guide
- Classer par ordre alphabétique excel plusieurs colonnes - Guide
1 réponse
Bonjour,
La syntaxe Worksheets("Compétences").VALEURA.Select n'est pas correcte
essayer avec :
Worksheets("Compétences").Range("B" & i).Select
Remarque, il faut supposer qu'avant les cellules n'étaient pas vérouillées. A partir de là les lignes avec égalités seront vérouillées mais cela ne sera effectif que quand la feuille elle même sera protégée.
A+
La syntaxe Worksheets("Compétences").VALEURA.Select n'est pas correcte
essayer avec :
Worksheets("Compétences").Range("B" & i).Select
Remarque, il faut supposer qu'avant les cellules n'étaient pas vérouillées. A partir de là les lignes avec égalités seront vérouillées mais cela ne sera effectif que quand la feuille elle même sera protégée.
A+