Selection multiples Target

Question

Bonjour à tous :),

J'essaie de créer un petit tableur permettant de générer des diagrammes de Gantt simplifiés.

J'ai créé une macro de mise en forme conditionnelle qui colorise des cases en fonction de la ressource affectée:

Exemple, on rentre un caractère dans la plage allant de la colonne 2 à 9( ressources), puis des valeurs dans le calendrier à partir de la colonne 14; les valeurs rentrées vont se coloriser de la même couleur que la couleur affectée à la ressource.

Idem pour la plage en haut du graphique.

J'ai rajouté une macro (dont le code est spécifié ci-dessous); qui efface les valeurs et donc la colorisation si la valeur entrée dans le calendrier est supprimée (exemple R14).

Cela fonctionne sur une selection de cellule seule, mais quand je supprime plusieurs case d'un coup (par exemple R14:X14), la macro plante avec l'erreur '13' incompatibilité de type.

Auriez-vous une solution pour faire fonctionner cette macro sur une selection multiple ? j'avoue bloquer depuis quelques temps sur ce point...

Je ne sais pas si mes explications sont claires, le laisse l'ébauche de mon classeur en PJ, pour avoir une meilleure visualisation.

Merci d'avance :)

Private Sub Worksheet_Change(ByVal Target As Range)

Dim MEF As Long

nb_col = ActiveSheet.UsedRange.Columns.Count 'Compter le nb de ligne de la feuille
nb_rows = ActiveSheet.UsedRange.Rows.Count 'Compter le nb de ligne de la feuille
nb_ressources = 8

If Not Application.Intersect(Selection, Range(Cells(13, 14), Cells(nb_rows, nb_col))) Is Nothing Then

    If Target = "" Then

    col1 = Target.Column
    row1 = Target.Row

    For i = 1 To nb_ressources

            If Cells(i, col1) <> "" And Cells(i, col1).DisplayFormat.Interior.Color = Cells(row1, i + 1).DisplayFormat.Interior.Color Then
            Cells(i, col1) = ""
            End If
    Next

    End If
End If

End Sub

14projet-planning-vt.xlsm (99.49 Ko)

Dan · Answer

Sans trop chercher dans votre appli, vous pourriez utiliser ceci If Target.count &gt; 1 then 'votre code end if Peut être ai-je mal compris mais est-ce normal que dans votre code vous utilisez toutes les lignes alors que vous ne changez qu'une seule ligne exemple : si vous changez F13 pour y mettre un X, le code regarde toutes les lignes depuis 13 jusque 16. Ne serait-ce pas plus juste que si vous changez F13, seule cette ligne est concernée ? Cordialement...

Dan · Answer

Je n'arrive pas à avoir cette erreur
Pouvez-vous mettre un exemple de ce que je dois faire.

Voici ce que je fais :

1. Je mets un X en F13.
2. si je mets un 1 en S13, cela mettre une couleur rouge et appliquer la couleur rouge et le chiffre 1 en S5

Dan · Answer

Le souci que je vois vient aussi de votre code selection_change qui s'exécute à chaque sélection de cellule.
Exemple : vous sélectionnez S13 puis vous mettez en 1 dans la cellule et appuyez sur la touche entrée. Le code va s'exécuter 2 x. cela lié au code qui vous pose souci ....

Mais ok si vous avez solution
NB : à vérifier mais vous pouvez aussi remplacer Selection par target dans le code Worksheet_Change

Ordonc · Answer

Bonjour… (salut Dan )

Sans toucher au reste*, dans l’événement Change récursif, remplace If Target = "" Then par If Target(1, 1) = "" Then

où Target(1, 1) désigne la première cellule de la sélection**.

*Je ne hasarderais pas à programmer sur 6 ans

** quand je vois le peu de personnes adopter cette saisie (où les lignes et colonnes sont variables) ...

Ordonc · Answer

Re... Avec target(1,1), cela fonctionne mais on n'efface que la première cellule de la selection Pas chez moi (sélection d'une plage puis suppression), avec ton fichier n'ayant subi que le remplacement. Nota comme je l'ai dit je n'ai regardé que cela mais attention si tu n'as pas borné tes sélections quand tu supprimes des contenus...