[Calc] Saisie rubrique et sous rubrique report de nom
Publié : 11 sept. 2012 09:03
Bonjour à tous!
Je reviens sur le travail de Alhrazed précisément et remercie encore toute l'équipe de volontaire qui m'a aidé je cite Churay,Piaf,alhazred
j'ai un petit souci, en effet mon employeur n'est pas encore satisfait de tout et demande des modifications:
Aussi quand je fais créer une réunion a la date du jour il m'est impossible d'ajouter une demande pour cette dernière comment cela se fait t'il? j'ai essayer de modifier le signe > avec une nouvelle condition if
j'ai essayé d'effectuer cette modif sur l'ancienne feuille Créer réunion que alhrazed m'avait gentiment fait grâce
ce qui m'est demandé:
Quand on appuie sur le bouton ajouter une demande un choix est effectué si on fait la demande pour quelqu'un d'autre aucun problème mais si on clique sur nom automatiquement la Boite de liste affiche la session de l'utilisateur, jusque la tout va bien, mais avec ce que j'ai fait quand je met la session d'utilisateur, le nom n'est pas reporté et il me met à la place #N/D désolé pour cette question un peu stupide mais comment résoudre ce problème
et éventuellement peut on me guider pour reporter le thème marqué sur une autre feuille aussi?
voici mon code modifié de la fonction de alhrazed setUsers
et voici le fichier Calc joint
Merci d'avance
Je reviens sur le travail de Alhrazed précisément et remercie encore toute l'équipe de volontaire qui m'a aidé je cite Churay,Piaf,alhazred
j'ai un petit souci, en effet mon employeur n'est pas encore satisfait de tout et demande des modifications:
Aussi quand je fais créer une réunion a la date du jour il m'est impossible d'ajouter une demande pour cette dernière comment cela se fait t'il? j'ai essayer de modifier le signe > avec une nouvelle condition if
Code : Tout sélectionner
Sub SetDates(listCtrl)
Dim maxRow As Long, i As Long, aDate As Date
With serviceSheet
maxRow = .GetCellByPosition(3,0).value+1 'D1 contient le nombre de réunions
For i = 2 To maxRow
aDate = .GetCellByPosition(3,i).value
If aDate > Now Then listCtrl.AddItem(Str(aDate),maxRow)
[color=#FF0000]if aDate = Now Then listCtrl.AddItem(Str(aDate),maxRow)[/color]
Next i
End With
End Sub
ce qui m'est demandé:
Quand on appuie sur le bouton ajouter une demande un choix est effectué si on fait la demande pour quelqu'un d'autre aucun problème mais si on clique sur nom automatiquement la Boite de liste affiche la session de l'utilisateur, jusque la tout va bien, mais avec ce que j'ai fait quand je met la session d'utilisateur, le nom n'est pas reporté et il me met à la place #N/D désolé pour cette question un peu stupide mais comment résoudre ce problème
et éventuellement peut on me guider pour reporter le thème marqué sur une autre feuille aussi?
voici mon code modifié de la fonction de alhrazed setUsers
Code : Tout sélectionner
Sub SetUsers(listCtrl)
Dim maxRow As Long, i As Long, aName As String, User As String
User= Environ ("USERNAME")
dim ibox as Integer
ibox = MB_YESNO+MB_DEFBUTTON2+MB_ICONQUESTION
if msgbox ("voulez vous faire une demande pour un autre utilisateur?",ibox)=idyes then
With serviceSheet
maxRow = .GetCellByPosition(0,0).value+1 'A1 contient le nombre d'utilisateurs
For i = 3 To maxRow
aName = .GetCellByPosition(0,i).string 'colonne B
listCtrl.AddItem(aName,maxRow)
Next i
End With
else
With serviceSheet
maxRow = .GetCellByPosition(0,0).value+1 'A1 contient le nombre d'utilisateurs
listCtrl.AddItem(User,maxRow)
listCtrl.SelectItemPos( 0, True )
End With
end if
End Sub