Discussion :

[xerios123]

bonjour

Je fais un logiciel permettant de gerer une liste de matériel

Je peu en rajouter et en supprimer
Lorsque je supprime une ligne dans un tableau, elle se retrouve donc vide, puis lorsque je rajoute un outil elle vient remplacer la ligne vide.

Cependant parfois... cela ne fonctionne pas et se met sur une ligne vide suivante?

Voici ma procédure

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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
Sub enregistrerprev(g1 As String, g2 As String, g3 As String, g4 As Date, g5 As String, g6 As String, g7 As String, g8 As String, g9 As Date, g10 As String, g11 As String, g12 As String, g13 As String, g14 As Date, g15 As String, g16 As String, g17 As String, g18 As String, g19 As Date, g20 As String, g21 As String, g22 As String, g23 As String, g24 As Date, g25 As String, g26 As String, g27 As String, g28 As String, g29 As Date, g30 As String)
 
Worksheets(3).Activate
 
Ligne = Worksheets(3).Range("a1").End(xlDown).Row
If Not Ligne = 1 Then Ligne = Ligne + 1
 
 
 
Cells(Ligne, 1).Value = 1
 
Cells(Ligne, 9).Value = compteura
 
Cells(Ligne, 10).Value = g1
Cells(Ligne, 11).Value = g2
Cells(Ligne, 12).Value = g3
Cells(Ligne, 13).Value = g4
Cells(Ligne, 14).Value = g5
Cells(Ligne, 15).Value = g6
Cells(Ligne, 16).Value = g7
Cells(Ligne, 17).Value = g8
Cells(Ligne, 18).Value = g9
Cells(Ligne, 19).Value = g10
Cells(Ligne, 20).Value = g11
Cells(Ligne, 21).Value = g12
Cells(Ligne, 22).Value = g13
Cells(Ligne, 23).Value = g14
Cells(Ligne, 24).Value = g15
Cells(Ligne, 25).Value = g16
Cells(Ligne, 26).Value = g17
Cells(Ligne, 27).Value = g18
Cells(Ligne, 28).Value = g19
Cells(Ligne, 29).Value = g20
Cells(Ligne, 30).Value = g21
Cells(Ligne, 31).Value = g22
Cells(Ligne, 32).Value = g23
Cells(Ligne, 33).Value = g24
Cells(Ligne, 34).Value = g25
Cells(Ligne, 35).Value = g26
Cells(Ligne, 36).Value = g27
Cells(Ligne, 37).Value = g28
Cells(Ligne, 38).Value = g29
Cells(Ligne, 39).Value = g30
 
Worksheets(1).Activate
 
End Sub

[jfontaine]

Bonjour,

Lorsque je supprime une ligne dans un tableau, elle se retrouve donc vide, puis lorsque je rajoute un outil elle vient remplacer la ligne vide.

Personnellement, a moins d'avoir un réel pré-requis, il me semble plus simple de supprimer la ligne et de toujours créer la nouvelle en dernier.

Quel est ton code de "suppression" de ligne ?
Car la ligne ci-dessous me semble correct si la cellule est bien vide.

Code :

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

Ligne = Worksheets(3).Range("a1").End(xlDown).Row

Une autre méthode pour retourner la première cellule vide d'une colonne

Code :

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

Range("A:A").SpecialCells(xlCellTypeBlanks).Row

[xerios123]

Merci pour la réponse

Mon code de supression c tous simplement de remplacer les cellules par ""

Je viens de tester ton code, cela ne change rien il décale d'une ligne...
Elle est pourtant bien vide

[aalex_38]

Bonjour,

Elle est pourtant bien vide

Sur ton tableau qui pose problème, si tu fais [CTRL] + [Fléche du bas], tu tombe bien sur la cellule juste avant la ligne vide ?

[xerios123]

Si je fais control + flèche du bas , sa m'envoye vers la ligne 6000, la fin de mon tableau, pas à ma première cellule vide

[jfontaine]

Plutôt que de mettre à vide par "" utilises l'instruction ClearContents

Code :

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

Range("A19:D19").ClearContents