Manipulation de la valeur d'une cellule dans une boucle
Bonjour,
Voila plusieurs jours que je regarde les forums en quête d'une réponse, mais rien a faire, l'erreur persiste.
Voici mon objectif:
Je dispose d'un tableau avec pas mal de colonnes (exportation d'un logiciel interne), j'ai besoin de formater une colonne afin d'enlever les commentaires entre parenthèses. J'extrait ensuite les données automatiquement et elles s'incèrent dans un mail...
Une erreur ressort "argument ou appel de procédure incorrect"
La méthode a pourtant marché pendant un moment mais rien n'y faire, plus rien ne marche.
Voici le bout de code:
Sub test()
Set rclient = Cells.Find(What:="Réf. Client")
Set Isin = Cells.Find(What:="Isin")
x = Cells(Sheets(1).Rows.Count, Isin.Column).End(xlUp).Row
For k = 2 To x
If Len(rclient(k, 1)) > 0 Then rclient(k, 1).Value = "Fund : " & Mid(rclient(k, 1), 1, InStr(rclient(k, 1), "(") - 1)
Next k
End Sub
Si vous avez des pistes je suis preneur.
Merci d'avance
Bonjour,
problème lié à tes données, que tu ne nous as pas mises. Soit il ne trouve pas "Réf. Client" et tu as une erreur sur la ligne "if ..." soit il ne trouve pas "Isin" et tu as une erreur sur la ligne "x= ..."
Hello,
Merci pour ta réponse,
j'ai remplacé par ce bout de code et tout semble marcher
For k = 2 To x
PAR = InStr(rclient(k, 1), "(")
If rclient(k, 1).Value = "" Or "-" Then
rclient(k, 1).Value = ""
ElseIf PAR > 0 Then
rclient(k, 1).Value = "Fund : " & Mid(rclient(k, 1), 1, PAR - 1)
Else
rclient(k, 1).Value = "Fund : " & rclient(k, 1).Value
End If
Next k