Effacer texte conditionnel
Résolu
cs_emmanuel15
Messages postés
30
Date d'inscription
lundi 18 avril 2005
Statut
Membre
Dernière intervention
16 novembre 2005
-
19 sept. 2005 à 10:06
cs_emmanuel15 Messages postés 30 Date d'inscription lundi 18 avril 2005 Statut Membre Dernière intervention 16 novembre 2005 - 19 sept. 2005 à 17:44
cs_emmanuel15 Messages postés 30 Date d'inscription lundi 18 avril 2005 Statut Membre Dernière intervention 16 novembre 2005 - 19 sept. 2005 à 17:44
4 réponses
belineo
Messages postés
9
Date d'inscription
lundi 8 août 2005
Statut
Membre
Dernière intervention
20 septembre 2005
19 sept. 2005 à 17:09
19 sept. 2005 à 17:09
Un fichier exemple est à ta disposition sur mon porte-document en cliquant ici.
Ci dessous le texte de la procédure:
Sub nettoyage()
colonne = 3 ' N° de colonne à modifier
ligne = 4 ' N° de la première ligne à modifier
texte = ActiveSheet.Cells(ligne, colonne).Value ' valeur de la 1ère cellule
Do While texte <> "" 'Tant que la cellule n'est pas vide
longueur = Len(texte) ' nombre de caractères dans la cellule
Position = 1
car = Left(texte, 1)
Do While car <> "(" And Position <= longueur ' tant que le caractère est <> de (
Position = Position + 1
car = Mid(texte, Position, 1) 'valeur du caractère
Loop ' caractère suivant
If car = "(" Then 'si on est sur un caractère (
newtext = Left(texte, Position - 1) 'on ne garde que les premier caractères
ActiveSheet.Cells(ligne, colonne).Value = newtext ' on modifie la valeur de la cellule
End If
ligne = ligne + 1
texte = ActiveSheet.Cells(ligne, colonne).Value
Loop ' on se positionne sur la ligne suivante pour recommencer
End Sub
J'espère t'avoir rendu service,
Belineo
La violence qu'on se fait pour devenir fidèle ne vaut guere mieux que l'infidélité.
(La Rochefoucauld)
Ci dessous le texte de la procédure:
Sub nettoyage()
colonne = 3 ' N° de colonne à modifier
ligne = 4 ' N° de la première ligne à modifier
texte = ActiveSheet.Cells(ligne, colonne).Value ' valeur de la 1ère cellule
Do While texte <> "" 'Tant que la cellule n'est pas vide
longueur = Len(texte) ' nombre de caractères dans la cellule
Position = 1
car = Left(texte, 1)
Do While car <> "(" And Position <= longueur ' tant que le caractère est <> de (
Position = Position + 1
car = Mid(texte, Position, 1) 'valeur du caractère
Loop ' caractère suivant
If car = "(" Then 'si on est sur un caractère (
newtext = Left(texte, Position - 1) 'on ne garde que les premier caractères
ActiveSheet.Cells(ligne, colonne).Value = newtext ' on modifie la valeur de la cellule
End If
ligne = ligne + 1
texte = ActiveSheet.Cells(ligne, colonne).Value
Loop ' on se positionne sur la ligne suivante pour recommencer
End Sub
J'espère t'avoir rendu service,
Belineo
La violence qu'on se fait pour devenir fidèle ne vaut guere mieux que l'infidélité.
(La Rochefoucauld)
belineo
Messages postés
9
Date d'inscription
lundi 8 août 2005
Statut
Membre
Dernière intervention
20 septembre 2005
19 sept. 2005 à 11:45
19 sept. 2005 à 11:45
pour quelle type d'appli?( je pense Excel)
Si j'ai bien compris, le principe serait de tester si le caractère "(" est présent dans la chaine, et d'effacer tous les caractères à droite.
La violence qu'on se fait pour devenir fidèle ne vaut guere mieux que l'infidélité.
(La Rochefoucauld)
Si j'ai bien compris, le principe serait de tester si le caractère "(" est présent dans la chaine, et d'effacer tous les caractères à droite.
La violence qu'on se fait pour devenir fidèle ne vaut guere mieux que l'infidélité.
(La Rochefoucauld)
cs_emmanuel15
Messages postés
30
Date d'inscription
lundi 18 avril 2005
Statut
Membre
Dernière intervention
16 novembre 2005
19 sept. 2005 à 13:28
19 sept. 2005 à 13:28
Pour Excel en effet.
Tu cerné le sujet : il faudrait que lorsqu'il trouve une ouverture de parenthèse, il l'efface, ainsi que tout le texte à sa droite.
Peux tu m'aider?
Merci d'avance.
Emmanuel
Tu cerné le sujet : il faudrait que lorsqu'il trouve une ouverture de parenthèse, il l'efface, ainsi que tout le texte à sa droite.
Peux tu m'aider?
Merci d'avance.
Emmanuel
cs_emmanuel15
Messages postés
30
Date d'inscription
lundi 18 avril 2005
Statut
Membre
Dernière intervention
16 novembre 2005
19 sept. 2005 à 17:44
19 sept. 2005 à 17:44
Merci Bcp.
Bonne journée.
Emmanuel
Bonne journée.
Emmanuel