Petit problème de test

Hervé

XLDnaute Barbatruc

• 6 Mars 2006

• #2

Bonsoir anber, tonton pierre, le forum

Si tu ne veux pas de doublons en colonne F, tu peux peut etre essayer ceci :

Sub tst()
Dim Ligne As Integer
Dim c As Range

Ligne = Range('f65536').End(xlUp).Row
With Sheets('feuil1')
        For Each c In .Range('f2:f' & Ligne)
                If c = Range('a1') Then Exit Sub
        Next c

        .Cells(Ligne + 1, 'f') = Range('a1')
End With

End Sub

Cliquez pour agrandir...

salut

 

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 6 Mars 2006

• #3

Bonsoir Anber, Hervé, bonsoir le forum,

Damned encore lui (Hervé)... J'aurais dû m'en douter...

Anber je te propose en gros la même chose qu'Hervé mais j'ai supprimé ton bouton et j'ai écrit le code dans l'événement Change de l'onglet Feuil1. Du coup il te suffit d'éditer une valeur dans A1 et de valider pour que code soit exécuté.

Bref... J'ai encore gagné (lol) sur ce coup là, non ? [file name=anber.zip size=8161]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/anber.zip[/file]

 

Pièces jointes

• anber.zip

  10.2 KB · Affichages: 20
• anber.zip

  10.2 KB · Affichages: 32
• anber.zip

  10.2 KB · Affichages: 18

Vote positif 0 Vote négatif

Hervé

XLDnaute Barbatruc

• 6 Mars 2006

• #4

re anber, robert

saperlipopette, le fourbe robert

je ne peux que m'incliner devant tant d'ingéniositré.

salut

 

Vote positif 0 Vote négatif

A

anber

Guest

• 6 Mars 2006

• #5

Bonsoir Robert, Hervé

Merci pour vos réponses


Cordialement

 

Vote positif 0 Vote négatif