Nettoyage et simplification de macros

cousinhub

03/09/2007 à 12:01

Bonjour Rex,
essaie :

With Selection
.ClearContents
.Interior.ColorIndex = xlNone
.Borders.LineStyle = xlNone
End With

Bonjour à toutes et tous

Ci-dessous deux petits bouts de macro que je suis persuadé qu'il y a moyen
de réduire

Ce sont des bouts d'une macro enregistrée

Pour la deuxième j'ai essayé
Selection.ClearContents
Selection.Interior.ColorIndex = xlNone
Selection.Borders(xlDiagonalDown).(xlDiagonalUp).(xlEdgeLeft).(xlEdgeTop).(xlEdgeBottom).(xlEdgeRight).(xlInsideVertical).(xlInsideHorizontal).LineStyle
= xlNone

Le tout sur une ligne sans succès

D'avance un grand merci et à très bientôt

Rex ;-))) )))

xxxxxxxxxxxxxxxxxxxxxxxxxxx
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:úlse, Transpose:úlse
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:úlse, Transpose:úlse
Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
SkipBlanks:úlse, Transpose:úlse
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:=
_
xlNone, SkipBlanks:úlse, Transpose:úlse
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Selection.ClearContents
Selection.Interior.ColorIndex = xlNone
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

rthompson

03/09/2007 à 12:23

Bonjour mon cher "Solitaire"

J'ai l'impression que la rentrée fait des dégats dans ce groupe, non?

Faudra leur laisser un peu de temps pour se remettre ;-)))

Et merci à toi pour la réponse
Elle fonctionne

Et pour le collage, y a-t-il moyen de raccourcir ou pas?

Elle fonctionne comme cela, mais cela ne fait pas très "Propre sur soi"
Et pour un gars qui s'appelle Rexona, c'est pas sérieux ;-)))

A bientôt

Rex ;-))) )))

"cousinhub" a écrit dans le message de news:
%

Bonjour Rex,
essaie :

With Selection
.ClearContents
.Interior.ColorIndex = xlNone
.Borders.LineStyle = xlNone
End With

Bonjour à toutes et tous

Ci-dessous deux petits bouts de macro que je suis persuadé qu'il y a
moyen de réduire

Ce sont des bouts d'une macro enregistrée

Pour la deuxième j'ai essayé
Selection.ClearContents
Selection.Interior.ColorIndex = xlNone

Selection.Borders(xlDiagonalDown).(xlDiagonalUp).(xlEdgeLeft).(xlEdgeTop).(xlEdgeBottom).(xlEdgeRight).(xlInsideVertical).(xlInsideHorizontal).LineStyle
= xlNone

Le tout sur une ligne sans succès

D'avance un grand merci et à très bientôt

Rex ;-))) )))

xxxxxxxxxxxxxxxxxxxxxxxxxxx
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:úlse, Transpose:úlse
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:úlse, Transpose:úlse
Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone,
_
SkipBlanks:úlse, Transpose:úlse
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats,
Operation:= _
xlNone, SkipBlanks:úlse, Transpose:úlse
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Selection.ClearContents
Selection.Interior.ColorIndex = xlNone
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

Bonjour mon cher "Solitaire"

J'ai l'impression que la rentrée fait des dégats dans ce groupe, non?

Faudra leur laisser un peu de temps pour se remettre ;-)))

Et merci à toi pour la réponse
Elle fonctionne

Et pour le collage, y a-t-il moyen de raccourcir ou pas?

Elle fonctionne comme cela, mais cela ne fait pas très "Propre sur soi"
Et pour un gars qui s'appelle Rexona, c'est pas sérieux ;-)))

A bientôt

Rex ;-))) )))

"cousinhub" <pmcsnhb_nospam@aol.com> a écrit dans le message de news:
%237YfxFh7HHA.2476@TK2MSFTNGP05.phx.gbl...

Bonjour Rex,
essaie :

With Selection
.ClearContents
.Interior.ColorIndex = xlNone
.Borders.LineStyle = xlNone
End With

Bonjour à toutes et tous

Ci-dessous deux petits bouts de macro que je suis persuadé qu'il y a
moyen de réduire

Ce sont des bouts d'une macro enregistrée

Pour la deuxième j'ai essayé
Selection.ClearContents
Selection.Interior.ColorIndex = xlNone

Selection.Borders(xlDiagonalDown).(xlDiagonalUp).(xlEdgeLeft).(xlEdgeTop).(xlEdgeBottom).(xlEdgeRight).(xlInsideVertical).(xlInsideHorizontal).LineStyle
= xlNone

Le tout sur une ligne sans succès

D'avance un grand merci et à très bientôt

Rex ;-))) )))

xxxxxxxxxxxxxxxxxxxxxxxxxxx
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:úlse, Transpose:úlse
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:úlse, Transpose:úlse
Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone,
_
SkipBlanks:úlse, Transpose:úlse
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats,
Operation:= _
xlNone, SkipBlanks:úlse, Transpose:úlse
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Selection.ClearContents
Selection.Interior.ColorIndex = xlNone
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

Vous avez filtré cet utilisateur ! Consultez son message

Bonjour mon cher "Solitaire"

J'ai l'impression que la rentrée fait des dégats dans ce groupe, non?

Faudra leur laisser un peu de temps pour se remettre ;-)))

Et merci à toi pour la réponse
Elle fonctionne

Et pour le collage, y a-t-il moyen de raccourcir ou pas?

Elle fonctionne comme cela, mais cela ne fait pas très "Propre sur soi"
Et pour un gars qui s'appelle Rexona, c'est pas sérieux ;-)))

A bientôt

Rex ;-))) )))

"cousinhub" a écrit dans le message de news:
%

Bonjour Rex,
essaie :

With Selection
.ClearContents
.Interior.ColorIndex = xlNone
.Borders.LineStyle = xlNone
End With

Bonjour à toutes et tous

Ci-dessous deux petits bouts de macro que je suis persuadé qu'il y a
moyen de réduire

Ce sont des bouts d'une macro enregistrée

Pour la deuxième j'ai essayé
Selection.ClearContents
Selection.Interior.ColorIndex = xlNone

Selection.Borders(xlDiagonalDown).(xlDiagonalUp).(xlEdgeLeft).(xlEdgeTop).(xlEdgeBottom).(xlEdgeRight).(xlInsideVertical).(xlInsideHorizontal).LineStyle
= xlNone

Le tout sur une ligne sans succès

D'avance un grand merci et à très bientôt

Rex ;-))) )))

xxxxxxxxxxxxxxxxxxxxxxxxxxx
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:úlse, Transpose:úlse
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:úlse, Transpose:úlse
Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone,
_
SkipBlanks:úlse, Transpose:úlse
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats,
Operation:= _
xlNone, SkipBlanks:úlse, Transpose:úlse
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Selection.ClearContents
Selection.Interior.ColorIndex = xlNone
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

