problème d'une macro

[pouty]

<< 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

 

[Pierrot93]

Re : problème d'une macro

BONJOUR,

tu trouveras un début de réponse ici :
Lien supprimé
@+

 

[pouty]

Re : problème d'une macro

<< BONJOUR Pierrot93,
<< La réponse proposer est bien lu et un aide ou un avis serait un plus
<< Merci

Lien supprimé

 

[Victor21]

Re : problème d'une macro

Bonjour, pouty, Pierrot.

... et un aide ou un avis serait un plus

Un extrait de ton fichier joint aussi...

 

[pouty]

Re : problème d'une macro

<< J'ai mis un fichier exemple pour exemple

<< CORDIALEMENT POUTY

 

[Victor21]

Re : problème d'une macro

Re,

Essaie :

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, -2).Value = Cells(i, 4).Value
Target.Offset(0, -1).Value = Cells(i, 5).Value
Else
Target.Offset(0, -2).Resize(1, 2).ClearContents
End If
End If
End Sub

 

[pouty]

Re : problème d'une macro

<< Merci Victor21 pour ton conseil et soutien impeccable la macro fonctionne bien .