feuille excel

Question

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

ucfoutu · Answer

Bonjour,
Tu ferais bien mieux, au lieu de colorier en jaune quasi invisible des lignes de ton code, de le présenter ici entre les balises codes prévues à cet effet ! (3ème icône en partant de la gauche) !
Tu devrais ouvrir ton aide VBA sur l'instruction With et regarder sa syntaxe 

Les propriétés, etc ... à l'intérieur d'un bloc With sont précédés d'un signe, non (un point).

____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

acive · Answer

Bonjour,

(3ème icône en partant de la gauche) ! 
3ème icône en partant de la droite.


Cordialement


CF2i - Guadeloupe
Ingénierie Informatique

mjpmjp · Answer

bonjour
il manque un point devant cell
Cells(i, 1) = Replace(Cells(i, 1).Value, " ", "") 

Sheets("calcul court").Cells(i, 1) = Replace(Sheets("calcul court").Cells(i, 1).Value, " ", "")
avec With on leve Sheets("calcul court") mais on garde le reste

.Cells(i, 1) = Replace(.Cells(i, 1).Value, " ", "")

@+JP

Feuille excel

3 réponses

Votre réponse

Discussions similaires