rthompson

03/09/2007 à 12:33

Re-bonjour

Une petite question supplémzntaire

Y a-t-il moyen de traiter plusieurs sélection en même temps

Par exemple dans le cas suivant
Ne pourrait-on pas ajouter les ranges A2 et A10 et B25:F25 sur une seule
ligne?

C'est juste une idée pour raccoucri mon code

A bientôt

Rex :-))) )))

xxxxxxxxxxxxxxxxxxxx
Range("A10").Select
With Selection
.ClearContents
.Interior.ColorIndex = xlNone
.Borders.LineStyle = xlNone
End With
Range("A2").Select
With Selection
.ClearContents
.Interior.ColorIndex = xlNone
.Borders.LineStyle = xlNone
End With
Range("B25:F25").Select
With Selection
.ClearContents
.Interior.ColorIndex = xlNone
.Borders.LineStyle = xlNone
End With
xxxxxxxxxxxxxxxxxxxxxxxxxxx

"cousinhub" a écrit dans le message de news:
%

Bonjour Rex,
essaie :

With Selection
.ClearContents
.Interior.ColorIndex = xlNone
.Borders.LineStyle = xlNone
End With

Bonjour à toutes et tous

Ci-dessous deux petits bouts de macro que je suis persuadé qu'il y a
moyen de réduire

Ce sont des bouts d'une macro enregistrée

Pour la deuxième j'ai essayé
Selection.ClearContents
Selection.Interior.ColorIndex = xlNone

Selection.Borders(xlDiagonalDown).(xlDiagonalUp).(xlEdgeLeft).(xlEdgeTop).(xlEdgeBottom).(xlEdgeRight).(xlInsideVertical).(xlInsideHorizontal).LineStyle
= xlNone

Le tout sur une ligne sans succès

D'avance un grand merci et à très bientôt

Rex ;-))) )))

xxxxxxxxxxxxxxxxxxxxxxxxxxx
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:úlse, Transpose:úlse
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:úlse, Transpose:úlse
Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone,
_
SkipBlanks:úlse, Transpose:úlse
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats,
Operation:= _
xlNone, SkipBlanks:úlse, Transpose:úlse
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Selection.ClearContents
Selection.Interior.ColorIndex = xlNone
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

Re-bonjour

Une petite question supplémzntaire

Y a-t-il moyen de traiter plusieurs sélection en même temps

Par exemple dans le cas suivant
Ne pourrait-on pas ajouter les ranges A2 et A10 et B25:F25 sur une seule
ligne?

C'est juste une idée pour raccoucri mon code

A bientôt

Rex :-))) )))

xxxxxxxxxxxxxxxxxxxx
Range("A10").Select
With Selection
.ClearContents
.Interior.ColorIndex = xlNone
.Borders.LineStyle = xlNone
End With
Range("A2").Select
With Selection
.ClearContents
.Interior.ColorIndex = xlNone
.Borders.LineStyle = xlNone
End With
Range("B25:F25").Select
With Selection
.ClearContents
.Interior.ColorIndex = xlNone
.Borders.LineStyle = xlNone
End With
xxxxxxxxxxxxxxxxxxxxxxxxxxx

"cousinhub" <pmcsnhb_nospam@aol.com> a écrit dans le message de news:
%237YfxFh7HHA.2476@TK2MSFTNGP05.phx.gbl...

Bonjour Rex,
essaie :

With Selection
.ClearContents
.Interior.ColorIndex = xlNone
.Borders.LineStyle = xlNone
End With

Bonjour à toutes et tous

Ci-dessous deux petits bouts de macro que je suis persuadé qu'il y a
moyen de réduire

Ce sont des bouts d'une macro enregistrée

Pour la deuxième j'ai essayé
Selection.ClearContents
Selection.Interior.ColorIndex = xlNone

Selection.Borders(xlDiagonalDown).(xlDiagonalUp).(xlEdgeLeft).(xlEdgeTop).(xlEdgeBottom).(xlEdgeRight).(xlInsideVertical).(xlInsideHorizontal).LineStyle
= xlNone

Le tout sur une ligne sans succès

D'avance un grand merci et à très bientôt

Rex ;-))) )))

xxxxxxxxxxxxxxxxxxxxxxxxxxx
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:úlse, Transpose:úlse
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:úlse, Transpose:úlse
Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone,
_
SkipBlanks:úlse, Transpose:úlse
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats,
Operation:= _
xlNone, SkipBlanks:úlse, Transpose:úlse
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Selection.ClearContents
Selection.Interior.ColorIndex = xlNone
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

Vous avez filtré cet utilisateur ! Consultez son message

Re-bonjour

Une petite question supplémzntaire

Y a-t-il moyen de traiter plusieurs sélection en même temps

Par exemple dans le cas suivant
Ne pourrait-on pas ajouter les ranges A2 et A10 et B25:F25 sur une seule
ligne?

C'est juste une idée pour raccoucri mon code

A bientôt

Rex :-))) )))

xxxxxxxxxxxxxxxxxxxx
Range("A10").Select
With Selection
.ClearContents
.Interior.ColorIndex = xlNone
.Borders.LineStyle = xlNone
End With
Range("A2").Select
With Selection
.ClearContents
.Interior.ColorIndex = xlNone
.Borders.LineStyle = xlNone
End With
Range("B25:F25").Select
With Selection
.ClearContents
.Interior.ColorIndex = xlNone
.Borders.LineStyle = xlNone
End With
xxxxxxxxxxxxxxxxxxxxxxxxxxx

"cousinhub" a écrit dans le message de news:
%

Bonjour Rex,
essaie :

With Selection
.ClearContents
.Interior.ColorIndex = xlNone
.Borders.LineStyle = xlNone
End With

Bonjour à toutes et tous

Ci-dessous deux petits bouts de macro que je suis persuadé qu'il y a
moyen de réduire

Ce sont des bouts d'une macro enregistrée

Pour la deuxième j'ai essayé
Selection.ClearContents
Selection.Interior.ColorIndex = xlNone

Selection.Borders(xlDiagonalDown).(xlDiagonalUp).(xlEdgeLeft).(xlEdgeTop).(xlEdgeBottom).(xlEdgeRight).(xlInsideVertical).(xlInsideHorizontal).LineStyle
= xlNone

Le tout sur une ligne sans succès

D'avance un grand merci et à très bientôt

Rex ;-))) )))

xxxxxxxxxxxxxxxxxxxxxxxxxxx
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:úlse, Transpose:úlse
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:úlse, Transpose:úlse
Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone,
_
SkipBlanks:úlse, Transpose:úlse
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats,
Operation:= _
xlNone, SkipBlanks:úlse, Transpose:úlse
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Selection.ClearContents
Selection.Interior.ColorIndex = xlNone
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

