Selectionner toute les cellules excel
Résolu
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 !
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
-
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
-
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
-
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 -
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 -
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! -
Je ne t'ai pas obliger à m'aider hein ;-)
Merci, bonne journée.
