Remplacer selon condition
Bonjour,
Je recherche le moyen de remplacer dans la colonne A un N° par le même numéro précédé de la lettre C si dans la colonne K est inscrit la mention Correction Statistique.
Je connais bien Edition Remplacer mais il faudrait que ce soit une macro afin que le remplacement se fasse automatiquement à l'ouverture du fichier par exemple...
En effet, c'est une source qui sert à alimenter un fichier.
Pour plus de facilité voici le fichier :
http://cjoint.com/?3BoqeOxVFJo
D'avacne merci.
Je recherche le moyen de remplacer dans la colonne A un N° par le même numéro précédé de la lettre C si dans la colonne K est inscrit la mention Correction Statistique.
Je connais bien Edition Remplacer mais il faudrait que ce soit une macro afin que le remplacement se fasse automatiquement à l'ouverture du fichier par exemple...
En effet, c'est une source qui sert à alimenter un fichier.
Pour plus de facilité voici le fichier :
http://cjoint.com/?3BoqeOxVFJo
D'avacne merci.
2 réponses
-
Hello,
Merci beaucoup via55, ça fonctionne parfaitement.
Voici donc la macro finale pour les personnes que ça pourrait intéresser :
Private Sub Workbook_Open()
Sheets("source").Select
Range("A1").Select
For n = 2 To Selection.End(xlDown).Row
a = Cells(n, 1).Value
If Left(a, 1) <> "C" And Cells(n, 11).Value = "Correction Statistique" Then
Cells(n, 1).Value = "C " & a
End If
Next
End Sub -
Bonsoir,
Le code à mettre dans ThisWorkbook Workbook serait celui-ci :
Private Sub Workbook_Open()
Sheets("source").Select
Range("A1").Select
For n = 2 To Selection.End(xlDown).Row
a = Cells(n, 1).Value
If Cells(n, 11).Value = "Correction Statistique" Then Cells(n, 1).Value = "C " & a
Next
End Sub
Cdlmnt