cousinhub

03/09/2007 à 12:50

Re-,
essaie :

Sub Macro2()
Dim plg As Range
Set plg = Union(Range("A10"), Range("A2"), Range("B25:F25"))
With plg
.ClearContents
.Interior.ColorIndex = xlNone
.Borders.LineStyle = xlNone
End With
End Sub

Re-bonjour

Une petite question supplémzntaire

Y a-t-il moyen de traiter plusieurs sélection en même temps

Par exemple dans le cas suivant
Ne pourrait-on pas ajouter les ranges A2 et A10 et B25:F25 sur une seule
ligne?

C'est juste une idée pour raccoucri mon code

A bientôt

Rex :-))) )))

xxxxxxxxxxxxxxxxxxxx
Range("A10").Select
With Selection
.ClearContents
.Interior.ColorIndex = xlNone
.Borders.LineStyle = xlNone
End With
Range("A2").Select
With Selection
.ClearContents
.Interior.ColorIndex = xlNone
.Borders.LineStyle = xlNone
End With
Range("B25:F25").Select
With Selection
.ClearContents
.Interior.ColorIndex = xlNone
.Borders.LineStyle = xlNone
End With
xxxxxxxxxxxxxxxxxxxxxxxxxxx

"cousinhub" a écrit dans le message de news:
%
Bonjour Rex,
essaie :

With Selection
.ClearContents
.Interior.ColorIndex = xlNone
.Borders.LineStyle = xlNone
End With

Bonjour à toutes et tous

Ci-dessous deux petits bouts de macro que je suis persuadé qu'il y a
moyen de réduire

Ce sont des bouts d'une macro enregistrée

Pour la deuxième j'ai essayé
Selection.ClearContents
Selection.Interior.ColorIndex = xlNone

Selection.Borders(xlDiagonalDown).(xlDiagonalUp).(xlEdgeLeft).(xlEdgeTop).(xlEdgeBottom).(xlEdgeRight).(xlInsideVertical).(xlInsideHorizontal).LineStyle
= xlNone

Le tout sur une ligne sans succès

D'avance un grand merci et à très bientôt

Rex ;-))) )))

xxxxxxxxxxxxxxxxxxxxxxxxxxx
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:úlse, Transpose:úlse
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:úlse, Transpose:úlse
Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone,
_
SkipBlanks:úlse, Transpose:úlse
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats,
Operation:= _
xlNone, SkipBlanks:úlse, Transpose:úlse
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Selection.ClearContents
Selection.Interior.ColorIndex = xlNone
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

Re-,
essaie :

Sub Macro2()
Dim plg As Range
Set plg = Union(Range("A10"), Range("A2"), Range("B25:F25"))
With plg
.ClearContents
.Interior.ColorIndex = xlNone
.Borders.LineStyle = xlNone
End With
End Sub

Re-bonjour

Une petite question supplémzntaire

Y a-t-il moyen de traiter plusieurs sélection en même temps

Par exemple dans le cas suivant
Ne pourrait-on pas ajouter les ranges A2 et A10 et B25:F25 sur une seule
ligne?

C'est juste une idée pour raccoucri mon code

A bientôt

Rex :-))) )))

xxxxxxxxxxxxxxxxxxxx
Range("A10").Select
With Selection
.ClearContents
.Interior.ColorIndex = xlNone
.Borders.LineStyle = xlNone
End With
Range("A2").Select
With Selection
.ClearContents
.Interior.ColorIndex = xlNone
.Borders.LineStyle = xlNone
End With
Range("B25:F25").Select
With Selection
.ClearContents
.Interior.ColorIndex = xlNone
.Borders.LineStyle = xlNone
End With
xxxxxxxxxxxxxxxxxxxxxxxxxxx

"cousinhub" <pmcsnhb_nospam@aol.com> a écrit dans le message de news:
%237YfxFh7HHA.2476@TK2MSFTNGP05.phx.gbl...

Bonjour Rex,
essaie :

With Selection
.ClearContents
.Interior.ColorIndex = xlNone
.Borders.LineStyle = xlNone
End With

Bonjour à toutes et tous

Ci-dessous deux petits bouts de macro que je suis persuadé qu'il y a
moyen de réduire

Ce sont des bouts d'une macro enregistrée

Pour la deuxième j'ai essayé
Selection.ClearContents
Selection.Interior.ColorIndex = xlNone

Selection.Borders(xlDiagonalDown).(xlDiagonalUp).(xlEdgeLeft).(xlEdgeTop).(xlEdgeBottom).(xlEdgeRight).(xlInsideVertical).(xlInsideHorizontal).LineStyle
= xlNone

Le tout sur une ligne sans succès

D'avance un grand merci et à très bientôt

Rex ;-))) )))

xxxxxxxxxxxxxxxxxxxxxxxxxxx
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:úlse, Transpose:úlse
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:úlse, Transpose:úlse
Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone,
_
SkipBlanks:úlse, Transpose:úlse
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats,
Operation:= _
xlNone, SkipBlanks:úlse, Transpose:úlse
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Selection.ClearContents
Selection.Interior.ColorIndex = xlNone
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

Vous avez filtré cet utilisateur ! Consultez son message

Re-,
essaie :

Sub Macro2()
Dim plg As Range
Set plg = Union(Range("A10"), Range("A2"), Range("B25:F25"))
With plg
.ClearContents
.Interior.ColorIndex = xlNone
.Borders.LineStyle = xlNone
End With
End Sub

Re-bonjour

Une petite question supplémzntaire

Y a-t-il moyen de traiter plusieurs sélection en même temps

Par exemple dans le cas suivant
Ne pourrait-on pas ajouter les ranges A2 et A10 et B25:F25 sur une seule
ligne?

C'est juste une idée pour raccoucri mon code

A bientôt

Rex :-))) )))

xxxxxxxxxxxxxxxxxxxx
Range("A10").Select
With Selection
.ClearContents
.Interior.ColorIndex = xlNone
.Borders.LineStyle = xlNone
End With
Range("A2").Select
With Selection
.ClearContents
.Interior.ColorIndex = xlNone
.Borders.LineStyle = xlNone
End With
Range("B25:F25").Select
With Selection
.ClearContents
.Interior.ColorIndex = xlNone
.Borders.LineStyle = xlNone
End With
xxxxxxxxxxxxxxxxxxxxxxxxxxx

"cousinhub" a écrit dans le message de news:
%
Bonjour Rex,
essaie :

With Selection
.ClearContents
.Interior.ColorIndex = xlNone
.Borders.LineStyle = xlNone
End With

Bonjour à toutes et tous

Ci-dessous deux petits bouts de macro que je suis persuadé qu'il y a
moyen de réduire

Ce sont des bouts d'une macro enregistrée

