P
pouty
Guest
<< débutant en vba j'ai un tableau excel avec plusieurs colonnes ma macro me permet d'apres une saisie dans une colonne de remplir 2 autre colonnes automatiquement si la saisie à déja été entré.
Détails:
en colonne F les donnes saisies
en colonne E et D les données qui s'ajoutes par rapport a la saisie de la colonne F.
Mais problème avec le code de ma macro qui me plante
voici le code :
Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Long
If Target.Column = 6 And Target.Count = 1 Then
If Application.CountIf(Range("F:F"), Target.Value) < 1 Then
i = Application.Match(Target.Value, Range("F:F"), 0)
Target.Offset(0, 1).Value = Cells(i, 4).Value
Target.Offset(0, 2).Value = Cells(i, 5).Value
Else
Target.Offset(0, 1).Resize(1, 2).ClearContents
End If
End If
End Sub
Détails:
en colonne F les donnes saisies
en colonne E et D les données qui s'ajoutes par rapport a la saisie de la colonne F.
Mais problème avec le code de ma macro qui me plante
voici le code :
Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Long
If Target.Column = 6 And Target.Count = 1 Then
If Application.CountIf(Range("F:F"), Target.Value) < 1 Then
i = Application.Match(Target.Value, Range("F:F"), 0)
Target.Offset(0, 1).Value = Cells(i, 4).Value
Target.Offset(0, 2).Value = Cells(i, 5).Value
Else
Target.Offset(0, 1).Resize(1, 2).ClearContents
End If
End If
End Sub