A voir également:
- Remplacer selon condition
- Excel cellule couleur si condition texte - Guide
- Remplacer disque dur par ssd - Guide
- Remplacer word - Guide
- Quel site pour remplacer coco - Accueil - Réseaux sociaux
- Remplaçant de Coco : quelles solutions pour tchater gratuitement en ligne ? - Accueil - Réseaux sociaux
2 réponses
via55
Messages postés
14502
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
9 décembre 2024
2 737
14 févr. 2013 à 20:54
14 févr. 2013 à 20:54
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
14 févr. 2013 à 21:10
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!