Remplacer texte dans formule
Bonjour,
J'ai une macro qui copie une formule dans plusieurs onglets.
Mon problème est que je ne sais pas comment adapter ma formule pour qu'elle cherche dans la bonne feuille.
Présentement, elle cherche toujours dans la feuille "PEM".
Est-ce qu'il y a un moyen d'adapter ma formule ou sinon une méthode pour faire un recherche et remplace ?
Sub clients()
Sheets("PEM").Activate
Dim derniere_ligne As Long
derniere_ligne = Sheets("Importation").Cells(Rows.Count, 4).End(xlUp).Row
Sheets("PEM").Select
Range("A1").Select
ActiveCell.FormulaR1C1 = _
"=IFERROR(IF(RC[3]=""BT"","""",IF(RC[3]="""","""",INDEX(COPIE!C1:C4,MATCH(PEM!RC[3],COPIE!C4,0),1))),"""")"
Range("A1").Select
Selection.Copy
Range("A1:A" & derniere_ligne).Select
ActiveSheet.Paste
Application.Calculation = xlCalculationManual
Columns("A:A").Copy Sheets("PEM").Range("A1")
Columns("A:A").Copy Sheets("SPOT").Range("A1")
Columns("A:A").Copy Sheets("TIME SAVER").Range("A1")
Columns("A:A").Copy Sheets("SOUDURE").Range("A1")
Columns("A:A").Copy Sheets("FINITION").Range("A1")
Columns("A:A").Copy Sheets("ASSEMBLAGE").Range("A1")
Columns("A:A").Copy Sheets("PLIAGE").Range("A1")
Columns("A:A").Copy Sheets("AUTRES").Range("A1")
End Sub
Bonjour
Est-ce que cela te convient ?
A faire pour chaque feuille .
Sheets("SPOT").Range("A:A").Select
Selection.Replace What:="PEM", Replacement:="SPOT", LookAt:=xlPartA+
Merci Patty pour ta solution
Enchantée pour toi
Bonne soirée