Macro
Résolu
Dutech
-
Kuartz Messages postés 852 Date d'inscription Statut Membre Dernière intervention -
Kuartz Messages postés 852 Date d'inscription Statut Membre Dernière intervention -
Bonjour à tous,
J'aimerais faire une macro avec les exigences suivantes svp :
Déclarer un entier i;
i = 1;
For each cells(i;G) do
IF cells(i;G) contiens("ABC" or "ABC D") then
supprimer ABC
supprimer ABC D
end if
next
sachant que dans ma cellule i;G il y a un séparateur entre plusieurs portions de mots :
ex : ABC¤AC¤AD¤ABC D¤AER I¤AB
Merci d'avance pour votre aide
J'aimerais faire une macro avec les exigences suivantes svp :
Déclarer un entier i;
i = 1;
For each cells(i;G) do
IF cells(i;G) contiens("ABC" or "ABC D") then
supprimer ABC
supprimer ABC D
end if
next
sachant que dans ma cellule i;G il y a un séparateur entre plusieurs portions de mots :
ex : ABC¤AC¤AD¤ABC D¤AER I¤AB
Merci d'avance pour votre aide
1 réponse
-
Bonjour,
Voici un code :
Sub TEST() Dim DL As Long DL = Cells(Application.Rows.Count, 1).End(xlUp).Row 'A supposer que la colonne de référence pour votre dernière ligne soit la colonne A For i = 1 To DL 'A supposer que la vérif commence à la ligne 1 If Application.Search("ABC D", Range("G" & i)) = True Then Range("G" & i) = Replace(Range("G" & i), "ABC D", "") End If If application.Saerch("ABC", Range("G" & i)) = True Then Range("G" & i) = Replace(Range("G" & i), "ABC", "") End If Next i End Sub
Cordialement.