Pour la deuxième j'ai essayé
Selection.ClearContents
Selection.Interior.ColorIndex = xlNone

Selection.Borders(xlDiagonalDown).(xlDiagonalUp).(xlEdgeLeft).(xlEdgeTop).(xlEdgeBottom).(xlEdgeRight).(xlInsideVertical).(xlInsideHorizontal).LineStyle
= xlNone

Le tout sur une ligne sans succès

D'avance un grand merci et à très bientôt

Rex ;-))) )))

xxxxxxxxxxxxxxxxxxxxxxxxxxx
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:úlse, Transpose:úlse
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:úlse, Transpose:úlse
Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone,
_
SkipBlanks:úlse, Transpose:úlse
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats,
Operation:= _
xlNone, SkipBlanks:úlse, Transpose:úlse
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Selection.ClearContents
Selection.Interior.ColorIndex = xlNone
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

cousinhub

03/09/2007 à 12:57

re-,

je pense que ceci devrait faire l'affaire :

With Selection
.PasteSpecial Paste:=xlPasteValuesAndNumberFormats
.PasteSpecial Paste:=xlPasteFormats
.PasteSpecial Paste:=xlPasteColumnWidths
End With

Bonjour mon cher "Solitaire"

J'ai l'impression que la rentrée fait des dégats dans ce groupe, non?

Faudra leur laisser un peu de temps pour se remettre ;-)))

Et merci à toi pour la réponse
Elle fonctionne

Et pour le collage, y a-t-il moyen de raccourcir ou pas?

Elle fonctionne comme cela, mais cela ne fait pas très "Propre sur soi"
Et pour un gars qui s'appelle Rexona, c'est pas sérieux ;-)))

A bientôt

Rex ;-))) )))

"cousinhub" a écrit dans le message de news:
%
Bonjour Rex,
essaie :

With Selection
.ClearContents
.Interior.ColorIndex = xlNone
.Borders.LineStyle = xlNone
End With

Bonjour à toutes et tous

Ci-dessous deux petits bouts de macro que je suis persuadé qu'il y a
moyen de réduire

Ce sont des bouts d'une macro enregistrée

Pour la deuxième j'ai essayé
Selection.ClearContents
Selection.Interior.ColorIndex = xlNone

Selection.Borders(xlDiagonalDown).(xlDiagonalUp).(xlEdgeLeft).(xlEdgeTop).(xlEdgeBottom).(xlEdgeRight).(xlInsideVertical).(xlInsideHorizontal).LineStyle
= xlNone

Le tout sur une ligne sans succès

D'avance un grand merci et à très bientôt

Rex ;-))) )))

xxxxxxxxxxxxxxxxxxxxxxxxxxx
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:úlse, Transpose:úlse
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:úlse, Transpose:úlse
Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone,
_
SkipBlanks:úlse, Transpose:úlse
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats,
Operation:= _
xlNone, SkipBlanks:úlse, Transpose:úlse
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Selection.ClearContents
Selection.Interior.ColorIndex = xlNone
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

re-,

je pense que ceci devrait faire l'affaire :

With Selection
.PasteSpecial Paste:=xlPasteValuesAndNumberFormats
.PasteSpecial Paste:=xlPasteFormats
.PasteSpecial Paste:=xlPasteColumnWidths
End With

Bonjour mon cher "Solitaire"

J'ai l'impression que la rentrée fait des dégats dans ce groupe, non?

Faudra leur laisser un peu de temps pour se remettre ;-)))

Et merci à toi pour la réponse
Elle fonctionne

Et pour le collage, y a-t-il moyen de raccourcir ou pas?

Elle fonctionne comme cela, mais cela ne fait pas très "Propre sur soi"
Et pour un gars qui s'appelle Rexona, c'est pas sérieux ;-)))

A bientôt

Rex ;-))) )))

"cousinhub" <pmcsnhb_nospam@aol.com> a écrit dans le message de news:
%237YfxFh7HHA.2476@TK2MSFTNGP05.phx.gbl...

Bonjour Rex,
essaie :

With Selection
.ClearContents
.Interior.ColorIndex = xlNone
.Borders.LineStyle = xlNone
End With

Bonjour à toutes et tous

Ci-dessous deux petits bouts de macro que je suis persuadé qu'il y a
moyen de réduire

Ce sont des bouts d'une macro enregistrée

Pour la deuxième j'ai essayé
Selection.ClearContents
Selection.Interior.ColorIndex = xlNone

Selection.Borders(xlDiagonalDown).(xlDiagonalUp).(xlEdgeLeft).(xlEdgeTop).(xlEdgeBottom).(xlEdgeRight).(xlInsideVertical).(xlInsideHorizontal).LineStyle
= xlNone

Le tout sur une ligne sans succès

D'avance un grand merci et à très bientôt

Rex ;-))) )))

xxxxxxxxxxxxxxxxxxxxxxxxxxx
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:úlse, Transpose:úlse
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:úlse, Transpose:úlse
Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone,
_
SkipBlanks:úlse, Transpose:úlse
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats,
Operation:= _
xlNone, SkipBlanks:úlse, Transpose:úlse
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Selection.ClearContents
Selection.Interior.ColorIndex = xlNone
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

Vous avez filtré cet utilisateur ! Consultez son message

re-,

je pense que ceci devrait faire l'affaire :

With Selection
.PasteSpecial Paste:=xlPasteValuesAndNumberFormats
.PasteSpecial Paste:=xlPasteFormats
.PasteSpecial Paste:=xlPasteColumnWidths
End With

Bonjour mon cher "Solitaire"

J'ai l'impression que la rentrée fait des dégats dans ce groupe, non?

Faudra leur laisser un peu de temps pour se remettre ;-)))

Et merci à toi pour la réponse
Elle fonctionne

Et pour le collage, y a-t-il moyen de raccourcir ou pas?

Elle fonctionne comme cela, mais cela ne fait pas très "Propre sur soi"
Et pour un gars qui s'appelle Rexona, c'est pas sérieux ;-)))

A bientôt

Rex ;-))) )))

"cousinhub" a écrit dans le message de news:
%
Bonjour Rex,
essaie :

With Selection
.ClearContents
.Interior.ColorIndex = xlNone
.Borders.LineStyle = xlNone
End With

Bonjour à toutes et tous

Ci-dessous deux petits bouts de macro que je suis persuadé qu'il y a
moyen de réduire

Ce sont des bouts d'une macro enregistrée

Pour la deuxième j'ai essayé
Selection.ClearContents
Selection.Interior.ColorIndex = xlNone

Selection.Borders(xlDiagonalDown).(xlDiagonalUp).(xlEdgeLeft).(xlEdgeTop).(xlEdgeBottom).(xlEdgeRight).(xlInsideVertical).(xlInsideHorizontal).LineStyle
= xlNone

Le tout sur une ligne sans succès

