Discussion :

[cortex62]

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.

[gFZT82]

Bonjour,

Une solution testant le contenu de la cellule A1 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[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

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

J'ai declarer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Cordialement.

[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