Bonsoir à Toutes et Tous,
Dans un feuille excel, je voudrai mettre en forme certaines expressions.
Le code VBA N°1 ci-dessous fonctionne parfaitement. Il me remplace bien "0000917222 PrestationsSante-" par "0000917222 PRESTATIONS SANTÉ".
A contrario, le code 2 ne fonctionne pas.. La commande " Set MaPlage = Sheets("BEC").UsedRange.Find("COTIS. SANTE")" renvoie "Nothing". Je précise que les cellulles contiennent une expression de la forme "20210715COTIS. SANTE 129446438-DC45BE40BAD44D1E94E281347574A378" De ce fait les remplacements ne s'effectuent pas.
Code 1
Set MaPlage = Sheets("BEC").UsedRange.Find("0000917222 PrestationsSante-")
If Not MaPlage Is Nothing Then
Cells.Select
Selection.Replace What:="0000917222 PrestationsSante-", Replacement:="0000917222 PRESTATIONS SANTÉ", LookAt:=xlWhole, SearchOrder:=xlByRows, _
MatchCase:=True, SearchFormat:=False, ReplaceFormat:=False
Else
GoTo Suite:
End If
Code 2 :
Set MaPlage = Sheets("BEC").UsedRange.Find("COTIS. SANTE")
If Not MaPlage Is Nothing Then
Cells.Select
Selection.Replace What:="COTIS. SANTE", Replacement:="COTISISATION SANTÉ", LookAt:=xlPart _
, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Else
GoTo Suite:
End If
Quelqu'un pourrait-il m'aider ?
Vous en remerciant par avance,
Cordialement.
Michel
Dans un feuille excel, je voudrai mettre en forme certaines expressions.
Le code VBA N°1 ci-dessous fonctionne parfaitement. Il me remplace bien "0000917222 PrestationsSante-" par "0000917222 PRESTATIONS SANTÉ".
A contrario, le code 2 ne fonctionne pas.. La commande " Set MaPlage = Sheets("BEC").UsedRange.Find("COTIS. SANTE")" renvoie "Nothing". Je précise que les cellulles contiennent une expression de la forme "20210715COTIS. SANTE 129446438-DC45BE40BAD44D1E94E281347574A378" De ce fait les remplacements ne s'effectuent pas.
Code 1
Set MaPlage = Sheets("BEC").UsedRange.Find("0000917222 PrestationsSante-")
If Not MaPlage Is Nothing Then
Cells.Select
Selection.Replace What:="0000917222 PrestationsSante-", Replacement:="0000917222 PRESTATIONS SANTÉ", LookAt:=xlWhole, SearchOrder:=xlByRows, _
MatchCase:=True, SearchFormat:=False, ReplaceFormat:=False
Else
GoTo Suite:
End If
Code 2 :
Set MaPlage = Sheets("BEC").UsedRange.Find("COTIS. SANTE")
If Not MaPlage Is Nothing Then
Cells.Select
Selection.Replace What:="COTIS. SANTE", Replacement:="COTISISATION SANTÉ", LookAt:=xlPart _
, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Else
GoTo Suite:
End If
Quelqu'un pourrait-il m'aider ?
Vous en remerciant par avance,
Cordialement.
Michel