Bonjour,
aidez moi à rectifier ce code.
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
....................................................................
Dim tot As Worksheet.Cells
'déclaration de tot en tanque céllule
........................................................
Sub Newline()
Dim test As Boolean
Set tot = Cells(11, 4)
'affectation de tot à la cellule D11
If tot Is Nothing Then test = True
If test = False Then
vbneuwline
'ajout de nouvelle ligne
tot = Cells(tot.lin + 1, 4)
'affectation de tot à la cellule du même colonne et de la ligne suivante
End If
End Sub
merci.