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
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
D'accord Efgé, mais compléter le code pour éviter un bouclage :
Code:
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