Horaire convertie en text horaire

Bonsoir,

J'ai bosses toujours sur base en vba avec les infos GMB; Civo; Yvouille; pijaku mon donnée Merci à vous.

Donc commence avec un usf simple pour validé les entrée sur ma feuille base

J'ai une feuille paramètre et mais combobox sont alimenté ROWSOURCE parametre!H2:H100 par elle dont une colonne horaire avec la plage horaire définie.

des que je fais ma sélection dans mon combobox 3 combobox 4 combobox 5 combobox 6 ma sélection est convertie en texte horaire

Exple 06:30 me donne 02, etc... et cela me pose probleme pour mes formules . ma combobox 7 est ok

snapshot446

Bonjour

Vérifies si cela te convient

Bonjour, Banzai64

Merci,effectivement c'est cela que je voulais et j'ai pu constater que tu à déclaré les combobox différemment.

Et comme j'aimes bien comprendre et sans recopier inutilement ,

que signifie For J = 2 To 49 je suppose que le 2 c'est la deuxième ligne ou commence ma donnée du genre H2 et le 49 est ce le nombre de colonne ecrite ou qui vont contenire mes données horaire.

' parametre!H2:H100

With Sheets("Parametre")

For J = 2 To 49

Me.ComboBox3.AddItem .Range("H" & J).Text

Me.ComboBox4.AddItem .Range("H" & J).Text

Me.ComboBox5.AddItem .Range("H" & J).Text

Me.ComboBox6.AddItem .Range("H" & J).Text

Next J

End With

Merci d'avance.

Bonjour

kira972j a écrit :

le 2 c'est la deuxième ligne

Exact

kira972j a écrit :

et le 49 est ce le nombre de colonne

Non 49 est la dernière ligne contenant tes horaires en colonne H

On fait une boucle For J = 2 To 49 pour alimenter les 4 ComboBox

Ok merci c'est compris je peux continuer ma base .

Re bonsoir Banzai64

J'ai presque terminer mon usf mais je me retrouve avec le problème de texte horaire mais cette fois lorsque je rappel les infos de la feuilles dans mes usf de modification qui me permet de modifier une ligne déjà inséré dans ma base .

Et aussi je comprend pourquoi je peux lancer mon usf que depuis ma feuille base , si je crée un bouton depuis mon tableau de bord ou paramètre j'ai un débogage .

Bonjour

A vérifier

Salut Banzai64

Pour ma commande modifier c'est ok , par contre j'ai relu les lignes de commande et je n'ai pas vue se que as modifier,pourrais tu m'expliquer, ensuite pourquoi lorsque je lance ma commande modifier depuis ma feuille tableau de bord que tu as aussi rectifier pour le l'ouverture de l'usf , ma combobox8 de recherche prend en compte ma colonne A du tavleau de bord et non celle de la feuille base ,La commande supprimé me fais aussi la même chose depuis le tableau de bord et la commande saisie qui ne renvoie pas mes infos pourtant dans :

Private Sub userForm_Initialize()

TextBox5 = Date ' la date du jour dans une textbox lors de l'ouverture de l'userform .

With Sheets("Base")

Ligne = Range("A" & Rows.Count).End(xlUp)(2).Row

If Ligne > 3 Then 'teste si des valeurs sont saisies...exple A3

ComboBox8.List = Range("A3:A" & Ligne).Value

Ligne = Ligne - 1

ComboBox8.ListIndex = 0

End If

End With

Par contre si je suis dans ma feuille Base tout fonctionne Pile Poil

Bonjour

Les erreurs trouvées sont en principe notées

La principale erreur est l'oubli du point devant Range (ou Cells)

Exemple

Private Sub userForm_Initialize()
TextBox5 = Date  ' la date du jour dans une textbox lors de l'ouverture de l'userform .
  With Sheets("Base")
    Ligne = .Range("A" & Rows.Count).End(xlUp)(2).Row                                  ' Il manquait le . devant Range******************************
    If Ligne > 3 Then  'teste si des valeurs sont saisies...EXPLE A3
      ComboBox8.List =.Range("A3:A" & Ligne).Value                                     ' Il manquait le . devant Range ******************************
      Ligne = Ligne - 1
      ComboBox8.ListIndex = 0
    End If
  End With

A tester

Bonjour je viens juste de prendre note de to message a cause du décalage horaire

et merci de ta réponse, je regarde des que j aurais 5 minutes a mo bureau .

À cordialement

RE

Excuse moi encore une fois mais j'ai toujours le même problème avec le bouton supprimé qui me mets en test horaire quelque soit la page TBD ou BASE .

Et sur le tableau de bord usf nouveau lorsque je valide ma saisie les infos ne vont pas dans la feuille Bade , j'ai déjà vérifié mais je ne trouve pas pourquoi.

Bonjour

A vérifier

Re

Je viens juste de prendre note de se que tu m as envoyer et j'ai un vert mes erreurs merci, donc lorsque je récupére l'info d'une ligne pour envoyer dans mon USF que se soit pour modifier ou supprimé il est préférable de mette .Text au lieu de value

et lorsque j'envoie une info depuis mon usf vers ma feuille je met .Value .

Est ce bien cela . par contre la saisie ne fonctionne tjrs pas depuis le tableau de bord lorsque je valide je ne sais pas ou vont les infos.

En tout merci pour ton aide qui me permet d'y voir plus clairement et surtout de comprendre sans répétée des lignes de commande inutilement.

Bonjour

kira972j a écrit :

Est ce bien cela

Oui

kira972j a écrit :

par contre la saisie ne fonctionne tjrs pas depuis le tableau de bord lorsque je valide je ne sais pas ou vont les infos.

Je n'arrive pas à comprendre où est l'erreur

Détailles bien les opérations à faire pour reproduire l'erreur

Merci du conseil ,

Je cherche toujours je te tien au courant

Bonsoir,j'ai cherché mais je ne comprend toujours pas pourquoi il faut que je sois obligatoirement sur ma feuille active("Base") pour que mon usf fonctionne correctement

Si je le lance depuis le tableau de bord ou bien paramètre lorsque je valide mon usf1 mes données ne sont pas transféré dans la feuille base qui est pourtant déclaré dans ma commande.

Bonsoir

J'ai fait un essai depuis la page "Tableau de Bord" et aucun souci les données sont bien copiées dans la page Base

Bonsoir, je te remercie effectivement cela fonctionne mais j'aurais une derniere question a te poser

Si je veux que ma ligne d insertion soit incrémenté vers le haut et non vers le bas .

Pour que ma dernière saisie s 'affiche dans A à chaque fois .

Bonjour

Tu laisses comme c'est fait actuellement, puis tu fais un tri ensuite, tu auras ta dernière ligne en premier

Salut , mon souci est que lorsque je fais mon trie mes formules ne suivent pas .

Mais bon je vais trouver une autre solution Merci en tout cas

Rechercher des sujets similaires à "horaire convertie text"