D'avance un grand merci et à très bientôt

Rex ;-))) )))

xxxxxxxxxxxxxxxxxxxxxxxxxxx
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:úlse, Transpose:úlse
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:úlse, Transpose:úlse
Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone,
_
SkipBlanks:úlse, Transpose:úlse
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats,
Operation:= _
xlNone, SkipBlanks:úlse, Transpose:úlse
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Selection.ClearContents
Selection.Interior.ColorIndex = xlNone
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

JB

03/09/2007 à 13:01

Bonjour,

Set plg = Range("A10,A2,B25:F25")

JB

On 3 sep, 12:50, cousinhub wrote:

Re-,
essaie :

Sub Macro2()
Dim plg As Range
Set plg = Union(Range("A10"), Range("A2"), Range("B25:F25"))
With plg
.ClearContents
.Interior.ColorIndex = xlNone
.Borders.LineStyle = xlNone
End With
End Sub

Re-bonjour

Une petite question supplémzntaire

Y a-t-il moyen de traiter plusieurs sélection en même temps

Par exemple dans le cas suivant
Ne pourrait-on pas ajouter les ranges A2 et A10 et B25:F25 sur une seule
ligne?

C'est juste une idée pour raccoucri mon code

A bientôt

Rex :-))) )))

xxxxxxxxxxxxxxxxxxxx
Range("A10").Select
With Selection
.ClearContents
.Interior.ColorIndex = xlNone
.Borders.LineStyle = xlNone
End With
Range("A2").Select
With Selection
.ClearContents
.Interior.ColorIndex = xlNone
.Borders.LineStyle = xlNone
End With
Range("B25:F25").Select
With Selection
.ClearContents
.Interior.ColorIndex = xlNone
.Borders.LineStyle = xlNone
End With
xxxxxxxxxxxxxxxxxxxxxxxxxxx

"cousinhub" a écrit dans le message de news:
%
Bonjour Rex,
essaie :

With Selection
.ClearContents
.Interior.ColorIndex = xlNone
.Borders.LineStyle = xlNone
End With

Bonjour à toutes et tous

Ci-dessous deux petits bouts de macro que je suis persuadé qu'il y a
moyen de réduire

Ce sont des bouts d'une macro enregistrée

Pour la deuxième j'ai essayé
Selection.ClearContents
Selection.Interior.ColorIndex = xlNone

Selection.Borders(xlDiagonalDown).(xlDiagonalUp).(xlEdgeLeft).(xlEdge Top).(xlEdgeBottom).(xlEdgeRight).(xlInsideVertical).(xlInsideHorizontal ).LineStyle
= xlNone

Le tout sur une ligne sans succès

D'avance un grand merci et à très bientôt

Rex ;-))) )))

xxxxxxxxxxxxxxxxxxxxxxxxxxx
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNon e,
SkipBlanks _
:�lse, Transpose:�lse
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNo ne, _
SkipBlanks:�lse, Transpose:�lse
Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation: =xlNone,
_
SkipBlanks:�lse, Transpose:�lse
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats,
Operation:= _
xlNone, SkipBlanks:�lse, Transpose:�lse
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Selection.ClearContents
Selection.Interior.ColorIndex = xlNone
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx- Masquer le texte de s messages précédents -

- Afficher le texte des messages précédents -

Bonjour,

Set plg = Range("A10,A2,B25:F25")

JB

On 3 sep, 12:50, cousinhub <pmcsnhb_nos...@aol.com> wrote:

Re-,
essaie :

Sub Macro2()
Dim plg As Range
Set plg = Union(Range("A10"), Range("A2"), Range("B25:F25"))
With plg
.ClearContents
.Interior.ColorIndex = xlNone
.Borders.LineStyle = xlNone
End With
End Sub

Re-bonjour

Une petite question supplémzntaire

Y a-t-il moyen de traiter plusieurs sélection en même temps

Par exemple dans le cas suivant
Ne pourrait-on pas ajouter les ranges A2 et A10 et B25:F25 sur une seule
ligne?

C'est juste une idée pour raccoucri mon code

A bientôt

Rex :-))) )))

xxxxxxxxxxxxxxxxxxxx
Range("A10").Select
With Selection
.ClearContents
.Interior.ColorIndex = xlNone
.Borders.LineStyle = xlNone
End With
Range("A2").Select
With Selection
.ClearContents
.Interior.ColorIndex = xlNone
.Borders.LineStyle = xlNone
End With
Range("B25:F25").Select
With Selection
.ClearContents
.Interior.ColorIndex = xlNone
.Borders.LineStyle = xlNone
End With
xxxxxxxxxxxxxxxxxxxxxxxxxxx

"cousinhub" <pmcsnhb_nos...@aol.com> a écrit dans le message de news:
%237YfxFh7HHA.2...@TK2MSFTNGP05.phx.gbl...

Bonjour Rex,
essaie :

With Selection
.ClearContents
.Interior.ColorIndex = xlNone
.Borders.LineStyle = xlNone
End With

Bonjour à toutes et tous

Ci-dessous deux petits bouts de macro que je suis persuadé qu'il y a
moyen de réduire

Ce sont des bouts d'une macro enregistrée

Pour la deuxième j'ai essayé
Selection.ClearContents
Selection.Interior.ColorIndex = xlNone

Selection.Borders(xlDiagonalDown).(xlDiagonalUp).(xlEdgeLeft).(xlEdge Top).(xlEdgeBottom).(xlEdgeRight).(xlInsideVertical).(xlInsideHorizontal ).LineStyle
= xlNone

Le tout sur une ligne sans succès

D'avance un grand merci et à très bientôt

Rex ;-))) )))

xxxxxxxxxxxxxxxxxxxxxxxxxxx
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNon e,
SkipBlanks _
:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNo ne, _
SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation: =xlNone,
_
SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats,
Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Selection.ClearContents
Selection.Interior.ColorIndex = xlNone
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx- Masquer le texte de s messages précédents -

- Afficher le texte des messages précédents -

Vous avez filtré cet utilisateur ! Consultez son message

Bonjour,

Set plg = Range("A10,A2,B25:F25")

JB

On 3 sep, 12:50, cousinhub wrote:

Re-,
essaie :

Sub Macro2()
Dim plg As Range
Set plg = Union(Range("A10"), Range("A2"), Range("B25:F25"))
With plg
.ClearContents
.Interior.ColorIndex = xlNone
.Borders.LineStyle = xlNone
End With
End Sub

Re-bonjour

Une petite question supplémzntaire

Y a-t-il moyen de traiter plusieurs sélection en même temps

Par exemple dans le cas suivant
Ne pourrait-on pas ajouter les ranges A2 et A10 et B25:F25 sur une seule
ligne?

C'est juste une idée pour raccoucri mon code

A bientôt

Rex :-))) )))

