Petit problème de test

[anber]

Bonsoir le Forum,

Un petit probleme de test dans un code


Merci [file name=Classeur1_20060306205230.zip size=7415]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Classeur1_20060306205230.zip[/file]

 

[Hervé]

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

salut

 

[Robert]

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]

 

[Hervé]

re anber, robert

saperlipopette, le fourbe robert

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

salut

 

[anber]

Bonsoir Robert, Hervé

Merci pour vos réponses


Cordialement