Feuille excel

cs_samanta26 Messages postés 22 Date d'inscription dimanche 14 novembre 2010 Statut Membre Dernière intervention 26 février 2012 - 17 févr. 2012 à 11:45
cs_cheyenne Messages postés 693 Date d'inscription samedi 18 mai 2002 Statut Membre Dernière intervention 17 avril 2017 - 17 févr. 2012 à 12:43
Slt tout le monde,
j'ai un classeur où il y a bcq de feuilles, et je suis entrain de programmer plusieurs fonctions dans des modules différents sous vba, mais j'arrive pas à lui montrer à chaque fois la feuille où il doit exécuter ce calcul.
j'ai essayé avec with sheets mais ça marche toujours pas!!
Merci d'avance.
Sub eleme_space()
Dim i As Integer
Dim dimension As Integer
dimension = (nb_lignes() - 2)

With Sheets("calcul court")

For i = 3 To dimension
Cells(i, 1) = Replace(Cells(i, 1).Value, " ", "")
Next i

End With

End Sub

1 réponse

cs_cheyenne Messages postés 693 Date d'inscription samedi 18 mai 2002 Statut Membre Dernière intervention 17 avril 2017 2
17 févr. 2012 à 12:43
Bonjour,

Tu as oublié de mettre les points devant Cells
.Cells(i, 1) = Replace(.Cells(i, 1).Value, " ", "")

Remplaces "" par vbNullString, tu gagneras en rapidité.

Ne serait-ce pas plutôt :
dimension = UBound(nb_lignes) - 2

Cheyenne
0
Rejoignez-nous