Selectionner toute les cellules excel
Résolu
hooli
Messages postés
77
Date d'inscription
Statut
Membre
Dernière intervention
-
hooli Messages postés 77 Date d'inscription Statut Membre Dernière intervention -
hooli Messages postés 77 Date d'inscription Statut Membre Dernière intervention -
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 -
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question -
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.
