Problème a l'effacement de cellules : erreur execution 13

[bobylecoyote]

Bonsoir,

voilà,

j'ai réalisé un planning d'absence pour mon boulot.

Le truc est que je colorie les cellules suivant le type d'absences.

Mon problème réside dans le fait que si je veux supprimer plusieurs cellules ayant des données différentes ( ex : F5=RP;G5=AC;H5=RU....) en même temps, j'ai le message erreur execution 13 qui s'affiche.

Le code s'arrête sur la partie Case "RP"....

Je bloque depuis ce matin 😛

Merci pour votre aide

 

[jeanpierre]

Re : Problème a l'effacement de cellules : erreur execution 13

Bonsoir bobylecoyote et Bienvenue,

Pas trop compris, j'ai tenté ta manip.enfin si je l'ai bien comprise, pas de soucis particuliers.... seulement entre des cellules fusionnées et d'autres qui ne le sont pas...... c'est pas vraiment le top....

Donc, peux-tu repréciser, point par point, ta question....

A te lire, car, là, c'est moi qui bloque...

 

[Banzai64]

Re : Problème a l'effacement de cellules : erreur execution 13

bonjour

Dans ton code rajoutes

Target.Interior.ColorIndex = xlNone
[COLOR="Red"][SIZE="2"]If Target.Count > 1 Then Exit Sub[/SIZE][/COLOR]
Select Case Target

 

[bobylecoyote]

Re : Problème a l'effacement de cellules : erreur execution 13

Jean-pierre désolé de ne pas avoir été plus précis 😛

Banza64, merci ça marche maintenant. TU peux m'expliquer mon erreur STP?

Je comprends pas la modif 🙄

 

[Banzai64]

Re : Problème a l'effacement de cellules : erreur execution 13

Bonsoir

Je pense que l'erreur vient du fait que tu veux tester plusieurs cellules avec une valeur

La modif te fait quitter la procédure si tu as sélectionné plusieurs cellules

 

[bobylecoyote]

Re : Problème a l'effacement de cellules : erreur execution 13

MErci pour l'info😉.


En tout cas, ton aide a permis de finaliser le planning.

😀