Re : recupérer la valeur d'une cellule dans un textbox et ajouter +1
re,
et merci à Dull, j'étais aussi en train de vérifier
deux petits détails:
au lieu d'utiliser textBox1, donne des noms explicites à tes controles, cela te simplifiera la vie lors d'un débogage éventuel
je nomme mes controles tb_NumSaisie dans ce cas là (tb = textbox NumSaisie pour identifier de quoi il s'agit)
aussi, ajouter l'indication : option explicit qui t'oblige à déclarer les variables utilisées dans le code (cela évite des erreurs et quelquefois des heures de recherche
dans le module usf bonjour, tu as une erreur de code
For Each c In Range("AD3:A65000")
je pense que le D est de trop
également, penser à utiliser les boolean (qui ne peuvent prendre que deux valeurs, vrai ou faux)
par ex tu mets x=1 pour spécifier que la valeur cherchée est trouvée
en début de sub, tu mets dim trouvé as boolean
puis au lieu de x=1 tu mets trouvé = true, c'est à dire vrai
plus bas, il suffit de mettre :
if trouvé then msgbox ...
bien entendu, dans ce code il sera facile de comprendre le pourquoi du x, mais pense que tu vas peut-être (certainement même) faire des codes plus complexes et plus long et, dans ce cas, toutes les indications / conseils que je te mets ici te seront très utiles
et sinon, j'aurais mis les deux usf sur un seul, mais bon, cela fonctionne aussi comme cela