Discussion :

[sfab41]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[decondelite]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

De plus:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[sfab41]

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.

[decondelite]

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é.

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.

[sfab41]

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).

[sfab41]

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?