Discussion :

[crissud]

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 :

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

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

[mercatog]

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

[crissud]

Oui merci


Mais je voudrais lancer une macro qui le ferait

[nibledispo]

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,

[crissud]

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]

[patrice084]

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 :

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

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

[crissud]

Oui merci

c'est le but

[patrice084]

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

[nibledispo]

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 :

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

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,

[mercatog]

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 :

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

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

[crissud]

Bonsoir

J'ai adapté le code

Code :

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

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

[mercatog]

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

[nibledispo]

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,

[mercatog]

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

[nibledispo]

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,

[crissud]

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