A voir également:
- Macro remplacer une série de mots par des sigles (plage donnée)
- Remplacer disque dur par ssd - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Remplacant de coco - Accueil - Réseaux sociaux
- Remplacer un mot par un autre word - Guide
- Trousseau mot de passe iphone - Guide
2 réponses
yg_be
Messages postés
23541
Date d'inscription
Statut
Contributeur
Dernière intervention
Ambassadeur
1 584
Suggestion :
Cela va faire le boulot (pour CA & TX) sur la troisième colonne de toutes tes feuilles, jusqu'à rencontrer une cellule vide.
Option Explicit
Sub states()
Dim f As Worksheet
Dim li As Long
Dim etat As String
Dim abbrev As String
For Each f In ThisWorkbook.Worksheets
li = 1
Do
etat = Cells(li, 3)
abbrev = ""
Select Case etat
Case "CALIFORNIE":
abbrev = "CA"
Case "TEXAS":
abbrev = "TX"
End Select
If abbrev <> "" Then
Cells(li, 3) = abbrev
End If
li = li + 1
Loop While Cells(li, 3) <> ""
Next
End Sub
Cela va faire le boulot (pour CA & TX) sur la troisième colonne de toutes tes feuilles, jusqu'à rencontrer une cellule vide.
ce code prévient quand il a fini chaque feuille :
Option Explicit Sub states() Dim f As Worksheet Dim li As Long Dim etat As String Dim abbrev As String For Each f In ThisWorkbook.Worksheets li = 1 Do etat = Cells(li, 3) abbrev = "" Select Case etat Case "CALIFORNIE": abbrev = "CA" Case "TEXAS": abbrev = "TX" End Select If abbrev <> "" Then Cells(li, 3) = abbrev End If li = li + 1 Loop While Cells(li, 3) <> "" MsgBox "fini " + f.Name + ", dernière ligne =" + CStr(li) Next End Sub