| 12
 3
 4
 5
 6
 7
 8
 9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23
 24
 25
 26
 
 | Sub Validation_Cliquer()
 
 
    Dim FL1 As Worksheet ', Cell As Range
    Dim DerLig As Long, Magasin As String, LigEcriture As Long
 
 
    Magasin = ThisWorkbook.Worksheets("Données Générales").Range("O6").Value
 
    Set FL1 = Worksheets("Data" & Magasin)
 
    DerLig = Split(FL1.UsedRange.Address, "$")(4)
    'permet d'accéder à la dernière ligne avec des données de l'onglet Data
    'On va remplir l'onglet Data avec les données Une ligne pour Une validation de donnée
 
    'Pour pouvoir écrire dans la première ligne vide :
     LigEcriture = DerLig + 1
 
    'rentre le type de contrôle en DATA
    ThisWorkbook.Worksheets("Data" & Magasin).Cells(LigEcriture, 1).Value = ThisWorkbook.Worksheets("Données Générales").Range("D6").Value
 
    'rentre l'aggréeur en DATA
    ThisWorkbook.Worksheets("Data" & Magasin).Cells(LigEcriture, 2).Value = ThisWorkbook.Worksheets("Données Générales").Range("F6").Value
 
'ainsi de suite avec une dizaine de cellules...
End Sub | 
Partager