Comparatif en VBA entre deux colonnes

[gvives]

Bonjour à tous,

J'ai réalisé un petit code VBA qui ne se met pas en erreur mais qui ne fonctionne pas...

Private Sub worksheet_change(ByVal target As Range)
If target.Columns(6).Rows.Value = target.Columns(9).Rows.Value Then
target.Columns(10).Rows.Value = 1
End If
End Sub

L'objectif est le suivant :

- Un utilisateur double click dans la colonne 6 et choisi "Oui", "non" ou "N/A" (cette macro déjà réalisée elle est OK)
- Un comparatif est effectuer entre la colonne 6 et la colonne 9
- Si les valeurs en colonne 6 et 9 sont les mêmes le chiffre 1 se met en colonne 10 sinon rien

Pourriez vous m'indiquer où se situe mon erreur

Merci beaucoup d'avance...

 

[Efgé]

Re : Comparatif en VBA entre deux colonnes

Bonjour gvives,
Essai comme ceci:

Private Sub worksheet_change(ByVal target As Range)
If Cells(target.Row, 6).Value = Cells(target.Row, 9).Value Then
    Cells(target.Row, 10).Value = 1
End If
End Sub

Cordialement

 

[gvives]

Re : Comparatif en VBA entre deux colonnes

Merci beaucoup Efgé ça maaarcheee !!!

Bonne journée !!

 

[job75]

Re : Comparatif en VBA entre deux colonnes

Bonjour givives, salut Efgé, mes meilleurs voeux

D'accord Efgé, mais compléter le code pour éviter un bouclage :

Private Sub Worksheet_Change(ByVal Target As Range)
If Cells(Target.Row, 6).Text = Cells(Target.Row, 9).Text _
  And Cells(Target.Row, 10) <> 1 Then Cells(Target.Row, 10) = 1
End Sub

A+

 

[Efgé]

Re : Comparatif en VBA entre deux colonnes

Re
Bonjour Job, mes meilleurs voeux également.
Exact, j'étais tombé dans le piège
Cordialement