Afficher 2 variables en format heure dans la même cellule??

Afficher 2 variables en format heure dans la même cellule?? - VB/VBA/VBS - Programmation

Marsh Posté le 27-06-2011 à 10:03:32    

Bonjour,
Je dois retraiter une feuille de données excel et surtout l'automatiser!
Donc j'utilie le VBA mais en vain...
 
Voilà mon pb:  :??:  
J'ai 6 colonnes qui représentent des horaires de livraisons des magasins du lundi au samedi. Ces colonnes peuvent être toutes remplies, ou que quelques jours dans la semaine, les résultats sont stockés dans des variables (rep1, rep2 et rep3) que je souhaite faire afficher ensuite selon la règle:
  => si identiques: renvoyer le délai
  => si 1/2 différent: le delai répété + le problématique1 + le preoblématique 3
Le code est le suivant mais les heures se transforment en format décimal et ne gardent pas leur format d'heure...

Code :
  1. Public Sub synthese_heure()
  2. Dim x As Integer
  3. Dim y As Integer
  4. Dim c As Integer
  6. Columns("K" ).Select
  7. selection.ClearContents
  8. Range("K1" ) = "horaires"
  10. x = Range("A65536" ).End(xlUp).Row
  11.     For y = x To 2 Step -1
  12.     rep = Empty
  13.     rep2 = Empty
  14.     rep3 = Empty
  15.         For c = 42 To 47
  16.             donnée = Cells(y, c)
  17.             If donnée <> "" Then
  18.                 If IsEmpty(rep) Then
  19.                     rep = donnée
  20.                 ElseIf donnée = rep Then
  21.                     rep = rep
  22.                 ElseIf donnée <> rep Then
  23.                     rep2 = donnée
  24.                 ElseIf donnée <> rep2 Then
  25.                     rep3 = donnée
  26.                 Else: End If
  27.             Else: End If
  28.         Next c
  29.         If IsEmpty(rep2) Then
  30.             Cells(y, 48) = rep
  31.         ElseIf IsEmpty(rep3) Then
  32.             Cells(y, 49) = rep2
  33.         Else
  34.             Cells(y, 50) = rep3
  35.         End If
  36.     Next y
  37. Columns("K:K" ).Select
  38. selection.NumberFormat = "h:mm;@"
  39. End Sub


Suis preneuse de toutes solutions...
Merci de votre lecture, A bientôt  :hello:

Reply

Marsh Posté le 27-06-2011 à 10:03:32   

Reply

Marsh Posté le 27-06-2011 à 10:19:03    

Après re-travail le code est le suivant:

Code :
  1. Public Sub synthese_heure()
  2. Dim x As Integer
  3. Dim y As Integer
  4. Dim c As Integer
  6. Columns("K" ).Select
  7. selection.ClearContents
  8. Range("K1" ) = "horaires"
  10. x = Range("A65536" ).End(xlUp).Row
  11.     For y = x To 2 Step -1
  12.     rep = Empty
  13.     rep2 = Empty
  14.     rep3 = Empty
  15.         For c = 42 To 47
  16.             donnée = Cells(y, c)
  17.             If donnée <> "" Then
  18.                 If IsEmpty(rep) Then
  19.                     rep = donnée
  20.                 ElseIf donnée = rep Then
  21.                     rep = rep
  22.                 ElseIf donnée <> rep Then
  23.                     rep2 = donnée
  24.                 ElseIf donnée <> rep2 Then
  25.                     rep3 = donnée
  26.                 Else: End If
  27.             Else: End If
  28.         Next c
  29.         If IsEmpty(rep2) Then
  30.             Cells(y, 11) = rep
  31.         ElseIf IsEmpty(rep3) Then
  32.             Cells(y, 11) = (rep & " - " & rep2)
  33.         Else
  34.             Cells(y, 11) = (rep & " - " & rep2 & " - " & rep3)
  35.         End If
  36.     Next y
  37. Columns("K:K" ).Select
  38. selection.NumberFormat = "h:mm;@"
  39. End Sub

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed