Pb parcours chaine vba
Résolu
niny@
Messages postés
107
Date d'inscription
Statut
Membre
Dernière intervention
-
niny@ Messages postés 107 Date d'inscription Statut Membre Dernière intervention -
niny@ Messages postés 107 Date d'inscription Statut Membre Dernière intervention -
A voir également:
- Pb parcours chaine vba
- Chaine tnt gratuite sur mobile - Guide
- Chaine radio - Télécharger - Médias et Actualité
- Plus de chaine tv - Guide
- Chaine musique bouygues - Accueil - Guide TV et vidéo
- Mes parcours google - Guide
1 réponse
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