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
A voir également:
- Macro
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Télécharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Jitbit macro recorder - Télécharger - Confidentialité
- Macro maker - Télécharger - Divers Utilitaires
- Macro word - Guide
1 réponse
Bonjour,
Voici un code :
Cordialement.
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.
Du coup entre ce que j'ai vu sur le net et ta macro je vais pouvoir bidouiller pas mal de chose je pense.
N'hésite pas à me MP si tu as une question. Si je sais y répondre, je serais ravi de t'aider. Passe le sujet en résolu s'il te plaît.
Cordialement.