Remplacer selon condition
Playa2
-
Playa2 -
Playa2 -
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.
A voir également:
- Remplacer selon condition
- Remplacer disque dur par ssd - Guide
- Excel cellule couleur si condition texte - Guide
- Remplacer word - Guide
- Remplacer coco - Accueil - Réseaux sociaux
- Remplacer carte graphique - Guide
2 réponses
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
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
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
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
La bonne ligne IF est celle ci
If Left(a, 1) <> "C" And Cells(n, 11).Value = "Correction Statistique" Then
En effet il faut vérifier qu'il n'y ait pas déjà un C sinon il s'en rajouterait un à chaque ouverture du classeur!