Une macro pour colonne à transforme en ligne

[La Vouivre]

Bonsoir à tous
Sur ce magnifique forum j’ai récupère une macro qui me permet de trouver les doublons dans les colonnes,j’aimerais la transformer pour qu’elle recherche en ligne,pouvez-vous m’aider ?




Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Column < 4 Then

If Application.WorksheetFunction. _
CountIf(Columns(Target.Column), Target.Value) > 1 Then
MsgBox "Vous avez déjà saisi ce numéro -- recommencer"
Target.Value = ""
Target.Select
End If
End If
End Sub




Merci pour votre aide

 

[cbea]

Re : Une macro pour colonne à transforme en ligne

Bonsoir La Vouivre,

Voici le code modifié :

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    If Target.[COLOR="Red"]Row [/COLOR]< 4 Then
        If Application.WorksheetFunction.CountIf([COLOR="red"]Rows[/COLOR](Target.[COLOR="red"]Row[/COLOR]), Target.Value) > 1 Then
            MsgBox "Vous avez déjà saisi ce numéro -- recommencer"
            Target.Value = ""
            Target.Select
        End If
    End If
End Sub

@+
cbea

 

[La Vouivre]

Re : Une macro pour colonne à transforme en ligne

Merci ,c'est pile poil ce que je cherchais
merci beaucoup de ton aide
Bonne soirée