Pb parcours chaine vba
Résolu/Fermé
niny@
Messages postés
107
Date d'inscription
mercredi 12 mars 2008
Statut
Membre
Dernière intervention
16 septembre 2008
-
3 avril 2008 à 11:04
niny@ Messages postés 107 Date d'inscription mercredi 12 mars 2008 Statut Membre Dernière intervention 16 septembre 2008 - 3 avril 2008 à 11:18
niny@ Messages postés 107 Date d'inscription mercredi 12 mars 2008 Statut Membre Dernière intervention 16 septembre 2008 - 3 avril 2008 à 11:18
A voir également:
- Pb parcours chaine vba
- Chaine tnt gratuite sur mobile - Guide
- Nouvelle chaîne tnt gratuite 2024 - Accueil - TV & Vidéo
- Chaine radio - Télécharger - Médias et Actualité
- Plus de chaine tv - Guide
- Mes parcours google - Guide
1 réponse
niny@
Messages postés
107
Date d'inscription
mercredi 12 mars 2008
Statut
Membre
Dernière intervention
16 septembre 2008
3 avril 2008 à 11:18
3 avril 2008 à 11:18
c'est bon en fait j'ai trouvé voici mon code pour ceux qui auront le même pb :
With label_cal
.Left = (36 + EspaceX) * (col - 1) + 13
.Top = (36 + EspaceY) * (lig - 1) + 33
.Height = 12
.Width = 15
.Font.Size = 7
var = InStr(1, Cells(lig, col).Value, "!")
var = var + 1
If Mid(Cells(lig, col).Value, var, 1) <> "|" Then
label_cal.Caption = Mid(Cells(lig, col).Value, var, 2)
Else
label_cal.Caption = ""
End If
End With
bon aprés je promet rien sur la qualité du prog mais ca marche chez moi
With label_cal
.Left = (36 + EspaceX) * (col - 1) + 13
.Top = (36 + EspaceY) * (lig - 1) + 33
.Height = 12
.Width = 15
.Font.Size = 7
var = InStr(1, Cells(lig, col).Value, "!")
var = var + 1
If Mid(Cells(lig, col).Value, var, 1) <> "|" Then
label_cal.Caption = Mid(Cells(lig, col).Value, var, 2)
Else
label_cal.Caption = ""
End If
End With
bon aprés je promet rien sur la qualité du prog mais ca marche chez moi