Do Loop While / Jusqu'à un texte

Bonjour,

Je souhaiterai faire une boucle dans une macro avec comme arrêt de boucle un texte prédéfini mais dans une position variable.

Exemple :

Do 'Ma boucle commence

'Macro changement de valeur.

Loop While 'Fin de boucle sur le texte T008008

Mais mon T008008 peux avoir du texte après, j'ai essayé pas mal de méthodes et je n'arrive a rien.
Je mets un bout du programme en dessous.

N750 Z-7.70
N760 G00 X65.20
N770 G40 Z15

T008008 (D33 lame 1) (tronçonnage)
M451
N700 G97 G99 S849 F0.12
N710 G00 X68.20 M08

Je ne sait pas, si c'est bien clair :)

Merci

Bonjour,

Comme il n'y a aucune instruction concrète dans la boucle que vous indiquez, ce n'est pas facile de vous aider. Un exemple à adapter, de ce que j'ai compris :

Sub Test()

Dim Lig As Long, Arret As Boolean

With Sheets("NomFeuille")
    Do
        Lig = Lig + 1
        If .Range("A" & Lig) Like "*T008008*" Then Arret = True
        Call MacroChangeValeur
     Loop While Not Arret
End With

End With

Dim Lig As Long, Arret As Boolean

With Sheets("Programme")

Do

Lig = Lig + 1

If .Range("A" & Lig) Like "T008008" Then Arret = True

Cells.Find(What:="T0", After:=ActiveCell, LookIn:=xlFormulas, LookAt _

:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _

True, SearchFormat:=False).Activate

ActiveCell.Offset(1, 0).Select

Selection.Insert Shift:=xlDown

ActiveCell.Value = var4

ActiveCell.Offset(1, 0).Select

Selection.Insert Shift:=xlDown

ActiveCell.Value = var6

Loop While Not Arret

End With
End Sub

C'est vrai que j'ai mis peu d'info.

Je mets la macro au complet avec ce que tu as fait mais elle ne s'arrête pas au T008008 :(

BrunoB_69 a écrit :

Je mets la macro au complet avec ce que tu as fait mais elle ne s'arrête pas au T008008 :(

Tu as omis d'entourer ta référence avec des * comme je l'ai fait. Cela permet de faire une recherche partielle ("contient" T008008).

Par contre, le reste du code me semble à revoir, notamment car il est truffé de .Select et ActiveCell qui sont autant inutiles que source d'erreur. Peux tu expliquer en quelques mots l'objectif exact de ta macro ?