Voilà, je viens de nouveau m'adresser aux passionnés qui vont peut-être (sans nul doute) m'apporter de l'aide sur ma feuille calc.
En effet, j'essaie de valider un TextField et un TimeField en même temps. Le soucis c'est que la validation est décalé via ma boite de dialogue. J'en conclue que ça provient d'une erreur d'exécution de ma boite mais je ne vois pas où (il n'y a certainement pas que ça et c'est sur!).
J'aurais donc espéré que vous me corrigiez sur cette simple macro.
Voici le code (le fichier est joint) :
Code : Tout sélectionner
REM ***** BASIC *****
REM ***** BASIC *****
Sub Lancer
For i = 4 To 1500
LancerChrono("F" & i)
LancerDossard("G" & i)
If oDlg.GetControl("TextField1").Text = "stop" Then
oTrouve = true
Exit For
End If
Next i
End Sub
Sub LancerChrono(ref)
'Charge la boîte de dialogue en mémoire
DialogLibraries.LoadLibrary("Standard")
oDlg = CreateUnoDialog(DialogLibraries.Standard.NDossard)
'Affiche l'heure actuelle
champHeure=oDlg.getControl("ChampHeure")
champHeureDepart=oDlg.getControl("ChampHeureDepart")
oDocument = thisComponent
oFeuilles = oDocument.Sheets
champHeure.Time=ConvHeureLong(Time)
champHeureDepart.Time=champHeure.Time 'Fixe heure par défaut à l'ouverture
'ouvre la boîte de dialogue
oDlg.Execute()
oFeuille = oFeuilles.getByName("Feuille1")
oCellule = oFeuille.getCellRangeByName(ref)
oCellule.Value = CDate(Time)
End Sub
Sub LancerDossard(ref)
DialogLibraries.LoadLibrary("Standard")
oBibli=DialogLibraries.GetByName("Standard")
oDialogue=oBibli.GetByName("NDossard")
oDialog1=CreateUnoDialog(oDialogue)
oDocument = thisComponent
oFeuilles = oDocument.Sheets
oDialog1.execute
oFeuille = oFeuilles.getByName("Feuille1")
oCellule = oFeuille.getCellRangeByName(ref)
oCellule.value = oDialog1.GetControl("TextField1").Text
Exit Sub
End Sub
mais pourriez-vous m'aider et m'apporter votre aide. Merci à tous.
)
