Selectionner toute les cellules excel Résolu/Fermé

Question

Bonjour, 

J'ai un projet où je dois mettre en gras toutes les cellules qui sont plus grande que 100.
J'y suis arriver en partie, mais en selectionnant les cellules.

Voilà mon code: 




Sub gras()
'
' gras Macro
'
With Selection.Font
    .Bold = True
    End With
    
'
End Sub

__________________________________________________
Sub gras_plus_grand()
'
' gras_plus_grand Macro
'
Dim c As Range
For Each c In Range("A1:I15")
c.Select

Select Case c
Case Is > 100
    Call gras
Case Is < 100
    Call non_gras
    End Select

    Next
    
'
End Sub
__________________________________________________
Sub non_gras()
'
' non_gras Macro
'
With Selection.Font
    .Bold = False
    End With
'
End Sub

.......................................

J'ai trouver "usedrange" mais ne sait comment l'utiliser.
Merci pour votre aide ! 

Configuration: Windows XP / Internet Explorer 8.0

Mike-31 · Answer

Salut,

Tu n'as pas besoin de VBA pour cela, avec une simple mise en forme conditionnelle suffit

mettre en surbrillance la plage à traiter exemple de A1 à F50, puis 
Format/Mise en forme conditionnelle/sélectionner la formule est et saisir 

=A1>100
Format/onglet Police/sélectionner gras

hooli · Answer

Hello, merci pour ton aide mais je suis obliger d'être en VBA pour mes cours professionel et l'examen vba qui suit.



Sais-tu comment changer mon code?

Merci

Mike-31 · Answer

Re,

Sub test()
    For x = 1 To 100                         'Concerne les lignes de 4 à 9
   If Cells(x, 1).Value > 100 Then    'Concerne la 4éme colonne
    Cells(x, 1).Font.Bold = True
    Else
    Cells(x, 1).Font.Bold = False
   End If
   Next x
End Sub

hooli · Answer

J'ai tester ce que tu m'a dit mais il me fait que la première colonne.

En gros, il doit réussir a trouver tous les chiffre plus grand que 100 sur n'importe quelle cellule dans l'entier d'excel... 

Dans le tiens, dès qu'il y a une case blanche dans la colone il s'arête.


Merci pour ton aide!

Mike-31 · Answer

Re,

Il faut vraiment te macher tout le boulot

Sub Macro1()
For i = 3 To 100 'de la ligne 3 à la ligne 100 à adapter
For j = 2 To 5 'de la colonne 2 à la colonne 5 à adapter
If Cells(i, j) > 100 Then
'Ici à titre d'exemple, je mets un commentaire: si la cellule (i,j)=1 alors
Cells(i, j).Font.Bold = True
Else
Cells(i, j).Font.Bold = False
End If
Next j
Next i
End Sub

hooli · Answer

Je ne t'ai pas obliger à m'aider hein ;-)

Merci, bonne journée.