xxxxxxxxxxxxxxxxxxxx
Range("A10").Select
With Selection
.ClearContents
.Interior.ColorIndex = xlNone
.Borders.LineStyle = xlNone
End With
Range("A2").Select
With Selection
.ClearContents
.Interior.ColorIndex = xlNone
.Borders.LineStyle = xlNone
End With
Range("B25:F25").Select
With Selection
.ClearContents
.Interior.ColorIndex = xlNone
.Borders.LineStyle = xlNone
End With
xxxxxxxxxxxxxxxxxxxxxxxxxxx

"cousinhub" a écrit dans le message de news:
%
Bonjour Rex,
essaie :

With Selection
.ClearContents
.Interior.ColorIndex = xlNone
.Borders.LineStyle = xlNone
End With

Bonjour à toutes et tous

Ci-dessous deux petits bouts de macro que je suis persuadé qu'il y a
moyen de réduire

Ce sont des bouts d'une macro enregistrée

Pour la deuxième j'ai essayé
Selection.ClearContents
Selection.Interior.ColorIndex = xlNone

Selection.Borders(xlDiagonalDown).(xlDiagonalUp).(xlEdgeLeft).(xlEdge Top).(xlEdgeBottom).(xlEdgeRight).(xlInsideVertical).(xlInsideHorizontal ).LineStyle
= xlNone

Le tout sur une ligne sans succès

D'avance un grand merci et à très bientôt

Rex ;-))) )))

xxxxxxxxxxxxxxxxxxxxxxxxxxx
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNon e,
SkipBlanks _
:�lse, Transpose:�lse
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNo ne, _
SkipBlanks:�lse, Transpose:�lse
Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation: =xlNone,
_
SkipBlanks:�lse, Transpose:�lse
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats,
Operation:= _
xlNone, SkipBlanks:�lse, Transpose:�lse
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Selection.ClearContents
Selection.Interior.ColorIndex = xlNone
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx- Masquer le texte de s messages précédents -

- Afficher le texte des messages précédents -

rthompson

03/09/2007 à 13:02

Un Pek Cable !!!!!!!!

Merci beaucoup à toi

Je te souhaite une EXCELente après-midi

Et a bientôt

Rex ;-))) )))

"cousinhub" a écrit dans le message de news:
%

Re-,
essaie :

Sub Macro2()
Dim plg As Range
Set plg = Union(Range("A10"), Range("A2"), Range("B25:F25"))
With plg
.ClearContents
.Interior.ColorIndex = xlNone
.Borders.LineStyle = xlNone
End With
End Sub

Re-bonjour

Une petite question supplémzntaire

Y a-t-il moyen de traiter plusieurs sélection en même temps

Par exemple dans le cas suivant
Ne pourrait-on pas ajouter les ranges A2 et A10 et B25:F25 sur une
seule ligne?

C'est juste une idée pour raccoucri mon code

A bientôt

Rex :-))) )))

xxxxxxxxxxxxxxxxxxxx
Range("A10").Select
With Selection
.ClearContents
.Interior.ColorIndex = xlNone
.Borders.LineStyle = xlNone
End With
Range("A2").Select
With Selection
.ClearContents
.Interior.ColorIndex = xlNone
.Borders.LineStyle = xlNone
End With
Range("B25:F25").Select
With Selection
.ClearContents
.Interior.ColorIndex = xlNone
.Borders.LineStyle = xlNone
End With
xxxxxxxxxxxxxxxxxxxxxxxxxxx

"cousinhub" a écrit dans le message de news:
%
Bonjour Rex,
essaie :

With Selection
.ClearContents
.Interior.ColorIndex = xlNone
.Borders.LineStyle = xlNone
End With

Bonjour à toutes et tous

Ci-dessous deux petits bouts de macro que je suis persuadé qu'il y a
moyen de réduire

Ce sont des bouts d'une macro enregistrée

Pour la deuxième j'ai essayé
Selection.ClearContents
Selection.Interior.ColorIndex = xlNone

Selection.Borders(xlDiagonalDown).(xlDiagonalUp).(xlEdgeLeft).(xlEdgeTop).(xlEdgeBottom).(xlEdgeRight).(xlInsideVertical).(xlInsideHorizontal).LineStyle
= xlNone

Le tout sur une ligne sans succès

D'avance un grand merci et à très bientôt

Rex ;-))) )))

xxxxxxxxxxxxxxxxxxxxxxxxxxx
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:úlse, Transpose:úlse
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:úlse, Transpose:úlse
Selection.PasteSpecial Paste:=xlPasteColumnWidths,
Operation:=xlNone, _
SkipBlanks:úlse, Transpose:úlse
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats,
Operation:= _
xlNone, SkipBlanks:úlse, Transpose:úlse
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Selection.ClearContents
Selection.Interior.ColorIndex = xlNone
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

Un Pek Cable !!!!!!!!

Merci beaucoup à toi

Je te souhaite une EXCELente après-midi

Et a bientôt

Rex ;-))) )))

"cousinhub" <pmcsnhb_nospam@aol.com> a écrit dans le message de news:
%23aT6Bhh7HHA.2476@TK2MSFTNGP05.phx.gbl...

Re-,
essaie :

Sub Macro2()
Dim plg As Range
Set plg = Union(Range("A10"), Range("A2"), Range("B25:F25"))
With plg
.ClearContents
.Interior.ColorIndex = xlNone
.Borders.LineStyle = xlNone
End With
End Sub

Re-bonjour

Une petite question supplémzntaire

Y a-t-il moyen de traiter plusieurs sélection en même temps

Par exemple dans le cas suivant
Ne pourrait-on pas ajouter les ranges A2 et A10 et B25:F25 sur une
seule ligne?

C'est juste une idée pour raccoucri mon code

A bientôt

Rex :-))) )))

xxxxxxxxxxxxxxxxxxxx
Range("A10").Select
With Selection
.ClearContents
.Interior.ColorIndex = xlNone
.Borders.LineStyle = xlNone
End With
Range("A2").Select
With Selection
.ClearContents
.Interior.ColorIndex = xlNone
.Borders.LineStyle = xlNone
End With
Range("B25:F25").Select
With Selection
.ClearContents
.Interior.ColorIndex = xlNone
.Borders.LineStyle = xlNone
End With
xxxxxxxxxxxxxxxxxxxxxxxxxxx

"cousinhub" <pmcsnhb_nospam@aol.com> a écrit dans le message de news:
%237YfxFh7HHA.2476@TK2MSFTNGP05.phx.gbl...

Bonjour Rex,
essaie :

With Selection
.ClearContents
.Interior.ColorIndex = xlNone
.Borders.LineStyle = xlNone
End With

Bonjour à toutes et tous

Ci-dessous deux petits bouts de macro que je suis persuadé qu'il y a
moyen de réduire

