Tant que la valeur de la cellule active = "texte" Résolu

Question

Bonjour,

Je cherche à réaliser une action tant que la valeur de la Cellule Active est égale au texte "</Placemark>"

Avec ce code cela ne fonctionne pas.

While ActiveCell.Text = "</Placemark>"
action à réaliser
Wend

Si quelqu'un peut m'aider je vous en remercie d'avance.

jordane45 · Answer

Bonjour,

1 - La cellule ne contient QUE "</Placemark>" ou il y autre chose autour ?
2 - Tu déclenches ta macro comment ?
3 - Tu l'as mise où ? dans une sub ??

NB : Pour poster du code sur le forum.. merci d'utiliser la coloration syntaxique (les balises de code).
Explications disponibles ici : https://codes-sources.commentcamarche.net/faq/10686-le-nouveau-codes-sources-comment-ca-marche#balises-code

varin · Answer

Bonjour,

1 - La cellule ne contient QUE "</Placemark>" ou il y autre chose autour ?
Il n'y a que </Placemark>

2 - Tu déclenches ta macro comment ?
Par la touche F8

3 - Tu l'as mise où ? dans une sub ??
Elle est dans une Sub

Merci

jordane45 · Answer

Dans ce cas... ça devrait fonctionner....
Quand tu dis que ça ne marche pas.. c'est à dire??

N'aurais tu pas oublié un DoEvents ?

Tu peux essayer ceci et nous dire ce que ça donne ?

Sub test()
Dim i As Integer
i = 1
While ActiveCell.Text = "</Placemark>"
 Debug.Print " ok : " & i
 i = i + 1
 DoEvents
Wend


End Sub

Par contre ... attention ... ça risque de faire une boucle sans fin...

varin · Answer

Après vérification la cellule contient puis des espaces (la valeur provient d'un autre programme). Il me faudrait transformer While ActiveCell.Text = "" EDIT : Ajout du LANGAGE dans les balises de code (la coloration syntaxique). Explications disponibles ici :ICI Merci d'y penser dans tes prochains messages. Jordane45 non plus avec la valeur exacte mais tant que la valeur "" est contenue dans la cellule Active. --------- Merci

Varinb · Answer

Bonjour,

Grand merci, la deuxième ligne de code est parfaite.

Par contre pour l'utilisation de la coloration syntaxique (les balises de code), je n'y parviens pas. Comment Indenté ?

Ex :

While Trim(ActiveCell.Text) Like "*</Placemark>*"

Varin · Answer

While ActiveCell.Text = ""

Varin · Answer

While ActiveCell.Text = ""

Varin · Answer

Sub Essai() While ActiveCell.Text = "" Wend End Sub

Varin · Answer

Comment noter en "résolue" cette question ?

Tant que la valeur de la cellule active = "texte"

9 réponses

Explications disponibles ici :ICI

Discussions similaires

Newsletters