Discussion :

[thugelife]

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.

[Theze]

Bonjour thugelife,

il faudrait que tu en dise un peut plus sur ce que tu souhaite faire ?

"Dim tot As Worksheet.Cells" ceci signifie que la variable tot contien toutes la collection de cellules de la feuille active.
Ce ne serait pas plutôt "Dim tot As Range" que tu voudrais ? car dans ce cas, tot peut représenter une cellule ou plusieurs.

En attendant plus de précisions.

Hervé.

[thugelife]

merci Theze j'ai rectifier.

[delphine35]

Essaye : (je ne sais pas si c'est exactement ce que tu veux faire ... )

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Dim tot As Range
 
Sub Newline()
 
    Set tot = Cells(11, 4)
 
    If tot.Value > "" Then     ' tot is nothing => sera toujours faux 
        tot.Offset(1, 0).EntireRow.Insert , CopyOrigin:=xlFormatFromLeftOrAbove  'insertion d'une ligne
        tot.Offset(1, 0).Select  'selection de la cellule
    End If
 
End Sub

[thugelife]

merci Delphine j'apprécie ton aide.
maintenant je parviens à insérer une ligne mais tot n'est pas incrémenté.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub Nline()
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
tot.Offset(1, 0).EntireRow.Insert , CopyOrigin:=xlFormatFromLeftOrAbove
'insertion d'une ligne
Set tot = tot.Offset(1, 0)
'incrémentation de tot
End If
End Sub

merci

maintenant j'ai un boucle infinie. aidez moi

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub Nline()
Dim test As Boolean
Set tot = Cells(11, 4)
'affectation de tot à la cellule D11
If tot Is Nothing Then test = True
Do While test = False
tot.Offset(1, 0).EntireRow.Insert , CopyOrigin:=xlFormatFromLeftOrAbove
'insertion d'une ligne
Set tot = tot.Offset(1, 0)
'incrémentation de tot
Loop
End Sub

[Theze]

Bonsoir thugelife,

Comment appelle tu la proc "Nline" ?
A partir de l'évennement "Worksheet_SelectionChange" ? si c'est le cas, il faudrait que tu neutralise les évennements avant d'exécuter ta proc (normalement celà ne devrait pas boucler ? Bizarre) du style :

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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
 
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'ou Private Sub Worksheet_Change(ByVal Target As Range)
 
    Application.EnableEvents = False
    Nline
    Application.EnableEvents = True
 
End Sub
 
'Voici la proc retouchée (si j'ai bien comrpis ce que tu souhaite faire, si D11 n'est pas vide, ajoute une ligne au dessous)
Dim tot As Range
 
Sub Nline()
 
    'affectation de tot à la cellule D11
    'le problème ici, c'est qu'à chaque
    'exécution de la proc, tot revient à D11
    'donc l'offset ne sert à rien si entre temps
    'il n'est pas utilisé ailleurs
    Set tot = Cells(11, 4)
 
    'si tot n'est pas vide
    If Not tot Is Nothing Then
       'insertion d'une ligne
        tot.Offset(1, 0).EntireRow.Insert
        'incrémentation de tot
        Set tot = tot.Offset(1, 0)
    End If
 
End Sub

Prends l'habitude de commenter ton code non pas dessous mais dessus les lignes, c'est plus clair pour ce qui doivent le lire, enfin, si je peux me permettre ce conseil.

Hervé.