Ce sont des bouts d'une macro enregistrée

Pour la deuxième j'ai essayé
Selection.ClearContents
Selection.Interior.ColorIndex = xlNone

Selection.Borders(xlDiagonalDown).(xlDiagonalUp).(xlEdgeLeft).(xlEdgeTop).(xlEdgeBottom).(xlEdgeRight).(xlInsideVertical).(xlInsideHorizontal).LineStyle
= xlNone

Le tout sur une ligne sans succès

D'avance un grand merci et à très bientôt

Rex ;-))) )))

xxxxxxxxxxxxxxxxxxxxxxxxxxx
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:úlse, Transpose:úlse
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:úlse, Transpose:úlse
Selection.PasteSpecial Paste:=xlPasteColumnWidths,
Operation:=xlNone, _
SkipBlanks:úlse, Transpose:úlse
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats,
Operation:= _
xlNone, SkipBlanks:úlse, Transpose:úlse
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Selection.ClearContents
Selection.Interior.ColorIndex = xlNone
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

Vous avez filtré cet utilisateur ! Consultez son message

Un Pek Cable !!!!!!!!

Merci beaucoup à toi

Je te souhaite une EXCELente après-midi

Et a bientôt

Rex ;-))) )))

"cousinhub" a écrit dans le message de news:
%

Re-,
essaie :

Sub Macro2()
Dim plg As Range
Set plg = Union(Range("A10"), Range("A2"), Range("B25:F25"))
With plg
.ClearContents
.Interior.ColorIndex = xlNone
.Borders.LineStyle = xlNone
End With
End Sub

Re-bonjour

Une petite question supplémzntaire

Y a-t-il moyen de traiter plusieurs sélection en même temps

Par exemple dans le cas suivant
Ne pourrait-on pas ajouter les ranges A2 et A10 et B25:F25 sur une
seule ligne?

C'est juste une idée pour raccoucri mon code

A bientôt

Rex :-))) )))

xxxxxxxxxxxxxxxxxxxx
Range("A10").Select
With Selection
.ClearContents
.Interior.ColorIndex = xlNone
.Borders.LineStyle = xlNone
End With
Range("A2").Select
With Selection
.ClearContents
.Interior.ColorIndex = xlNone
.Borders.LineStyle = xlNone
End With
Range("B25:F25").Select
With Selection
.ClearContents
.Interior.ColorIndex = xlNone
.Borders.LineStyle = xlNone
End With
xxxxxxxxxxxxxxxxxxxxxxxxxxx

"cousinhub" a écrit dans le message de news:
%
Bonjour Rex,
essaie :

With Selection
.ClearContents
.Interior.ColorIndex = xlNone
.Borders.LineStyle = xlNone
End With

Bonjour à toutes et tous

Ci-dessous deux petits bouts de macro que je suis persuadé qu'il y a
moyen de réduire

Ce sont des bouts d'une macro enregistrée

Pour la deuxième j'ai essayé
Selection.ClearContents
Selection.Interior.ColorIndex = xlNone

Selection.Borders(xlDiagonalDown).(xlDiagonalUp).(xlEdgeLeft).(xlEdgeTop).(xlEdgeBottom).(xlEdgeRight).(xlInsideVertical).(xlInsideHorizontal).LineStyle
= xlNone

Le tout sur une ligne sans succès

D'avance un grand merci et à très bientôt

Rex ;-))) )))

xxxxxxxxxxxxxxxxxxxxxxxxxxx
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:úlse, Transpose:úlse
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:úlse, Transpose:úlse
Selection.PasteSpecial Paste:=xlPasteColumnWidths,
Operation:=xlNone, _
SkipBlanks:úlse, Transpose:úlse
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats,
Operation:= _
xlNone, SkipBlanks:úlse, Transpose:úlse
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Selection.ClearContents
Selection.Interior.ColorIndex = xlNone
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

rthompson

03/09/2007 à 13:34

De plus en plus court ;-))))

Merci à toi

Y a-t-il une limite au nombre de bout de plage que l'on peut ajouter?
Et ( a part la Sainte Axe) y a-t-il une raison ou un avantage entre l'un et
l'autre?

A bientôt

Rex qui est toujours ;-))))
Enfin pour le moment

"JB" a écrit dans le message de news:

Bonjour,

Set plg = Range("A10,A2,B25:F25")

JB

On 3 sep, 12:50, cousinhub wrote:

Re-,
essaie :

Sub Macro2()
Dim plg As Range
Set plg = Union(Range("A10"), Range("A2"), Range("B25:F25"))
With plg
.ClearContents
.Interior.ColorIndex = xlNone
.Borders.LineStyle = xlNone
End With
End Sub

Re-bonjour

Une petite question supplémzntaire

Y a-t-il moyen de traiter plusieurs sélection en même temps

Par exemple dans le cas suivant
Ne pourrait-on pas ajouter les ranges A2 et A10 et B25:F25 sur une
seule
ligne?

C'est juste une idée pour raccoucri mon code

A bientôt

Rex :-))) )))

xxxxxxxxxxxxxxxxxxxx
Range("A10").Select
With Selection
.ClearContents
.Interior.ColorIndex = xlNone
.Borders.LineStyle = xlNone
End With
Range("A2").Select
With Selection
.ClearContents
.Interior.ColorIndex = xlNone
.Borders.LineStyle = xlNone
End With
Range("B25:F25").Select
With Selection
.ClearContents
.Interior.ColorIndex = xlNone
.Borders.LineStyle = xlNone
End With
xxxxxxxxxxxxxxxxxxxxxxxxxxx

"cousinhub" a écrit dans le message de news:
%
Bonjour Rex,
essaie :

With Selection
.ClearContents
.Interior.ColorIndex = xlNone
.Borders.LineStyle = xlNone
End With

Bonjour à toutes et tous

Ci-dessous deux petits bouts de macro que je suis persuadé qu'il y a
moyen de réduire

Ce sont des bouts d'une macro enregistrée

Pour la deuxième j'ai essayé
Selection.ClearContents
Selection.Interior.ColorIndex = xlNone

Selection.Borders(xlDiagonalDown).(xlDiagonalUp).(xlEdgeLeft).(xlEdgeTop).(xlEdgeBottom).(xlEdgeRight).(xlInsideVertical).(xlInsideHorizontal).LineStyle
= xlNone

Le tout sur une ligne sans succès

D'avance un grand merci et à très bientôt

Rex ;-))) )))

xxxxxxxxxxxxxxxxxxxxxxxxxxx
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:úlse, Transpose:úlse
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:úlse, Transpose:úlse
Selection.PasteSpecial Paste:=xlPasteColumnWidths,
Operation:=xlNone,
_
SkipBlanks:úlse, Transpose:úlse
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats,
Operation:= _
xlNone, SkipBlanks:úlse, Transpose:úlse
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Selection.ClearContents
Selection.Interior.ColorIndex = xlNone
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx- Masquer le texte des
messages précédents -

