XL 2016 Macro pour identifier un texte dans un tableau et appliquer une modification sur une cellule sur la même ligne

bnolwalid · 20 Décembre 2023

Bonjour,
Je souhaite créer une macro qui, à partir d'un tableau, fait un test sur une colonne pour identifier la première cellule "Non" en partant d'en bas de la colonne et applique une modification du texte sur une autre cellule se trouvant sur la même ligne.

exemple : voir tableau joint--> Feuil1 les données/ feuil2 le résultat surligné en vert

en fait, j'ai commencé un bout de code mais je n'arrive pas à arrêter la boucle au premier test:

sur la colonne ciblé, j'applique :

For n = 10000 To 3 Step -1
If Cells(n, 1) = "Non" Then Cells(n, 1).Value = Split(Cells(n, 1).Value, "B")
Next n

ça marche mais sur toute la colonne alors que je souhaite que la modif s'applique une seule fois et s'arrête au premier Non.

Merci d'avance pour votre aide

ChTi160 · 20 Décembre 2023

Bonjour*pas sur d'avoir compris mais peut être une réponse
Tu mets un Exit for dèsque tu trouves !

VB:

For n = 10000 To 3 Step -1
If Cells(n, 1) = "Non" Then Cells(n, 1).Value = Split(Cells(n, 1).Value, "B"):Exit For
Next n

je ne comprends pas la Logique de :

Code:

Cells(n, 1) = "Non" Then Cells(n, 1).Value = Split(Cells(n, 1).Value, "B")
'ce que je comprends la cellule de la colonne 1 contient "Non" rien d'autre apparemment et tu Split(son contenu, sur un "B")??????

Peux-tu expliquer , mettre un exemple de ce que tu as et ce que tu veux ?
Jean marie

bnolwalid · 20 Décembre 2023

Bonjour Jean Marie,
Merci de ton retour.
C'est vrai, ce n'est pas clair.
Mais en gros, je cherche à identifier le premier "Non" en partant du bas sur la colonne D, une fois identifier, je modifie la cellule de colonne B se trouvant sur la même ligne en supprimant la dernière la lettre (A).
Exp dans le fichier Excel en PJ de mon premier msg.

Sinon, comment mettre en place un Exit for des qu'il trouve le premier "Non" en partant du bas ?
je ne connais pas ce code.

A+

ChTi160 · 20 Décembre 2023

re
Ok je t'ai mis ceux ci :

VB:

For n = 10000 To 3 Step -1
If Cells(n, 4) = "Non" Then Cells(n, 1).Value = Left(Cells(n, 1).Value, Len(Cells(n, 1)) - 1): Exit For
Next

à tester
Jean marie

bnolwalid · 20 Décembre 2023

merci pour le support.
c'est la commande Exit For qui me manquait.
Bonne soirée

ChTi160 · 20 Décembre 2023

Re
Ok ensuite utiliser un Split pour enlever une lettre ! Mais je ne connais pas la finalité Lol
N'hésite pas si besoin !
Bonne continuation
Jean marie

XL 2016 Macro pour identifier un texte dans un tableau et appliquer une modification sur une cellule sur la même ligne

bnolwalid

XLDnaute Junior

Pièces jointes

ChTi160

XLDnaute Barbatruc

bnolwalid

XLDnaute Junior

ChTi160

XLDnaute Barbatruc

bnolwalid

XLDnaute Junior

ChTi160

XLDnaute Barbatruc

Discussions similaires