Bonjour à tous !
Je suis nouveau sur le site et je débute en VBA. J'aurais besoin de vos lumières car je bloque sur un problème depuis quelques jours maintenant.
J'ai plusieurs tableaux dans différents fichiers excel, jusqu'à là rien d'exceptionnel ^^
Le problème est que ces tableaux ont des tailles complètement différentes et surtout énormes, cela va parfois à 1500 lignes et en colonne QNZ. De nombreuses cellules dans mes tableaux contiennent la valeur "NI" et je souhaiterais effacer le contenu de ces cellules pour qu'elles soient vierge.
J'ai commencé un peu de code (pas grand chose) mais le problème est que lorsque j'exécute la macro, cela efface une seule cellule, je dois l'exécuter autant de fois qu'il y a de cases.
Pouvez-vous donc m'aider à effectuer une boucle qu'il effacerait la cellule tant qu'il trouverait cette valeur, et qui s'arrêterait automatiquement lorsqu'il ne trouverait plus cette valeur.
Voila le code que j'avais crée:
Sub TEST1()
Cells.Find(What:="N/I").Select
Selection.Clear
End Sub
Merci pour votre aide !
Je suis nouveau sur le site et je débute en VBA. J'aurais besoin de vos lumières car je bloque sur un problème depuis quelques jours maintenant.
J'ai plusieurs tableaux dans différents fichiers excel, jusqu'à là rien d'exceptionnel ^^
Le problème est que ces tableaux ont des tailles complètement différentes et surtout énormes, cela va parfois à 1500 lignes et en colonne QNZ. De nombreuses cellules dans mes tableaux contiennent la valeur "NI" et je souhaiterais effacer le contenu de ces cellules pour qu'elles soient vierge.
J'ai commencé un peu de code (pas grand chose) mais le problème est que lorsque j'exécute la macro, cela efface une seule cellule, je dois l'exécuter autant de fois qu'il y a de cases.
Pouvez-vous donc m'aider à effectuer une boucle qu'il effacerait la cellule tant qu'il trouverait cette valeur, et qui s'arrêterait automatiquement lorsqu'il ne trouverait plus cette valeur.
Voila le code que j'avais crée:
Sub TEST1()
Cells.Find(What:="N/I").Select
Selection.Clear
End Sub
Merci pour votre aide !