Bonjour,
J'ai créé cette macro pour supprimer les espaces de début et de fin de chaque cellule (de toute une colonne : 12000 lignes)
Comment accélérer la macro, ce n'est pas rapide... ?? Existe-t-il un code plus rapide ?
Sub SupEspace()
Dim plage, cellule
Set plage = Range("D2:D12000")...
Bonjour le forum
Dans la colonne B les données telles que je les récupère: format 1'08''23 (+0''10)
le 9iem car est un espace que dans un 1er temps j'aimerais supprimer ainsi que les suivant ne garder que les 8 car du début format: 1'08''13
avec ce code
Sub cal6()
fin = Cells(Rows.Count...