au secours: application.imputbox

[doumé]

Bonsoir le forum

Depuis quelque jour je bute sur un probleme:
-dans mon userform, un click sur un bouton provoque une procédure évènementielle,
-dans la procédure, la méthode 'application.imputboxd' me demande de choisi une date dans le planning (feuille de calcul)
environ 1 fois sur 2, une erreur indiquant 'objet requis' m'interromp dans mon élan!
Que puis-je faire? La procédure est la suivante:
*******************************************
Private Sub CmbFenetre_Click()
Application.ScreenUpdating = True
UserForm1.Hide
Dim Maplage As Range
Sheets('Fiche opération').Activate
Dim nb As Integer
Set Maplage = Application.InputBox( _
prompt:='Selectionner une Plage', Type:=8)
nb = Maplage.Columns.Count
TxtPrevideb.Value = Cells(2, Maplage.Column).Value
TxtPrevifin.Value = Cells(2, Maplage.Column + nb - 1).Value
Sheets('Fiche opération').Activate
UserForm1.Show
End Sub

******************************************

Merci d'avance infiniment pour la réponse

 

[Bebere]

bonsoir Doumé
il faut écrire comme suit
l index de ligne,c index de colonne
TxtPrevideb.Value = Maplage(l, c)
à bientôt

 

[doumé]

En fait, dans la feuille de calcul (le planning ou je selectionne les dates) , les dates sont à la ligne 2 mais je peux selectionner n'importe ou, et la valeur de la ligne 2 est renvoyée. De plus, cela me renvoi 2 dates: la valeur de la 1ère et de la dernière colonne selectionné. Le problème est lorsque le programme passe sur la ligne 'set Ma plage= application.inputbox(....'

a+

 

[Bebere]

bonjour Doumé
si tu veux trouver une date,le code suivant le fait

Private Sub TrouveDate()
Dim Cel As Range, StartDate As String
StartDate = InputBox('Enter the Start Date: (jj/mm/aa)')
Set Cel = Worksheets('Base').Range('B2:B' & Range('B65536').End(xlUp).Row).Find _
(what:=DateValue(StartDate), LookIn:=xlFormulas)

MsgBox Worksheets('Base').Cells(Cel.Row, Cel.Column).Value

end sub

à bientôt

 

[doumé]

Bonsoir Bébere

Merci pour ton aide. Dans mon application, je souhaite réellement choisir une date dans le planning car je veux visualiser en direct la disponnibilité des salarés et la méthode que je souhaite réaliser est pratique car je n'ai pas de date à saisir au clavier mais à selectionner à la sourie dans le planning. La métode 'application.inputbox' ou le contrôle 'refedit' me semble les plus appropriés.
Le tableau se présente comme suit:
- à la ligne 2: les dates
- en colonne 1: les tâches à réaliser,
- Dans le tableau les heures affectées au taches pour chaque jour (avec une couleur de font suivant pluieurs critères)

Merci d'avance