Selectionner toute les cellules excel
Résolu
hooli
Messages postés
85
Date d'inscription
Statut
Membre
Dernière intervention
-
hooli Messages postés 85 Date d'inscription Statut Membre Dernière intervention -
hooli Messages postés 85 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 !
A voir également:
- Selectionner toute les cellules excel
- Formule excel pour additionner plusieurs cellules - Guide
- Liste déroulante excel - Guide
- Verrouiller cellules excel - Guide
- Word et excel gratuit - Guide
- Excel cellule couleur si condition texte - Guide
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
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
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
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
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