Supréssion de céllules fusionées par VBA

bonjour..

je réalise actuellement un planning hebdo qui se remplit tout seul grâce a un FormAd qui me permet de remplir mes fiches"élèves"

une fois ces fiches remplies, les cellules du jour de cours et de l'horaire se fusionnent d'une certaine couleur sur mon feuillet planning

en y mentionnant la matière et le prénom de l'élève..

je voudrais rajouter un bouton qui supprimerait un élève sur mon planning ( une de ces cellules fusionnées donc..)

du style :

quel élève voulez vous supprimer ?

et hop..

la cellule de cet élève se "défusionne" se décolore et se vide pour n'y laisser que des cellules vierges à la place

mon problème est le bout de code..

(la fusion de cellules est due au nombre de quarts d'heure de cours.exemple pour 1h de cours, ma cellule occupe 4 cellules en fait)

j'oubliais..:

du coup,cette cellule fusionnée porte le nom et l'activité de l'élève en Fx (du style: romain GUITARE)

ça doit sans doute aider pour la localiser..

ai je été assez clair?

quelqu'un peut il m'aider?

Bonjour

Un fichier représentatif du problème évoqué aiderait grandement à sa résolution

En clair

voilà...

si par ailleurs, il était possible de faire afficher la plage horaire sous le nom de l élève dans mon planning,je serait comblé...

du style :

untel PIANO

(9h30 - 10h30)

merci d'avance à tous ceux qui prennent de leur temps pour nous venir en aide..

Bonsoir

A tester

Je n'ai pas testé l'affichage car je n'ai pas compris comment il fallait faire pour inscrire un cours

bonsoir et merci..mais ça bloque..erreur ..projet ou bibliothèque introuvable...

pour inscrire un cours..:

bah le bouton nouvel élève en haut a gauche du planning...

cela dit...

j'ai réussi..

une méthode bien plus simple visiblement..

j ai attribué un nom à chaque cellule d'élève du planning

exemple

ma cellule "untel PIANO" porte désormais le nom de "untel"

grâce à la commande MaPlage.Name = Nom

il suffit après de faire la macro du bouton :

Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 7/10/2011 par podi

    On Error Resume Next
    Dim Var
    Var = InputBox(Prompt:="Qui veux tu suprimer ?", Title:="supression d'un élève")

    Application.Goto Reference:=Var
    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
    With selection
        .HorizontalAlignment = xlGeneral
        .VerticalAlignment = xlCenter
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = True
    End With
    selection.UnMerge
End Sub

la boite imputbox s'ouvre

on tape "untel"

et voilou..

sa cellule est "défusionnée" ,son contenu ses bordures et sa couleur disparaissent...

je planche encore sur ma seconde question:

inscrire dans cette cellule fusionnée la plage horaire (9h30 - 10h00) au dessous de "untel PIANO"

Bonsoir

Il faudrait savoir ce qui bloque

Une fois l'erreur déclenchée

menu Exécution --> Réinitialiser

menu Outils --> Références et regarder dans la liste des références disponibles si il y en a de marquées "manquant" il suffit de les décocher et de relancer la macro

quelque chose de semblable à ça

Pour moi ta 2ème question était traitée dans ce programme

super!!

j ai quand même mis WrapText = True

pour avoir la plage horaire au dessous..

c'est vraiment sympa à toi de m'avoir aidé...

j 'avais bidouillé pour avoir un résultat semblable

mais je n'affichait que le début et la durée...

ta formule sur l'heure est vraiment ce qu'il me fallait !

encore merci !!

je pense que j'aurai sans doute besoin de tes services une autre fois..

je continue...

si ce projet te branche...n'hésite pas !

j ai plein d'idées pour améliorer ce planning de prof..

longue vie à banzai64. !!!

hello Banzai64

c'est cool...merci..

j aimerai voir ce que tu en as fait...

pis j ai encore besoin d'aide..je vois que tu es sur le forum...

tu as 2 min?

j ai modif un peu la compta..

jettes un œil sur feuille compta piano..

on a un onglet (j en ai fais qu'un pour essayer voir janvier ) pour choisir un tarif prédéfini..

le but est que quand je clique sur "autre..." , une box s'ouvre pour rentrer un tarif ..

ça doit pas être bien compliqué..

mais un qui sait vaut mieux que dix qui cherchent....

merci d'avance..

le Top serait peut être que le tarif s'affiche seul selon la durée prise par l'élève..

30 min=44euros

45min =66

1h= 80

1h30= 132

(prix au mois ..bien sur)

PS: je ne peux pas t'envoyer de message privé?