Discussion :

[clad523]

Bonjour,
alors voila, lors de l'exécution de ma macro VBA, je souhaiterais tronquer le contenu d'une cellule.
Le critère pour faire cela est de supprimer tout ce qu'il y a aprés le caractère "("

Débutant en VBA, je ne sais pas du tout comment faire.

Quelqu'un pourrait il m'aider? D'avance merci

[Jean-Pierre49]

Bonjour

essaye

Code :

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

Left(Valeur, InStr(Valeur, "(") - 1)

Valeur etant ta variable ou Range("A2")


Jean-Pierre

[clad523]

Aors je viens de tester et j'ai:

Code :

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

1
2
3
For i = 2 To j
                     Range("D" & i).Select
                     ActiveCell.Value = Left(ActiveCell.Value, InStr(ActiveCell.Value, "(") - 1)

et j'ai la belle erreure suivante qui arrive:
Invalid procedure call or argument

[Jean-Pierre49]

essaye

Code :

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

Range("D" & i).Value = Left(Range("D" & i).Value, InStr(Range("D" & i).Value, "(") - 1)

Jean-Pierre

[Abed_H]

Bonjour
les données sont en colonne D à partir de la ligne 2

Code :

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

1
2
3
For i = 2 To j
    Cells(i, 4).Value = Split(Cells(i, 4).Value, "(")(0)
Next

Bonne journée

Abed_H

[clad523]

Parfait Abed_H, ça marche nickel.
Merci beaucoup aussi Jean-Pierre49 pour ton aide