Timevalue

[ymrabet]

Bonjour,
Je souhaite utiliser la fonction Application.OnTime comme ci-dessous, par contre je veux mettre la valeur seconde en variable: je m'explique: j'ai un textbox ou je rentre la valeur de la seconde.
Application.OnTime Now + TimeValue("00:00:variableseconde"), "majChrono" ==> ca ne marche pas
merci de votre aide.
cdt

 

[pierrejean]

Re : Timevalue

Bonjour

Sans garantie:

Application.OnTime Now + TimeValue("00:00:" & variableseconde), "majChrono"

 

[ymrabet]

Re : Timevalue

Merci bcp ca marche

cdt

 

[tototiti2008]

Re : Timevalue

Bonjour ymrabet, Bonjour Pierre 🙂,

Pas sûr que ce soit indispensable mais je ferais plutôt

Application.OnTime Now + TimeValue("00:00:" & format(variableseconde,"00")), "majChrono"

Si les secondes sont inférieures à 60, sinon

Application.OnTime Now + variableseconde/86400, "majChrono"

 

[ymrabet]

Re : Timevalue

merci pour ce retour, je bloque sur une erreur de compilation: "next sans for"

voici mon code:
merci encore de votre aide.

Private Sub CommandButton114_Click()
Dim refcolonnejoueur As Integer
Dim i As Integer


refcolonnejoueur = Application.Match(UserForm2.ComboBox6.Value, UserForm2.Spreadsheet6.Range("A1:CZ1"), 0)
' je recupere la ref de la colonne du joueur selectionné dans combobox6

For i = 3 To 30000 ' je fais une boucle sur la ref de la ligne


If UserForm2.Spreadsheet6.Cells(i, refcolonnejoueur - 1).Value = UserForm2.ComboBox7.Value Then
' si le contenue de la celule ( i, colonne -1) est = à combobox7

UserForm2.ListBox3.Value = UserForm2.Spreadsheet6.Cells(i, refcolonnejoueur).Value
'alors je copie la cells(i,refcolonnejoueur) dans listbox3

Else
Next i

End If

End Sub

 

[tototiti2008]

Re : Timevalue

Re,

tu imbriques ton for et ton If de façon interdite

Soit tu imbriques comme ça :

For..
If...
Else...
End if
Next

soit tu imbriques comme ça

If...
For...
Next
else..

End if

Mais pas un mix des deux....

 

[ymrabet]

Re : Timevalue

Desole mais je n'arrive pas... voici encore mon code avec des explications et un fichier excel en piece jointe
Merci de votre aide.

Private Sub CommandButton114_Click()
Dim refcolonneaction As Integer
Dim i As Integer


' je choisi dans ComboBox6 un nom d'action:
' je choisi dans ComboBox7 un n°d'acteur

refcolonneaction = Application.Match(UserForm2.ComboBox6.Value, UserForm2.Spreadsheet6.Range("A1:CZ1"), 0)
' je recupere la ref de la colonne de l'action selectionné dans combobox6

For i = 3 To 30000 ' je fais une boucle sur la ref de la ligne


If UserForm2.Spreadsheet6.Cells(i, refcolonneaction - 1).Value = UserForm2.ComboBox7.Value Then
' si le contenue de la celule ( i, colonne action -1) est = à combobox7

UserForm2.ListBox3.Value = UserForm2.Spreadsheet6.Cells(i, refcolonnejoueur).Value
'alors je copie la cells(i,refcolonneaction ) dans listbox3

Else
Next i

End If

End Sub

 

[ymrabet]

Re : Timevalue

avec le petit fichier c'est mieux

 

[tototiti2008]

Re : Timevalue

Bonsoir ymrabet,

Il n'y a pas de code dans les fichiers xlsx, donc pas de VBA dans le fichier fourni

peut-être

Private Sub CommandButton114_Click()
Dim refcolonnejoueur As Integer
Dim i As Integer


refcolonnejoueur = Application.Match(UserForm2.ComboBox6.Value, UserForm2.Spreadsheet6.Range("A1:CZ1"), 0)
' je recupere la ref de la colonne du joueur selectionné dans combobox6

For i = 3 To 30000   ' je fais une boucle sur la ref de la ligne


If UserForm2.Spreadsheet6.Cells(i, refcolonnejoueur - 1).Value = UserForm2.ComboBox7.Value Then
' si le contenue de la celule ( i, colonne -1) est = à combobox7

UserForm2.ListBox3.Value = UserForm2.Spreadsheet6.Cells(i, refcolonnejoueur).Value
'alors je copie la cells(i,refcolonnejoueur) dans listbox3

Else


End If
Next i
End Sub