Discussion :

[S.Mag]

Bonjour,

Je souhaite remplacer le mot "date Inst" dans ma colonne "C" de 2000 lignes.

J'ai ce code qui me donne un message d'erreur: Erreur de compilation: Nombre d'arguments incorrect ou affectation de propriété incorrecte

le bug est dans cette ligne de code :

Code :

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

correct = Replace(orig, "Date Inst", "")

alors que j'ai bien vérifié sur internet la fonction replace!

voici le code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub replaceEx()
Dim orig, wb As Workbook, correct, i
 
Set wb = Workbooks.Open("Z:\VBA\base-macro.xlsx")
For i = 1 To wb.Sheets(2).Range("C" & Rows.count).End(xlUp).Row
orig = wb.Sheets("Feuil2").Range("C" & i + 1).Value
correct = Replace(orig, "Date Inst", "")
Range("C" & i + 1).Value = correct
Next i
 
End Sub

merci pour vos aides!

[halaster08]

Bonjour, essaye ceci:

Code :

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

1
2
wb.Sheets("Feuil2").Range("C1:C" & i + 1).Replace What:="Date Inst" , Replacement:= "", _
    LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False

[S.Mag]

Bonjour, essaye ceci:

Code :

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

1
2
wb.Sheets("Feuil2").Range("C1:C" & i + 1).Replace What:="Date Inst" , Replacement:= "", _
    LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False

ça marche parfaitement
merci beaucoup!