Discussion :

[Mourne]

Bonjour à tous !

Mon pb est simple, ms mon prog ne marche pas. Je souhaite faire une boucle qui prend la chaine de carctère contenue ds une cellule et la remplace par une chaine de caract. composée des 8 premiers caractères.

Voici le prog que j'ai fait, ms qui ne marche pas...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
Dim Compt As Integer
    Compt = 1
    Do
        Range("C" & Compt).Value = Left(Range("C" & Compt).value, 8)
        Compt = Compt +1
    Loop Until Range("C" & Compt + 1).Value = Empty
 
End Sub

Merci d'avance pr votre aide

[SfJ5Rpw8]

qu'appelle tu marcher ... il as des jambes ton code ..? que ce passe-t'il lorsque tu l'exécute ton code..?


sinon je vois que tu utilise une variable compt comme index dans ta boucle... le probléme c'est que je ne vois pas où tu fais évoluer cet index..?

[Mourne]

lol. Merci pr ton aide encore une fois!

En effet, j'ai oublié de mettre l'incrémentation du compteur ds mon post, ms ds mon prog, il y est effectivement.

Lorsque j'exécute le prog, il se deplace de lign en ligne mais n'effectue aucun changment de chaines de caractères.

Il s'arrete bien lorsq il rencontre une case vide.

[SfJ5Rpw8]

il y as quoi dans tes cellules....?

tu est sur que la feuille active est la bonne...? (quand tu utilise range sans rien devant tu agit sur la feuille active...)

comment sait-tu qu'il se déplace bien de ligne à ligne ..?

[Mourne]

Mes cellules contiennent une chaines du type "5DIF0038 EB11" et je cherche à enlever " EB11" (dc remplacer la chaine par "5DIF0038").

Oui, je suis sur d'etre sur la feuille active puisq :
1. je vois le curseur se déplacer de lgn en lgn (il effectue d'autres taches de mises en forme)

2. Lorsq'il s'arrete, il reste sur la dernière case active (quelque soit la cellule de départ).

[SfJ5Rpw8]

ben si ton curseur bouge tu n'utilise pas le code que tu nous montre ... celui-ci n'agit pas sur le curseur ( il n'en as pas besoin pour modifier la valeur des cellules) et ce code fonctionne... il modifie bien la colonne C... essai ce code seul ...

[illight]

Je comprend pas a quoi sert ta variable "compt"

Pourquoi tuf ais pas un truc du genre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
for i = 1 to range("A1").end(xldown).row
 cells(i,1).value = left(cells(i,1).value,8)
next i

[SfJ5Rpw8]

Je comprend pas a quoi sert ta variable "compt"

.....

oui c'est mieux si tu la nomme i ta variable

[Mourne]

Merci !!
En effet, mon programme de correction des chaines de caractères marchait bien !! Le bug avait lieu ds la mise en forme du texte...
...et si le curseur bougeait, c t effectivement à cause de la mise en forme.

Merci encore !!!

[illight]

oui c'est mieux si tu la nomme i ta variable

Bah vi on voit mieux a quoi elle correspond