- Afficher le texte des messages précédents -

De plus en plus court ;-))))

Merci à toi

Y a-t-il une limite au nombre de bout de plage que l'on peut ajouter?
Et ( a part la Sainte Axe) y a-t-il une raison ou un avantage entre l'un et
l'autre?

A bientôt

Rex qui est toujours ;-))))
Enfin pour le moment

"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
1188817297.545283.78610@50g2000hsm.googlegroups.com...
Bonjour,

Set plg = Range("A10,A2,B25:F25")

JB

On 3 sep, 12:50, cousinhub <pmcsnhb_nos...@aol.com> wrote:

Re-,
essaie :

Sub Macro2()
Dim plg As Range
Set plg = Union(Range("A10"), Range("A2"), Range("B25:F25"))
With plg
.ClearContents
.Interior.ColorIndex = xlNone
.Borders.LineStyle = xlNone
End With
End Sub

Re-bonjour

Une petite question supplémzntaire

Y a-t-il moyen de traiter plusieurs sélection en même temps

Par exemple dans le cas suivant
Ne pourrait-on pas ajouter les ranges A2 et A10 et B25:F25 sur une
seule
ligne?

C'est juste une idée pour raccoucri mon code

A bientôt

Rex :-))) )))

xxxxxxxxxxxxxxxxxxxx
Range("A10").Select
With Selection
.ClearContents
.Interior.ColorIndex = xlNone
.Borders.LineStyle = xlNone
End With
Range("A2").Select
With Selection
.ClearContents
.Interior.ColorIndex = xlNone
.Borders.LineStyle = xlNone
End With
Range("B25:F25").Select
With Selection
.ClearContents
.Interior.ColorIndex = xlNone
.Borders.LineStyle = xlNone
End With
xxxxxxxxxxxxxxxxxxxxxxxxxxx

"cousinhub" <pmcsnhb_nos...@aol.com> a écrit dans le message de news:
%237YfxFh7HHA.2...@TK2MSFTNGP05.phx.gbl...

Bonjour Rex,
essaie :

With Selection
.ClearContents
.Interior.ColorIndex = xlNone
.Borders.LineStyle = xlNone
End With

Bonjour à toutes et tous

Ci-dessous deux petits bouts de macro que je suis persuadé qu'il y a
moyen de réduire

Ce sont des bouts d'une macro enregistrée

Pour la deuxième j'ai essayé
Selection.ClearContents
Selection.Interior.ColorIndex = xlNone

Selection.Borders(xlDiagonalDown).(xlDiagonalUp).(xlEdgeLeft).(xlEdgeTop).(xlEdgeBottom).(xlEdgeRight).(xlInsideVertical).(xlInsideHorizontal).LineStyle
= xlNone

Le tout sur une ligne sans succès

D'avance un grand merci et à très bientôt

Rex ;-))) )))

xxxxxxxxxxxxxxxxxxxxxxxxxxx
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:úlse, Transpose:úlse
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:úlse, Transpose:úlse
Selection.PasteSpecial Paste:=xlPasteColumnWidths,
Operation:=xlNone,
_
SkipBlanks:úlse, Transpose:úlse
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats,
Operation:= _
xlNone, SkipBlanks:úlse, Transpose:úlse
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Selection.ClearContents
Selection.Interior.ColorIndex = xlNone
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx- Masquer le texte des
messages précédents -

- Afficher le texte des messages précédents -

Vous avez filtré cet utilisateur ! Consultez son message

De plus en plus court ;-))))

Merci à toi

Y a-t-il une limite au nombre de bout de plage que l'on peut ajouter?
Et ( a part la Sainte Axe) y a-t-il une raison ou un avantage entre l'un et
l'autre?

A bientôt

Rex qui est toujours ;-))))
Enfin pour le moment

"JB" a écrit dans le message de news:

Bonjour,

Set plg = Range("A10,A2,B25:F25")

JB

On 3 sep, 12:50, cousinhub wrote:

Re-,
essaie :

Sub Macro2()
Dim plg As Range
Set plg = Union(Range("A10"), Range("A2"), Range("B25:F25"))
With plg
.ClearContents
.Interior.ColorIndex = xlNone
.Borders.LineStyle = xlNone
End With
End Sub

Re-bonjour

Une petite question supplémzntaire

Y a-t-il moyen de traiter plusieurs sélection en même temps

Par exemple dans le cas suivant
Ne pourrait-on pas ajouter les ranges A2 et A10 et B25:F25 sur une
seule
ligne?

C'est juste une idée pour raccoucri mon code

A bientôt

Rex :-))) )))

xxxxxxxxxxxxxxxxxxxx
Range("A10").Select
With Selection
.ClearContents
.Interior.ColorIndex = xlNone
.Borders.LineStyle = xlNone
End With
Range("A2").Select
With Selection
.ClearContents
.Interior.ColorIndex = xlNone
.Borders.LineStyle = xlNone
End With
Range("B25:F25").Select
With Selection
.ClearContents
.Interior.ColorIndex = xlNone
.Borders.LineStyle = xlNone
End With
xxxxxxxxxxxxxxxxxxxxxxxxxxx

"cousinhub" a écrit dans le message de news:
%
Bonjour Rex,
essaie :

With Selection
.ClearContents
.Interior.ColorIndex = xlNone
.Borders.LineStyle = xlNone
End With

Bonjour à toutes et tous

Ci-dessous deux petits bouts de macro que je suis persuadé qu'il y a
moyen de réduire

Ce sont des bouts d'une macro enregistrée

Pour la deuxième j'ai essayé
Selection.ClearContents
Selection.Interior.ColorIndex = xlNone

Selection.Borders(xlDiagonalDown).(xlDiagonalUp).(xlEdgeLeft).(xlEdgeTop).(xlEdgeBottom).(xlEdgeRight).(xlInsideVertical).(xlInsideHorizontal).LineStyle
= xlNone

Le tout sur une ligne sans succès

D'avance un grand merci et à très bientôt

Rex ;-))) )))

xxxxxxxxxxxxxxxxxxxxxxxxxxx
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:úlse, Transpose:úlse
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:úlse, Transpose:úlse
Selection.PasteSpecial Paste:=xlPasteColumnWidths,
Operation:=xlNone,
_
SkipBlanks:úlse, Transpose:úlse
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats,
Operation:= _
xlNone, SkipBlanks:úlse, Transpose:úlse
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Selection.ClearContents
Selection.Interior.ColorIndex = xlNone
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx- Masquer le texte des
messages précédents -

- Afficher le texte des messages précédents -

Nettoyage et simplification de macros

8 réponses

Veuillez sélectionner un problème