"Format personnalisé" à partir d'une cellule

Comme je l'ai évoqué, j'aimerai créer un format personnalisé de cellule (ici plage de cellule de B10 à B50 qui contiennent du numérique) sous excel mais en utilisant le contenu d'une cellule "mère" (dans mon cas, il s'agirait de B1 qui contient du texte). J'ai cherché et je suis arrivé à quelque chose de ce type:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Private Sub Worksheet_Change(ByVal Target As Range)   Dim x As String x = Cells.Range("B1").Text Set Target = Range("B10:B50") For Each cell In Target If Not IsEmpty(cell) And Not cell Like " & x & " Then cell.Value = cell.Value & " " & x   End If Next End Sub

---

Le problème est le suivant: la macro boucle et excel plante. Pour le reste, je ne suis pas sûr que ce que j'ai défini pour la fonction "like" soit pris en compte car il même si je rentre la valeur de B1 dans une cellule de la plage étudiée, le format s'applique aussi à celle-ci comme s'il ne reconnaissait pas la valeur de B1.
Merci d'avance de votre aide.

Code:

---

If Not IsEmpty(cell) And Not cell Like " & x & " Then

---

As-tu lu ce que fait la fonction IsEmpty? De plus, il y a des chances que VBA n'apprécie pas de comparer cell à " & x & ".

Donc, ta condition doit ressembler à ça:

Code:

---

If Not cell.Value="" And Not cell.Value Like " & x & " Then

---

De plus:

Code:

---

Set Target = Range("B10:B50")

---

Il faut que tu m'expliques pourquoi tu fais ça: l'argument Target n'est à la base pas fait pour être modifié, même si ce n'est pas interdit.

J'ai bien pris en compte ce que vous m'aviez dit et pour répondre à votre question: non je n'avais pas lu ce que faisait exactement la fonction IsEmpty mais maintenant je vois mieux mon erreur là-dessus.
Quant à cell.value avant like, je n'avais pas vu mais c'était évident (le boulet...).
Enfin j'ai modifié Target simplement pour éviter d'avoir à ajouter une ligne dans laquelle je redéfinissais une nouvelle variable (c'est con mais c'est juste pour ça).
Pour la macro elle-même, rien de mieux que ce que j'avais au départ en terme de résultats.
Je continue de chercher.

Citation:

---

Envoyé par sfab41

Enfin j'ai modifié Target simplement pour éviter d'avoir à ajouter une ligne dans laquelle je redéfinissais une nouvelle variable (c'est con mais c'est juste pour ça).

---

Je l'aurais parié. :D

Sinon je n'ai pas vérifié ce que tu avais mis après Like: je ne sais pas qu'est-ce que tu cherches à analyser.

Et bien je cherche simplement à éviter la boucle qui se produit avec ce code en obligeant excel à vérifier que les cellules de la plage B10:B50 ne contiennent pas déjà le texte de la cellule B1 auquel cas il ne copierait pas ce dernier.
Mon problème est qu'il ne prend pas cette manoeuvre en compte et qu'il copie x fois le texte du fait de l'utilisation de la fonction "worksheet_change") et fini par planter excel.
Le but est vraiment de créer un format de cellule personnalisé comme le permet excel mais en utilisant le contenu d'une cellule particulière (ce qu'excel ne permet pas par défaut).

J'ai réussi à résoudre le problème de la boucle mais je n'arrive toujours pas à dire au programme: "si la valeur de la cellule B1 est déjà présent dans la cellule, alors ne pas additionner le contenu de B1"
En revanche je peux lui dire par exemple: "si 1 est déjà présent dans la cellule, alors ne pas additionner le contenu de B1"
J'ai bien essayé de lui faire comprendre avec & (voir premier post) mais sans résultat. Comme je ne connais pas les propriétés de tous les symboles (du type & * [ ] / \ > < etc...) je suis bien incapable de savoir lequel choisir.
Quelqu'un pourrait-il m'aiguiller?

Je pense que tu ne regarde pas dans la bonne direction.
Je te suggère de regarder l'aide sur la fonction InStr(), qui te permet de faire une recherche d'une chaîne de caractères à l'intérieur d'une autre. ;)

C'est encore plus simple et ça marche sans aucun souci. Je me demande juste pourquoi je me suis pris la tête...
Merci beaucoup!