Extraire le milieu d'une chaine de caractère

Résolu

f76 -
f76 - 31 janv. 2024 à 08:41

Bonjour,

Je voudrais extraire le milieu d'une chaine de caractère, j'ai fait cette instruction mais ça ne compile pas et bloque sur le [-2] en demandant un séparateur de ligne.

If ActiveCell ="MS" and MID(cells(RC[-2],5,2))= "12" Then

ActiveSheet.Rows(ActiveCell.Row).EntireRow.Delete

Pouvez-vous m'aider svp?

A voir également:

Extraire le milieu d'une chaine de caractère
Caractère ascii - Guide
Extraire une video youtube - Guide
Extraire le son d'une vidéo - Guide
Caractère spéciaux - Guide
Caractere speciaux - Guide

3 réponses

Réponse 1 / 3

jordane45 Messages postés 38472 Date d'inscription Statut Modérateur Dernière intervention 4 745

Bonjour,

La notation RC est utilisée dans des formules, pas dans du code VBA

Tu peux remplacer par :

Mid(Cells(ActiveCell.Row - 2, ActiveCell.Column - 2), 5, 2)

yg_be Messages postés 23538 Date d'inscription Statut Contributeur Dernière intervention 1 582

bonjour,

on peut aussi utiliser offset():

Mid(ActiveCell.offset(,- 2), 5, 2)

Réponse 2 / 3

yg_be Messages postés 23538 Date d'inscription Statut Contributeur Dernière intervention

Au lieu de

ActiveSheet.Rows(ActiveCell.Row).EntireRow.Delete

Je pense que tu peux écrire

ActiveCell.EntireRow.Delete

Réponse 3 / 3

f76

bonjour,

Merci à tous pour votre aide.

Votre réponse