Selectionner toute les cellules excel

Résolu/Fermé
hooli Messages postés 85 Date d'inscription jeudi 10 septembre 2009 Statut Membre Dernière intervention 1 décembre 2011 - 2 juin 2010 à 14:32
hooli Messages postés 85 Date d'inscription jeudi 10 septembre 2009 Statut Membre Dernière intervention 1 décembre 2011 - 3 juin 2010 à 07:26
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 !

6 réponses

Mike-31 Messages postés 18048 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 19 septembre 2022 4 993
2 juin 2010 à 17:02
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
1
Mike-31 Messages postés 18048 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 19 septembre 2022 4 993
2 juin 2010 à 15:14
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
0
hooli Messages postés 85 Date d'inscription jeudi 10 septembre 2009 Statut Membre Dernière intervention 1 décembre 2011 7
2 juin 2010 à 15:21
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
0
Mike-31 Messages postés 18048 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 19 septembre 2022 4 993
2 juin 2010 à 15:49
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
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
hooli Messages postés 85 Date d'inscription jeudi 10 septembre 2009 Statut Membre Dernière intervention 1 décembre 2011 7
2 juin 2010 à 16:02
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!
0
hooli Messages postés 85 Date d'inscription jeudi 10 septembre 2009 Statut Membre Dernière intervention 1 décembre 2011 7
3 juin 2010 à 07:26
Je ne t'ai pas obliger à m'aider hein ;-)

Merci, bonne journée.
0