Discussion :

[teen6517]

Bonjour a tous

voila grace a un tuto de se forum, j'ai pu commencer a metre au poin une petite macro qui sert a remplacer dans des chaine de caractaire sertain caractaire par d'otre

voici mon code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
    For i = 4 To 502
 
       Range("H" & i).Select
       chaine = ActiveCell.FormulaR1C1
 
'      ActiveCell.FormulaR1C1 = Replace(chaine, ".", ",", , , vbTextCompare)
       ActiveCell.FormulaR1C1 = Replace(chaine, ",", ".", , , vbTextCompare)
 
       Range("E" & i).Select
       chaine = ActiveCell.FormulaR1C1
 
'      ActiveCell.FormulaR1C1 = Replace(chaine, " ", "'", , , vbTextCompare)
       ActiveCell.FormulaR1C1 = Replace(chaine, "'", " ", , , vbTextCompare)
 
    Next i

comme vous pouvez le voir dans les colomne E je remplace les ' par des espace
et dans la H des , par des .

je voudré amélioré cette macro de fason a se que dans les colones E, je suis remplacer les " aussi par des espaces

mais le code suivan ne marche pas :

Code :

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

1
2
 
ActiveCell.FormulaR1C1 = Replace(chaine, """, " ", , , vbTextCompare)

sa aurai été trop facil ^^

vous avais des sugjestions?

apres j'aimeré aussi pouvoir obtimisé la boucle
comment faire pour aller jusqua a la fin de mon fichier XLS?
pasque ojourdui il y a 502 ligne
mais demain il peu y en avoir 14 comme 500000

y a t il une solution a se petit probleme??


merci d'avance pour vos solution

[mercatog]

Si dans tes colonne E et H, tu n'as que des valeurs et non des formules

Code :

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

1
2
3
4
5
With Columns("E:E")
    .Replace "'", " "
    .Replace """", " "
End With
Columns("H:H").Replace ",", "."

[teen6517]

je pense que j'ai du mal interprété ta réponce car sa ne marche pas

Code :

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

1
2
3
4
 
     With Columns("H:H")
        ActiveCell.FormulaR1C1 = Replace(chaine, ".", ",", , , vbTextCompare)
     End With

Quand j'exécute se code, tous les point qui se trouve dans la colomne H reste des point.

Le comtenu de mes cellule sont des adresse pour les colomne E et des num de tel pour la colomn H

Je n'est aucune formule dans toute la page

[mercatog]

en colonne E tu veux remplacer les ' et les " par un espace et en colonne H tu veux remplacer les . par les ,
c'est ça?
pourquoi donc tu as ajouté l'activecell formular1c1....

recopie ce code comme il est et teste

Code :

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

1
2
3
4
5
With Columns("E:E")
    .Replace "'", " "   'remplace l'apostrophe par un espace
    .Replace """", " "  'remplace les guillemets par un expace
End With
Columns("H:H").Replace ".", "," 'remplace les points par les virgules

[teen6517]

J'avais rajouté activecell formular1c1.... car jusqu'a present, sans lui mon code ne marché pas

je vien de tester le code tel quel et il marche niquel (en réaliter je remplace les virgule par des points pour la colomne E mais pour se genre de modif s'est dans mes cordes ^^)

merci a vous deux

ha tien j'aurai une autre petite question

c'est possible de suprimé une ligne??
je veus pas dire metre tous les champs vide, je veu vraiment suprimer les 3 premiere ligne et donc la 4eme deviendré la 1ere ....

c'est possible?? merci davance

[mercatog]

Code :

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

Rows(1 & ":" & 3).Delete