Aide sur Macro

[reinruof77]

Bonjour le forum

je viens vers vous car j'ai un probleme avec une macro qui me permet de verifier si un identifiant a deja été saisi dans la feuille 2017 et pilotage.
j'ai cette macro

Dim ws As Worksheet
Dim rng As Range
Dim x As Double
    Set ws = ActiveWorkbook.Worksheets("2017")
    Set rng = ws.Range("AD:AD")
    x = WorksheetFunction.CountIf(rng, TextBox20.Value)
  
       If TextBox20 <> "" Then x = WorksheetFunction.CountIf(rng, TextBox20.Value) Else x = 0
        MsgBox "Ce nom a déjà été saisi  EN 2017 " & x & " fois.", 64, "Attention !..."

mais
1) cela vérifie que sur la feuille 2017.
2) j'ai un message même si l'identifiant n'as jamais été saisie

je joint mon fichier test.

Merci de votre aide.

PS: j'ai demander aussi sur le site :https://forum.excel-pratique.com/viewtopic.php?f=2&t=109025

 

[gosselien]

Bonjour,

ce ne serait pas toi là ===> https://forum.excel-pratique.com/viewtopic.php?f=2&t=109025
si tu crossposte, fais le savoir au moins !

P.

 

[reinruof77]

Bonjour gosselien

Je l'ai indiquer dans mon post.


PS: j'ai demander aussi sur le site :https://forum.excel-pratique.com/viewtopic.php?f=2&t=109025

Mais si tu as une solution a me proposer je suis preneur