Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
MichDenis
Bonjour Mireille,
Nom de la feuille et de la plage à déterminer !
'--------------------------------- Sub TEST()
Dim Rg As Range Set Rg = Feuil1.Range("A1:G36").SpecialCells(xlCellTypeConstants, 23) For Each C In Rg If C.Font.Bold = True Then C.ClearContents Next End Sub '---------------------------------
"mireille" a écrit dans le message de groupe de discussion : Bonjour,
J'ai un bout de macro qui m'efface les cellules d'un tableau. Je voudrais le modifier pour qu'il n'efface pas les cellules en gras. Comment faire ?
Je pense qu'il faut utiliser Find, mais je n'ai pas trouvé comment.
Merci pour votre aide Mireille
Bonjour Mireille,
Nom de la feuille et de la plage à déterminer !
'---------------------------------
Sub TEST()
Dim Rg As Range
Set Rg = Feuil1.Range("A1:G36").SpecialCells(xlCellTypeConstants, 23)
For Each C In Rg
If C.Font.Bold = True Then C.ClearContents
Next
End Sub
'---------------------------------
"mireille" <mireille@discussions.microsoft.com> a écrit dans le message de groupe de
discussion : 4CB6A3D2-108E-4167-A4B7-F7AA1C68DB6E@microsoft.com...
Bonjour,
J'ai un bout de macro qui m'efface les cellules d'un tableau.
Je voudrais le modifier pour qu'il n'efface pas les cellules en gras.
Comment faire ?
Je pense qu'il faut utiliser Find, mais je n'ai pas trouvé comment.
Dim Rg As Range Set Rg = Feuil1.Range("A1:G36").SpecialCells(xlCellTypeConstants, 23) For Each C In Rg If C.Font.Bold = True Then C.ClearContents Next End Sub '---------------------------------
"mireille" a écrit dans le message de groupe de discussion : Bonjour,
J'ai un bout de macro qui m'efface les cellules d'un tableau. Je voudrais le modifier pour qu'il n'efface pas les cellules en gras. Comment faire ?
Je pense qu'il faut utiliser Find, mais je n'ai pas trouvé comment.
Merci pour votre aide Mireille
mireille
Un grand merci ! Quand je vois le nombre de lignes de code qu'il vous faut. Pour la même chose, il m'en faut 3 fois plus ... Y'a encore du boulot !
"Daniel.C" a écrit :
Bonjour.
Sub EffacePasGras() Dim c As Range For Each c In ActiveSheet.UsedRange If c.Font.Bold = False Then c.ClearContents 'ou clear Next c End Sub
Cordialement. Daniel
> Bonjour, > > J'ai un bout de macro qui m'efface les cellules d'un tableau. > Je voudrais le modifier pour qu'il n'efface pas les cellules en gras. > Comment faire ? > > Je pense qu'il faut utiliser Find, mais je n'ai pas trouvé comment. > > Merci pour votre aide > Mireille
Un grand merci !
Quand je vois le nombre de lignes de code qu'il vous faut. Pour la même
chose, il m'en faut 3 fois plus ... Y'a encore du boulot !
"Daniel.C" a écrit :
Bonjour.
Sub EffacePasGras()
Dim c As Range
For Each c In ActiveSheet.UsedRange
If c.Font.Bold = False Then c.ClearContents 'ou clear
Next c
End Sub
Cordialement.
Daniel
> Bonjour,
>
> J'ai un bout de macro qui m'efface les cellules d'un tableau.
> Je voudrais le modifier pour qu'il n'efface pas les cellules en gras.
> Comment faire ?
>
> Je pense qu'il faut utiliser Find, mais je n'ai pas trouvé comment.
>
> Merci pour votre aide
> Mireille
Un grand merci ! Quand je vois le nombre de lignes de code qu'il vous faut. Pour la même chose, il m'en faut 3 fois plus ... Y'a encore du boulot !
"Daniel.C" a écrit :
Bonjour.
Sub EffacePasGras() Dim c As Range For Each c In ActiveSheet.UsedRange If c.Font.Bold = False Then c.ClearContents 'ou clear Next c End Sub
Cordialement. Daniel
> Bonjour, > > J'ai un bout de macro qui m'efface les cellules d'un tableau. > Je voudrais le modifier pour qu'il n'efface pas les cellules en gras. > Comment faire ? > > Je pense qu'il faut utiliser Find, mais je n'ai pas trouvé comment. > > Merci pour votre aide > Mireille