Nettoyage et simplification de macros

Le
rthompson
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
cousinhub
Le #4756681
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
Le #4756651
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" %
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
Le #4756641
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" %
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
Le #4756621
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" %
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
Le #4756611
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" %
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
Le #4756601
Bonjour,

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

JB

On 3 sep, 12:50, cousinhub
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" %
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 ).LineSty­le
= 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
Le #4756591
Un Pek Cable !!!!!!!!


Merci beaucoup à toi

Je te souhaite une EXCELente après-midi

Et a bientôt

Rex ;-))) )))




"cousinhub" %
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" %
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
Le #4756581
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"
Bonjour,

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

JB

On 3 sep, 12:50, cousinhub
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" %
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).LineSty­le
= 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 -





Publicité
Poster une réponse
Anonyme