action fonction nbre fois une valeur

ricoharpe · 2 Novembre 2015

bonjour
je cherche a changer la taille d’écriture (ca c'est bon) en fonction du nbre de fois qu'apparait une valeur, a la suite seulement.Le plus simple c'est quand meme le fichier car je suis pas tres doué en explications
merci beaucoup pour votre aide qui m'est d'un grands secours

youky(BJ) · 2 Novembre 2015

Re : action fonction nbre fois une valeur

Salut ricoharpe,
Voici une petite macro qui en principe doit convenir
Bruno

Code:

Sub taille()
For k = 4 To 109 Step 3
c = Cells(k, 8)
deb = 8
For j = 8 To 34
If Cells(k, j) = c Then
n = n + 1
Else
If n < 3 Then Cells(k, deb).Font.Size = 8
If n = 3 Or n = 4 Then Cells(k, deb).Font.Size = 10
If n = 5 Or n = 6 Then Cells(k, deb).Font.Size = 12
If n > 6 Then Cells(k, deb).Font.Size = 14
n = 0: deb = j
c = Cells(k, deb)
End If
Next
Next
End Sub

Dans le code j'ai mis 34 au lieu de 33 pour aller dans le vide(pour que la valeur soit différente)

ricoharpe · 2 Novembre 2015

Re : action fonction nbre fois une valeur

bonjour
super !
merci, en premier essai rapide ca marche super
je suis étonné que la macro soit si petite .
merci beaucoup, ca va faire gagner pas mal de temps a mes collegues !

youky(BJ) · 3 Novembre 2015

Re : action fonction nbre fois une valeur

Re:
Petite erreur dans la macro

remplacer le 0 par 1 à la ligne
n = 0: deb = j
comme ceci
n = 1: deb = j

Bruno

action fonction nbre fois une valeur

ricoharpe

Guest

Pièces jointes

youky(BJ)

XLDnaute Barbatruc

ricoharpe

Guest

youky(BJ)

XLDnaute Barbatruc

Discussions similaires

action fonction nbre fois une valeur

ricoharpe

Guest

Pièces jointes

youky(BJ)

XLDnaute Barbatruc

ricoharpe

Guest

youky(BJ)

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency