Format Cellule en fonction d'une valeur dans une autre cellule

Bonsoir

J'aimerai utiliser une macro qui pourrait me mettre un format dans une colonne
en fonction de la valeur [5120100] trouvé dans une colonne en amont

J'ai cherché sur le net mais je n'ai pas trouvé, le code qui me convient


Pourriez vous m'aider à écrire cette petite macro

je cherche la valeur [51210100] dans la colonne [A] pour mettre la cellule dans la colonne [N] au format

Code:

---

1 2 3 4 5 6 7 8

Sub format() Range("i3:i100").Select For Each cell In Selection Selection.NumberFormat = "0000000000000" Next cell End Sub

---

Merci d'avance de votre coup de main

Christian

Sans vba, il suffit d'utiliser une mise en forme conditionnelle.

Oui merci


Mais je voudrais lancer une macro qui le ferait

Bonsoir,

Ta demande est imprécise.

Tu veux mettre la valeur 51210100 d'une cellule de la colonne A dans quelle cellule de la colonne N et avec quel format ?

Cordialement,

j'ai 2
Colonne [A] est indiqué des numéros de comptes comptables
Colonne [I] est indiqué des références

Je voudrais que le format des références se trouvant dans la [I] soit sur 13 caractères lorsqu'ils correspondent au compte [51210100] se trouvant en [A]

Citation:

---

Envoyé par crissud

Selection.NumberFormat = "0000000000000"

---

Attention car si la colonne I contient des valeurs numériques, les 0 vont s'ajouter devant et non derrière.

Voilà ce que j'ai fait et qui semble fonctionner :

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub MEF() R = 1 While valeur <> 51210100 Range("I" & R).Select valeur = ActiveCell.Value R = R + 1 Wend ActiveCell.FormulaR1C1 = "5121010000000" Selection.NumberFormat = "0000000000000" End Sub

---

Oui merci

c'est le but

Alors, si les 0 doivent etre devant, il faut enlever le ActiveCell.FormulaR1C1 = "5121010000000" de la macro que j'ai postée.

Re....

Est-ce que ceci ne serait pas plus approprié que d'indiquer un format.
Si oui je pense que des connaisseurs trouveront à la simplifier.
A loger sur la feuille concernée.

Code:

---

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

Sub worksheet_change(ByVal target As Range) If Not Intersect(Columns("i:i"), target) Is Nothing Then If target.Offset(0, -8) = 51210100 Then Application.EnableEvents = False If Len(target.Value) < 13 Then MsgBox "13 caractères recquis" target.ClearContents End If Application.EnableEvents = True End If End If End Sub

---

Cordialement,

Citation:

---

Envoyé par crissud

Oui merci


Mais je voudrais lancer une macro qui le ferait

---

Il y a l'enregistreur de macro qui donne un début de réponse à peaufiner

ça donne:

Code:

---

1 2 3 4

Sub MFC()   Worksheets("Feuil2").Range("I:I").FormatConditions.Add(Type:=xlExpression, Formula1:="=$A1=51210100").NumberFormat = "0000000000000" End Sub

---

Bonsoir

J'ai adapté le code

Code:

---

1 2 3 4 5 6 7

Sub MFC()   Worksheets("Feuil1").Range("I1:I100").FormatConditions.Add(Type:=xlExpression, Formula1:="=et($A1=51210100)").NumberFormat = "0000000000000"     End Sub

---

Mais j'ai un problème bien que j'indique à partir de $A1 dans le code VBA cela ce transforme en un numéro de ligne et fausse mon renvoi de format

Je ne comprends pas ce qui se passe

Comment peut-on faire ?


Merci d'avance
Christian

Une question sans relation. Pourquoi le Et dans:
et($A1=51210100)

Bonsoir,

Pour moi le code proposé marche parfaitement.

Par contre, je ne comprends pas par quelle magie cette "sub MFC()" se comporte exactement comme une macro événementielle.
"MFC" ne semble pourtant pas être un nom réservé qui peut sans altération du résultat être remplacé par "machin".

C'est précisément cette ignorance qui m'avait conduit à proposer plus haut une événementielle plus ou moins bien ficelée, ne voyant pas d'autre possibilité de traiter la question.

Cordialement,

MFC c'est un nom quelconque.
La procédure permet de réaliser une mise en forme conditionnelle et qui peut être appliquée manuellement une seule fois comme indiqué dans la réponse #2

Je ne comprends pas alors l'intérêt du questionneur à vouloir impérativement entrer la condition avec une sub.
En effet, dès le premier passage elle écrira, selon ce que tu dis et ce que j'ai constaté, la condition dans le menu du tableur où elle restera à demeure exactement comme si elle avait été entrée manuellement dans celui-ci.

Je ne vois pas que la modification ultérieure de la condition s'en trouvera facilitée qui ne fera qu'ajouter la nouvelle à l'ancienne.

Enfin c'est son affaire ! J'ai quant à moi appris quelque chose: C'est vraisemblablement une sub inutile.

Cordialement,

Au départ, je ne pensais pas à Mise en forme conditionnelle mais à de codage VBA.

C'est mercatog qui a avancé l'idée, de le faire par la fonction au menu d'excel.
J'avais l'idée en tête, de lancer un macro à la fin de la saisie de mes références, mais au fil de vos commentaires je m'aperçois que je cherche à compliquer alors que la proposition de mercatog d'utiliser la fonction de MFC est plus simple et aboutit au résultat souhaité.

je testerai ce soir

Merci de vos commentaires qui m'ont permis d'avancer

Christian