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]

[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

[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,