Petit problème de test

  • Initiateur de la discussion Initiateur de la discussion anber
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

anber

XLDnaute Occasionnel
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]
 

Pièces jointes

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

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
4
Affichages
179
Réponses
9
Affichages
329
Réponses
72
Affichages
1 K
Réponses
9
Affichages
156
Retour