Tester le format d'une cellule et définir une valeur à une variable

Version imprimable

25/06/2012, 12h19
cortex62

Tester le format d'une cellule et définir une valeur à une variable

Bonjour le forum,

Je souhaiterais via une macro, tester le format d'une cellule, c'est à dire, vérifier que le contenu est de la forme NNNN/NNNN (ou N est un nombre), par exemple 1300/1500, ce qui correspond à un intervalle de temps 13h/15h.

Donc dans un premier temps, vérifier que la cellule contient ce genre d'écriture.
Et dans un deuxieme temps, assimiler les deux premiers chiffres de chaque heure à deux variables distinctes HeureDebut et HeureFin. Ainsi pour mon exemple, le résultat serait HeureDebut=13 et HeureFin=15.

Merci d'avance pour vos propositions.

Bonjour,

Une solution testant le contenu de la cellule A1 :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Option Explicit
Sub Test()
Dim Tablo
Dim HeureDebut As Byte
Dim HeureFin As Byte
    Tablo = Split(Range("A1"), "/")
    If UBound(Tablo) = 1 Then
        If IsNumeric(Tablo(0)) And Len(Tablo(0)) = 4 Then
            If IsNumeric(Tablo(1)) And Len(Tablo(1)) = 4 Then
                HeureDebut = Left(Tablo(0), 2)
                HeureFin = Left(Tablo(1), 2)
                MsgBox "Heure de début : " & HeureDebut & Chr(10) & _
                "Heure de fin : " & HeureFin
            End If
        End If
    End If
End Sub

Cordialement.

26/06/2012, 09h57
cortex62

bonjour gFZT82, le forum,

Merci pour ta réponse rapide et cela fonctionne tres bien.
Par contre, il s'agit de vérifier la cellule d'un Pivot et en particuler d'une cellule située dans les RowFields!!
Comment puis je faire pour implementer cette spécificité à ton code :/ ?
Merci pour ton aide
29/06/2012, 10h36
cortex62

bonjour gFZT82, le forum,

J'utilise actuellement le bout de code que tu m'a donné au sein de mon programme et je l'ai adapté a mon besoin.
A un moment de mon code j'ai besoin de définir in interval de temps composé des deux variables soit récupérer cet interval de la forme 1300/1500 avec les variables HeureDebut = 13 et HeureFin = 15
D'ou la ligne de code,

Code:

IntervalTime = HeureDebut & Chr(10) / HeureFin & Chr(10)

J'ai declarer

Code:

IntervalTime, HeureDebut, HeureFin as Integer

Mais quand j'execute j'ai un erreur 13 renvoyant a un probleme de type de variable :/
Probléme venant de ma ligne ou de mes déclarations, je ne sais pas. As tu une idée stp?

Merci pour ton aide
29/06/2012, 11h03
gFZT82

Bonjour,

Je ne suis pas sûr d’avoir bien compris.
Si tu souhaites obtenir la forme "1300/1500" avec les 2 variables HeureDebut = 13 et HeureFin = 15,
tu dois attribuer un format texte (string) à ta variable IntervalTime.

Code:

IntervalTime = CStr(HeureDebut * 100) & "/" & CStr(HeureFin * 100)

Cordialement.
29/06/2012, 11h24
cortex62

oui je souhaitais obtenir l'interval de la forme 1300/1500 en fonction des deux variables.
Merci ta ligne de code est correct et me renvoit le bon résultat, et ta déclaration de variables aussi ;)

Merci bien
Cordialement

Re,

Je me permets de te poser une autre question.
Il s'agit maintenant d'utiliser un GetPivotData.
Mon pivot se trouve dans l'onglet Pivot du classeur Release_v1.
Mon code est le suivant :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
Private Sub CommandButton1_Click()
 
Dim ws As Worksheet
Dim wb As Workbook
 
Dim Tablo
Dim CellToCheck As String
Dim i_Pivot As Integer
Dim j_Pivot As Integer
 
Dim iRow As Integer
Dim jColumn As Integer
 
Dim StartingHour As Byte
Dim EndindHour As Byte
Dim DayEvent As Integer
Dim IntervalTime As String
 
Dim ResultPivot As Range
Dim TimeSpent As Integer
Dim pvt As PivotTable
 
ChDir "D:\Documents and Settings\39518\Desktop\draft\v1"
 
Windows("Release_v1.xls").Activate
Set wb = Workbooks("Release_v1.xls")
Set ws = Worksheets("Pivot")
ws.Select
 
'column B
j_Pivot = 2
iRow = 5
jColum = 2
DayEvent = 1
 
'from the line to the end of the table
For i_Pivot = 6 To 50
 
CellToCheck = Cells(i_Pivot, j_Pivot)
Tablo = Split(CellToCheck, "/")
    'Presence of a value in the cell
    If UBound(Tablo) = 1 Then
        'Give value to the variables
        If IsNumeric(Tablo(1)) And Len(Tablo(0)) = 4 Then
            If IsNumeric(Tablo(1)) And Len(Tablo(1)) = 4 Then
            StartingHour = Left(Tablo(0), 2)
            EndindHour = Left(Tablo(1), 2)
            End If
        End If
 
        IntervalTime = CStr(StartingHour * 100) & "/" & CStr(EndindHour * 100)
 
        Windows("Release_v1.xls").Activate
        Set ws = Worksheets("Pivot")
        ws.Select
 
        'declare the pivot
        Set pvt = ws.PivotTables(1)
        'get the data from the pivot in function of variables
        ResultPivot = pvt.GetPivotData("Time spent on the release", A4, "Frequency", DayEvent, "Time of release", IntervalTime)

Voila comme çà tu as un aperçu de l'utilité de ton précédent code.
Je rencontre pas mal de difficultés à utiliser la fonction GetPivotData, non dans l'écriture des paramètres, mais sur ce qu'il y a autour c'est à dire la déclaration de variables etc..
Dans ce cas la, j'ai une erreur 1004 "Application Defined or object defined error" au niveau de ma ligne ResultPivot...
Et mon but est d'assimiler cette valeur présente dans le pivot à une variable que j'ai défini TimeSpent..
Suis je clair? :/

Merci d'avance pour ton aide parce que je suis vraiment en galére avec l'utilisation de cette fonction...

29/06/2012, 13h03
gFZT82

A tout hasard, as-tu vérifié la cohérence de tes paramètres avec ceux requis par cette méthode ?

Citation:

Syntaxe :
expression.GetPivotData(ChampDonnées, Champ1, Élément1, Champ2, Élément2, Champ3, Élément3)
29/06/2012, 13h44
cortex62

Oui je viens de vérifier les variables correspondent a des valeurs du pivot et au champs souhaité.
J'ai méme rajouter des "" pour les variables mais cela ne change rien.
L'aide dit que cette fonction génére un resultat en range , c'est pourquoi ResultPivot est déclaré en range..

ResultPivot = pvt.GetPivotData("Sum of Time spent on the release", A4, "Frequency", "DayEvent", "Time of release", "IntervalTime")

Et sinon au sujet de la cohérence des paramétres, Frequency et Time of release sont deux rowFiels, j'ai simplement recopier la formule donner par Excel...sans les $A$4..

Merci pour ton aide