Autres Problème de sélection

[mimirct3]

Salut a tous.
J'ai trouvé un code VBA pour modifier la couleur de sélection.
Le code fonctionne très bien pour une seul sélection mais pas pour plusieurs.
Voici le code en question:
Public Old_Selection

Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Old_Selection = "" Then 'si il n'a pas de sélection, on remet à l'origine
With Range(Old_Selection)
With .Borders 'Les bordures
.LineStyle = xlNone
End With
With .Interior 'L'intérieur de la ou les cellules
.ColorIndex = xlNone
End With
End With
End If

Old_Selection = Target.Address

With Target 'Avec la ou les cellules sélectionnées
With .Borders 'On passe les bordures avec des lignes continues de couleur ROUGE (3)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = 3
End With
With .Interior 'Avec l'intérieur de la ou les cellules on les remplies de la couleur BLEU CLAIR (34)
.ColorIndex = 34
End With
End With
End Sub

Et voici l'erreur qu'il me met:
La méthode 'Range' de l'objet '_worksheet' à échoué.

Je n'arrive pas à comprendre ce qui ce passe.
Merci d'avance.

 

[sylvanu]

Bonjour mimirct3,

Le code fonctionne très bien pour une seul sélection mais pas pour plusieurs.

Qu'entendez vous par là ?
Sur mon PC j'obtiens ça :

 

[mimirct3]

Ah bah oui effectivement cela fonctionne.
Je n'ai plus d'erreur, en fait j'ai juste fermer Excel et réouvert et ca fonctionne sans problème.
Bon bah désolé, je n'y avais pas pensé.
Merci quand même.

 

[mimirct3]

Par contre la mise en forme de la cellule ne reste pas.
Comment je peux faire pour qu'elle reste?

 

[sylvanu]

Par contre la mise en forme de la cellule ne reste pas.

C'est à dire ?
La mise en forme d'origine ?
Si c'est ça, cela me semble très compliqué, je n'ai pas de solution. Mais peut être que quelqu'un en aura une.
Il faudrait mémoriser toutes les mises en forme ( couleurs, bordures, couleurs police .... ) de toutes les cellules concernées pour pouvoir les remettre correctement ensuite.
Sauf si le format initial est connu, vous pouvez le remettre.
Sauf s'il existe une autre astuce ... 😉

 

[mimirct3]

Oui tout a fait, en fait la mise en forme de la cellule ce remet par défaut une fois désélectionner.
Par exemple si je met un style "Satisfaisant" et bien le style ne reste pas

 

[sylvanu]

Essayez de faire un petit fichier test représentatif.
Je regarderais ce que je saurais faire.
Mais sans garantie, tout va dépendre de votre contexte.

 

[mimirct3]

Voila deux fichier.
Le premier avec le code en question (test) et le deuxième avec un autre code (prepamoteur) que j'avais trouver mais que je penser qu'il ne fonctionner pas.
Du coup ce que je souhaitait faire cela fonctionne avec ce code, donc si tu n'y arrive pas, ne te prend pas la tête et je ferais avec celui la.

 

[sylvanu]

Bonsoir,
La macro de PrepaMoteur ne peut pas fonctionner car on a :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    With Target

Seulement Target seul est la valeur contenue dans la cellule. Peut être serait ce mieux avec Range(Target.Address)
Je ne suis pas allé plus loin.

En PJ une idée avec une autre approche en jouant sur une MFC avec :

Public Plage
Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.FormatConditions.Delete
Plage = Target.Address
With Range(Plage)
    .FormatConditions.Add Type:=xlExpression, Formula1:="=VRAI"
    .FormatConditions(1).Interior.Color = RGB(220, 240, 240)
    With .FormatConditions(1).Borders
        .LineStyle = xlContinuous
        .Weight = xlThin
        .Color = vbRed
    End With
End With
End Sub

Les formats initiaux sont conservés puisque la mise en forme sur sélection est faite par MFC. Peut être une idée à creuser.
Cela donne :

 

[mimirct3]

Salut et bah je dirais impec c'est exactement ce que chercher à faire.
Merci pour ton aide.

 

[sylvanu]

Re,
Attention cependant, ce n'est qu'une maquette.
Par ex, elles efface toutes les MFC présentes, et je n'ai pas vérifié son effet sur des TDS.
A vous de peaufiner en fonction de votre contexte.

 

[mimirct3]

Salut t'inquiète pas les MFC et les TDS je ne vais pas m'en servir, c'est juste ce qu'il faut pour ce que j'ai à faire.

 

[mimirct3]

Re
Je me suis aperçu que les fonction copier/coller et annuler/rétablir ne fonctionner plus.

 

[sylvanu]

Re,
La macro Worksheet_SelectionChange prend le pas sur copier coller.
Je ne vois guère de solution.
Une possible est de limiter la portée de la macro.
Par ex en PJ la macro n'agit que sur la zone A1:F40, en dehors le copier coller ou annuler fonctionnent.
Ce pb semble connu comme ici :

J

Discussion 'Copié/collé impossible avec un Selection_change'

8 Février 2016

Bonjour le forum,

Il m'est impossible de copier/coller avec la souris sur une feuille qui a un Private Sub Worksheet_SelectionChange(ByVal Target As Range)
J'ai pu contourner le problème dans mes macros, mais impossible de le faire à la souris ou clavier.
J'ai une procédure dans la feuille qui colore la cellule active, et le problème vient de là.
Comment peut on contourner cela et est-ce qu'il y a une solution ?

Le petit fichier joint sera plus explicite

Je vous remercie pour toute aide apportée
Bien cordialement

• joel31
• Réponses: 10
• Forum: Forum Excel

 

[fanch55]

Re
Je me suis aperçu que les fonction copier/coller et annuler/rétablir ne fonctionner plus.

Bonjour,
Un palliatif :
Ajouter dans le selectionchange :
Application.CommandBars("Office Clipboard").Visible = True
Vous pourrez utiliser le coller du volet "Presse Papier"