Boucle MID

[Atiom]

Bonsoir le forum

Je sollicite votre aide pour pour réaliser une boucle.

Le code ci-dessous permet d'extraire un caractère d'une chaîne de texte.

        Range("A3").Select
    ActiveCell.FormulaR1C1 = "=MID(R[-1]C,1,1)"
        Range("A4").Select
    ActiveCell.FormulaR1C1 = "=MID(R[-2]C,2,1)"
        Range("A5").Select
    ActiveCell.FormulaR1C1 = "=MID(R[-3]C,3,1)"

Il extrait en A3 le premier caractère et en A4 le deuxième.
On peu continuer comme ça indéfiniment…

Mon problème est que je doit écrire 50 fois ( A3:A52 ) et dans 5 colonnes cette à dire 250 fois. ( Plage A3:E52 )

Je pense qu’on peut simplifier le code avec une boucle, mais franchement j’ai déjà essayé et pas réussi.

Merci de votre aide.

 

[mth]

Re : Boucle MID

Bonsoir Atiom,

Je suis assez nunuche en VBA, donc en attendant mieux ... voici un essai en pj.

Ceci dit, tu aurais pu te fendre d'un bout de fichier au lieu de nous laisser partir de rien !😡

Bonne soirée,

mth

 

[job75]

Re : Boucle MID

Bonsoir Atiom, salut Mireille,

Une seule formule à entrer (sans boucle) dans la plage A3:E52 :

Sub Extraire()
Range("A3:E52").FormulaR1C1 = "=MID(R2C,ROW()-2,1)"
'Range("A3:E52") = Range("A3:E52").Value 'facultatif, si l'on veut supprimer les formules
End Sub

Etonnant Atiom que depuis 2006 vous en soyez encore aux Select 😕

A+

 

[Atiom]

Re : Boucle MID

Bonjour le forum

mth c’est vrais j’aurais pu joindre un bout de fichier, désolé.
C’est très sympa d’voir essayé, je crois que la proposition de Job75 correspond plus à la demande. Mais sincèrement merci beaucoup.🙂

Job75 merci beaucoup pour la réponse,🙂 c’est exactement ça. Je n’avais pas pensé à cette solution.
Je ne sais pas pourquoi mais j’été vraiment dirigé vers une boucle.

Mais comme tu peux le constater mon niveau de VBA n’est pas le meilleur.
Mais je faits des efforts.