Sujet Précédent Sujet Suivant

Extraire le milieu d'une chaine de caractère

Résolu
f76 - 29 janv. 2024 à 16:19
 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:

3 réponses

Réponse 1 / 3
jordane45 Messages postés 38145 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 25 avril 2024 4 650
29 janv. 2024 à 16:54

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)
0
yg_be Messages postés 22732 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 28 avril 2024 1 477
29 janv. 2024 à 18:10

bonjour,

on peut aussi utiliser offset():

Mid(ActiveCell.offset(,- 2), 5, 2)
0
Réponse 2 / 3
yg_be Messages postés 22732 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 28 avril 2024 1 477
29 janv. 2024 à 18:12

Au lieu de

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

Je pense que tu peux écrire

ActiveCell.EntireRow.Delete
0
Réponse 3 / 3
f76
31 janv. 2024 à 08:41

bonjour,

Merci à tous pour votre aide.
0

Discussions similaires

Excel : extraire le texte après un caractère
lolo5476 -
Pat45 -

7 réponses
Caractère invisible ou vide pour pseudo invisible
kok -
Gtvtvt -

39 réponses
Comment insérer correctement des caractères spéciaux ou émojis ?
Lia -
Cct -

45 réponses