Selectionner une cellule en gras

[youki]

Bonjour, auriez vous une synthaxe simple pour selectionner cellule dans laquelle les éléments sont en gras.

PS: Je suis nouveau ici, j'apprécie la qualité des réponses et de l'aides. Cependant je tiens à dire que le système de temporisation des recherches ne motive pas à rechercher bien longtemps et pousse ainsi à poser des questions qui sans doute ont déjà été posé.

 

[Staple1600]

Re : Selectionner une cellule en gras

Bonjour

La macro ci-dessous sélectionne les celules ne gras de la zone en cours de la feuille active
(A insérer dans un module standard
(ALT+F11 -> Insertion->Module et y copier le code ci-desssous)

Sub select_cellule_gras()
[COLOR=Green]'adapté de: macro originale: SelectByValue
'auteur: Jacob Hilderbrand[/COLOR]
Dim Plg As Range
Dim Plg_OK As Range
Dim Cell As Object
Set Plg = ActiveSheet.UsedRange
For Each Cell In Plg
    If Cell.Font.Bold = True Then
        If Plg_OK Is Nothing Then
            Set Plg_OK = Range(Cell.Address)
        Else
            Set Plg_OK = Union(Plg_OK, Range(Cell.Address))
        End If
    End If
Next
Plg_OK.Select
End Sub

 

[jmd2]

Re : Selectionner une cellule en gras

hello

sans rien enlever aux mérites de Staple (salut à lui au passage), remarque qu'il n'est pas de bonne politique de stocker de l'information sous forme de mise en forme.

Il vaut mieux dès le départ créer une colonne (ou une ligne) qui contient un truc genre oui ou non ou 0 ou 1, qui indique ce que tu indiques actuellement par du gras.
Ensuite tu peux ajouter des MFC basées sur ces 0 et 1.
Et tous les traitements de l'information, comme la recherche que tu fais actuellement,sont hyper faciles (filtres, tris, extractions, couleurs...)

Mais ce n'est qu'un avis.

bon travail

 

[BOISGONTIER]

Re : Selectionner une cellule en gras

Bonjour,

Voir PJ

JB
Formation Excel VBA JB

 

[youki]

Re : Selectionner une cellule en gras

Merci beaucoup à vous pour les réponses (notamment Staple1600 pour son tuto d'un post précédent), du coup je ne sais pas laquelle est la plus adaptée 😛 pour mon cas. En faite je creer des lignes avec un useforme et je peux faire une somme de ces lignes (sous total) or je voudrais que les sous totaux suivant recommence leurs calculs à partir de la ligne mise en gras (les lignes sous total sont mises en gras).

Private Sub soustotal_Click()
'Définition de la première ligne.
Dim premiereLigne As Range
Set premiereLigne = Sheets("construction_devis").Range("A6")

Dim numeroDerniereLigne As Long
numeroDerniereLigne = Sheets("construction_devis").Range("A300").End(xlUp).Row

'Numero de départ =  a partir de là ou il faut faire la somme
Dim numeroDeDepart As Long
numeroDeDepart = premiereLigne.Row
'!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
'On cherche le numéro de départ
For i = 0 To (numeroDerniereLigne - numeroDeDepart)
premiereLigne.MergeCells = False
'une ligne de sous total n'a pas d'id(apparement c'est cette condition qui ne fonctionne pas)
If IsEmpty(premiereLigne) Then
numeroDeDepart = premiereLigne.Offset(0, i).Row
End If
Next i
' je fais la somme
'Les colonnes
For col = 2 To 10
'pour les lignes
For Line = 0 To (numeroDerniereLigne - numeroDeDepart)
Dim somme As Variant

Set valeur = premiereLigne.Offset(Line, col)
'Set essai = premiereLigne.Offset((numeroDerniereLigne - numeroDeDepart), col)

somme = somme + valeur.Value
Next Line
With premiereLigne.Offset(Line, col)
.Value = somme
End With
'modifier la presentation

With premiereLigne.Offset(Line, (col - 1)).Font
.FontStyle = "Gras"
End With
somme = 0
Next col
'ajout d'un titre de ligne
premiereLigne.Offset(Line, (col - 10)).Value = "Total partiel:"
End Sub

Actuelement mon premier sous total est nikel, mais les suivants somme l'ensemble des valeurs au dessu, je n'arrive pas à trouver mon erreur. Normalement il devrait commencer là ou je n'ai pas d'ID or il ne le fait pas.
Dans le desepoir je pensais changer de tactique en continuant nla meme technique mais en soustrayant aussi a chaque colonne la somme des cellule en gras de cette meme colonne... Je sais pas si c'est clair.

 

[jmd2]

Re : Selectionner une cellule en gras

re

je simplifie encore ma suggestion:
- mettre dans une case de la ligne de tes sous-totaux le texte STT
- formule = SOMME.SI(colonnedestextesSTT;"STT";colonnedesvaleursdessousstotaux)

mais, mais ? ? ? une somme de sous-totaux, c'est le total final de toutes les lignes, non ?

ou alors, ta base de données est plus compliquée que ça. Et là, vive VBA.
je passe la main. Staple et Boisgontier vont te tirer de là.