C
Crazyo
Guest
Tout d'abord, merci à ce fabuleux site et à tous ces intervenants, il y a peu j'ignorais tout de VBA, un mois plus tard, je commence à bien me débrouiller. Bravo à tous!!!
Bon, voilà mon problème:
Je me suis créé un petit cahier d'appel qui fonctionne parfaitement grace à certaines bonnes volontés de ce site, les 4 autres personnes connectées à notre petit réseau ne peuvent plus s'en passer. Du coup, ils m'ont demandé de faire de même pour les plannings. Donc j'ai mis en forme un tableau par jour, avec les 5 intervenants, et les horraires. J'use de mes nouvelles connaissances en VBA pour faire en sorte que lorsqu'on veut placer un nouveau rendez-vous, il suffit de sélectionner le nombre de cases souhaitées dans sa colonne (chaque case correspond à une demi-heure), on clique sur un petit bouton, ouverture d'Inputbox qui vous demande l'intitulé du rendez-vous etc... Tout marche au poil dans ma version test après quelques corrections, je met le fichier sur le réseau, mais ça marche pas, pourquoi?
Il me met "erreur d'execution 1004" - Impossible de définir la propriété MergeCells de la Classe Range.
Voilà mon code:
Sub Rendezvous()
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Dim NomRDV As String
NomRDV = InputBox("Entrez l'intitulé du Rendez-vous:", "Nouveau Rendez-vous", "Entrez l'intitulé du RDV ici")
ActiveCell.Value = NomRDV
ActiveCell.Interior.ColorIndex = 36
Selection.Merge
End Sub
Sub Rendezvousannulé()
Selection.ClearContents
With Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = True
End With
Selection.Interior.ColorIndex = 0
Selection.UnMerge
End Sub
Bon, voilà mon problème:
Je me suis créé un petit cahier d'appel qui fonctionne parfaitement grace à certaines bonnes volontés de ce site, les 4 autres personnes connectées à notre petit réseau ne peuvent plus s'en passer. Du coup, ils m'ont demandé de faire de même pour les plannings. Donc j'ai mis en forme un tableau par jour, avec les 5 intervenants, et les horraires. J'use de mes nouvelles connaissances en VBA pour faire en sorte que lorsqu'on veut placer un nouveau rendez-vous, il suffit de sélectionner le nombre de cases souhaitées dans sa colonne (chaque case correspond à une demi-heure), on clique sur un petit bouton, ouverture d'Inputbox qui vous demande l'intitulé du rendez-vous etc... Tout marche au poil dans ma version test après quelques corrections, je met le fichier sur le réseau, mais ça marche pas, pourquoi?
Il me met "erreur d'execution 1004" - Impossible de définir la propriété MergeCells de la Classe Range.
Voilà mon code:
Sub Rendezvous()
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Dim NomRDV As String
NomRDV = InputBox("Entrez l'intitulé du Rendez-vous:", "Nouveau Rendez-vous", "Entrez l'intitulé du RDV ici")
ActiveCell.Value = NomRDV
ActiveCell.Interior.ColorIndex = 36
Selection.Merge
End Sub
Sub Rendezvousannulé()
Selection.ClearContents
With Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = True
End With
Selection.Interior.ColorIndex = 0
Selection.UnMerge
End Sub