Réduction d'un string en VBA

Résolu/Fermé

Martin - Modifié par Martin le 29/12/2010 à 11:07
Martin - 29 déc. 2010 à 15:39

Bonjour tout le monde !

Savez-vous comment je pourrais supprimer les 6 premiers et les 7 derniers caractères d'une chaine de caractère en VBA ?

D'avance un grand merci.

A voir également:

Réduction d'un string en VBA
Bon de reduction - Guide
Reduction taille image - Guide
Find vba - Astuces et Solutions
Excel compter cellule couleur sans vba - Guide
Vba attendre 1 seconde ✓ - Forum VB / VBA

3 réponses

Réponse 1 / 3

Nabla's Messages postés 18203 Date d'inscription mercredi 4 juin 2008 Statut Contributeur Dernière intervention 28 avril 2014 3 193
29 déc. 2010 à 11:22

T'as raison, un string, plus c'est petit, plus c'est mignon ....
=====>[]

https://www.techonthenet.com/access/functions/string/mid.php
=> pour sélectionner une partie de la chaine.

len(ton_string)
pour connaitre sa taille ...

==>
un truc comme
mid(ton_string, 7, len(ton_strin) - 7 - 7)

Réponse 2 / 3

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 312
29 déc. 2010 à 15:24

Bonjour

Function extrairetexte(texto As String, debut As Byte, fin As Byte) As String
    'debut: nbre de caractère a supprimer à gauche, fin: nbre à droite
    extrairetexte = Mid(texto, 7, Len(texto) - (debut + fin))
End Function

Sub test()
    MsgBox extrairetexte("aaaaaabbbbbccccccc", 6, 7)
End Sub

Réponse 3 / 3

Martin
29 déc. 2010 à 15:39

Hello vous deux,

Merci beaucoup pour vos réponses, ça marche nickel !!

Discussions similaires

"L'indice n'appartient à la sélection" + VBA

Bonjour,
Nous avons un problème dans la programmation de notre VBA. Voici notre programme:

Sub Bloucle1Bull()
Dim a, k As Integer

k = 2
Do While Worksheets("formulaire").Cells(2, 2) Worksheets("formulaire").Cells(k, 4)
k = k + 1
Loop

a = 2
Do While Worksheets("formulaire").Cells(k + 1, 4) Worksheets("BDD Call").Cells(a, 1) Or (Worksheets("BDD Call").Cells(a, 4) = (Worksheets("Bullspread").Cells(2, 3) + 100)) Or Worksheets("BDD Call").Cells(a, 7) Worksheets("bullspread").Cells(2, 7)
a = a + 1
Loop

''''''''''''on recopie la ligne du premier call trouvé pour le jour 2 ...

Concatener un String et un Integer en VBA

Bonjour,

Quand j'écris :
a = "B" & Str(8)
b = "B" + Str(8)

J'obtiens : a -> "B 8" et b -> "B 8"
Or je voudrais obtenir "B8" sans l'espace.

Dans mon code je doit générer des string de la forme "Bi" où est un integer.

Je ne comprend pas d'où vient ce maudit espace.
Vous avez une idée?

ouverture d'un fichier excel à partir d'un code VBA

Bonjour,

je souhaite ouvrir un fichier excel à partir du code suivant:

Sub Ouvrir()
Workbooks.Open Filename:="C:\Documents and Settings\Administrateur\Bureau\TRADING\Action.xlsx"
End Sub

sauf que lors de l'exécution j'ai cette erreur
==> Instruction incorrecte à l'extérieur d'une procédure et il met en bleu cette partie :
C:\Documents and Settings\Administrateur\Bureau\TRADING\Action.xlsx

merci

Erreur d'exécution 13 Incompatibilité de type

Bonjour,

Je ne comprend pas pourquoi j'ai une erreur d'execution 13 : incompatibilité de type car mon code marchait très bien avant...Je met en gras la ligne où il y a l'erreur

'affichage des feuilles concernées et vérification des champs Sheets("Recap").Visible = True If Cathégories = "" Then MsgBox "Sélectionnez une catégorie de défauts dans la liste déroulante" ElseIf défauts = "" Then MsgBox "Sélectionnez un défauts qualité dans la liste déroulante" Exit Sub End If Dim i As Integer Dim n As Integer n = 3 i = 2 MsgBox "Veuillez patienter pendant le traitement..." Application.Cursor = xlWait 'affiche le sablier 'Suppression des don...

Cannot access offset of type string on string... WTF ?

Bonjour,

J'ai une fonction php (appelée en ajax) qui m'nevoie ce message d'erreur (Cannot access offset of type string on string) et je ne comprends absolument pas d'où ça sort... Help !
Voici l'appel à ma fonction
if ($flwprosp) { $result = flwprosp($flwprosp, $civilite, $iduser, $nrp, $tel, $mail, $nom, $prenom, $adresse, $cpostal,$ville, $where, $date, $comment, $nextact, $noway, $debug); } 2151300759 [nrp] => 1 [civilite] => Mme [iduser] => baa9188a-0dd0-4f50-aaab-65e421cca195 [tel] => tel [mail] => mail [nom] => nom [prenom] => prenom [adresse] => adress [cpostal] => 00000 [ville] => ville [where] => splae...