Private Sub UserForm_Initialize()
'Déclaration de variable
Dim j As Integer
Dim x As ListItem
Dim i As Integer
Dim madate As Date
'*******************************
'Code pour attribuer l'image au
'Backgrown du UserFormOpen
'*******************************
With UserFormOpen
.Picture = LoadPicture("C:\Users\Tchis\Desktop\DTC-S.A.S\Images\Image1.jpg") 'Le chemin d'accès pour l'image de fond est à prendre en compte
.PictureSizeMode = fmPictureSizeModeStretch 'Lorsqu'il s'agira de l(insérer sur le réseau il faut à tout prix
.Height = Me.Height ' Mettre l'image sur réseau puis c'est son chemin d'accès qui viendra etre mis dans le code VBA
End With
'**********************************************************************
'Code permettant de rendre transparent Frame1 (Générer un nouveau suivi)
'***********************************************************************
'**********************************************************************
'on met la copie bmp du fond de l'userform dans un nouveau control image dynamique
'l'image aura la meme taille que l'interieur du userform
'la meme propriété d'affichage
' reste plus qu'a la depacer de exactement le left et le top de la frame mais !!!! en negatif
'comme c'est le dernier controls ajouté on le met en arriare plan "zorder 1"
'**********************************************************************
'**********************************************************************
Set img = Me.Frame1.Controls.Add("forms.Image.1", "fondframe")
With img
.Move 0 - Frame1.Left - 1, 0 - Frame1.Top - 1, Me.InsideWidth, Me.InsideHeight
.Picture = Me.Picture
.PictureSizeMode = Me.PictureSizeMode
.ZOrder 1
End With
'******************************
'Suite Code pour ne pas afficher l'interfaceMenu(Frame2)
'au lancement de la userFormOpen
'******************************
Me.Frame2.Left = Me.Width
'***********************************
'***********************************
'Code pour avoir des valeurs par défauts
'à l'ouverture du USF
'***********************************
'***********************************
TextBox4 = Year(Now) 'Pour avoir l'année auto en valeur par défaut à l'ouverture du USF
TextBox6 = StrConv(Format(Date, "mmmm"), vbProperCase) 'Pour avoir le Mois auto par défaut à l'ouverture du USF
TextBox8 = Format(DatePart("ww", Now, vbMonday, vbFirstFourDays), "\S00") 'Pour avoir la semaine d'enregistrement par défaut à l'ouverture du USF
Me.TextBox10.Value = Format(Date, "dd/mm/yyyy") 'Pour avoir la date d'enregistrement par défaut à l'ouverture du USF
If Sheets("Source").Range("A3").Value = "" Then
Me.TextBox2.Value = 1
Else
Me.TextBox2.Value = Application.Max(Sheets("Source").Columns(1)) + 1
End If
'***********************************************************************
'***********************************************************************
'Code permettant d'initailiser ma listview au démarrage de mon USF
'***********************************************************************
'***********************************************************************
Me.ListView1.View = lvwReport
With Sheets("Source").ListObjects("Tbl_Datas") 'charger les en-tetes de la ListView1 à partir de la ligne d'entete de la table "Tbl_Datas"
For j = 1 To .HeaderRowRange.Columns.Count
Me.ListView1.ColumnHeaders.Add , , .HeaderRowRange(j)
Next j
For i = 1 To .ListRows.Count
Set x = Me.ListView1.ListItems.Add(, , .DataBodyRange(i, 1)) 'on créé l'item principal = nouvelle ligne
For j = 2 To .ListColumns.Count 'on crée les sous item = autres colonnes de la ligne
x.ListSubItems.Add , , .DataBodyRange(i, j)
Next j
Next i
End With
End Sub