Discussion :

[deamonRav]

Bonjour,

J'ai actuellement un tableau me servant de base de données, j'aimerais pouvoir ajouter/insérer une ligne à la fin d'une série d'un même nom.

Par exemple
colonne1 colonne 2
01 01 01 Pierre
01 01 01 Craie
01 01 02 Banane

mon but serait d'intégrer "01 01 01 Pierre bleue" entre les lignes "Craie" et "Banane".

Cela est il possible, pour le moment je n'arrive pas à insérer de ligne mais à modifier les cellules de mon tableau

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
 With Sheets("Annexe II Art. R541-8")
    Set c = .Columns(2).Find(Ttb_Codedéchet.Value, LookIn:=xlValues, lookat:=xlWhole) 'cherche le matériaux dont la cellule densité est sélectionnée
            'Vérifie que le code déchet existe
            If Not c Is Nothing Then
            'Si le matériaux existe déjà dans feuille donnée Medeco type
                With Sheets("Données MEDECO type")
                    Set b = .Columns(3).Find(Ttb_DesignMat.Value, LookIn:=xlValues, lookat:=xlWhole)
                    If Not b Is Nothing Then
                        MsgBox ("Le matériau existe déjà!" & ud.Range(dTarget).Value)
                        Ttb_Codedéchet.Value = ""
                        Ttb_DesignMat.Value = ""
                    Else
                        MsgBox ("Mat new")
                        Set b = .Columns(1).Find(Ttb_Codedéchet.Value, LookIn:=xlValues, lookat:=xlWhole)
                        udTarget = b.Offset(0, 0).Address
                        .Range(udTarget).End(xlUp).Offset(1, 0).Value = b.Value 'on l'ajoute dans feuille données
                        .Range(udTarget).End(xlUp).Offset(0, 1).Value = Ttb_DesignMat.Value 'et sa densité
                        Set b = Nothing
                    End If
                    Set b = Nothing
                End With
 
            Else    'Si matéraux n'existe pas
                MsgBox "Code Déchet inexistant impossible de créer une nouvelle donnée"
                Ttb_Codedéchet.Value = ""
            End If
 
    Set c = Nothing
    End With

D'avance merci

[casefayere]

Bonsoir,

une idée à adapter

Code :

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

1
2
3
4
5
6
7
8
Dim x As Integer, l As Integer
l = 1 'attention ligne où tu commences la recherche
For x = 2 To taderniereligne
   If UCase(Range("a" & x)) Like UCase(Ttb_Codedéchet.Value) Then
   l = l + 1
   End If
Next x
Range("a" & l, "b" & l).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

[mercatog]

Code :

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

1
2
3
4
Dim i As Long
For i = Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1
    If Range("A" & i - 1).Value <> Range("A" & i).Value Then Rows(i).Insert
Next i

permet d'ajouter une ligne vide à chaque modification dans la série de données

[deamonRav]

Entre temps, j'avais essayer

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
Dim i As Integer
i = 0
 
    If Not Right(Ttb_Codedéchet, 1) <> "" Then
          MsgBox "Veuillez entrer un Code Déchet"
          Ttb_Codedéchet.SetFocus
          Exit Sub
    End If
 
 
    With Sheets("Annexe II Art. R541-8")
    Set c = .Columns(2).Find(Ttb_Codedéchet.Value, LookIn:=xlValues, lookat:=xlWhole) 'cherche le matériaux dont la cellule densité est sélectionnée
            'Vérifie que le code déchet existe
            If Not c Is Nothing Then
            'Si le matériaux existe déjà dans feuille donnée Medeco type
                With Sheets("Données MEDECO type")
                    Set b = .Columns(3).Find(Ttb_DesignMat.Value, LookIn:=xlValues, lookat:=xlWhole)
                    If Not b Is Nothing Then
                        MsgBox ("Le matériau existe déjà!" & ud.Range(dTarget).Value)
                        Ttb_Codedéchet.Value = ""
                        Ttb_DesignMat.Value = ""
                    Else
                        MsgBox ("Mat new")
                        Set b = .Columns(1).Find(Ttb_Codedéchet.Value, LookIn:=xlValues, lookat:=xlWhole)
                        While b.Rows(b.Row + i).Value = b.Value
                        i = i + 1
                       Wend
                        udTarget = b.Rows(b.Row + i).Address
                        Sheets("Données MEDECO Type").Rows(b.Row + i).Insert
                        .Range(udTarget).End(xlUp).Offset(i + 1, 0).Value = b.Value 'on l'ajoute dans feuille données
                        .Range(udTarget).End(xlUp).Offset(i + 1, 1).Value = b.Offset(0, 1).Value
                        .Range(udTarget).End(xlUp).Offset(i + 1, 2).Value = Ttb_DesignMat.Value 'et sa densité
                        Set lisTab = Nothing
                        Set b = Nothing
                    End If
                    Set b = Nothing
                End With
 
            Else    'Si matéraux n'existe pas
                MsgBox "Code Déchet inexistant impossible de créer une nouvelle donnée"
                Ttb_Codedéchet.Value = ""
            End If
 
    Set c = Nothing
    End With

Le problème c'est qui écrit les données en repartant du début du tableau juste en descendant de "i+2"...

Je vais essayer vos code, mais je ne comprend ce que représente "A" dans

Code :

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

Range("A" & i)

Merci à vous

D'accord "A" c'est la colonne A tout simplement, en fait!

[deamonRav]

Ouf j'ai réussi!
La ligne s'insère bien en dessus de celle déjà existante et se remplisse...

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
 Set b = .Columns(1).Find(Ttb_Codedéchet.Value, LookIn:=xlValues, lookat:=xlWhole)
                        For X = 2 To 126
                            If UCase(Sheets("Données MEDECO type").Range("A" & X)) = UCase(b) Then
                                i = i + 1
                                r = b.Row + i
                                udTarget = Sheets("Données MEDECO type").Range("a" & r).Address 'CREER une variable qui permette de reprendre l'adresse de la cellule souhaitée dans le tableau type.
                            End If
                        Next X
                        'udTarget = b.Rows(b.Row + i).Address!!!!!!!!!!!!!!!!FAUX
                        Sheets("Données MEDECO Type").Rows(r).Insert
                        .Range(udTarget).Offset(0, 0).Value = b.Value  'on l'ajoute dans feuille données
                        .Range(udTarget).Offset(0, 1).Value = b.Offset(0, 1).Value
                        .Range(udTarget).Offset(0, 2).Value = Ttb_DesignMat.Value  'et sa densité
                        Set b = Nothing
                    End If

Par contre, savez comment fait-on pour pouvoir triez le tableau par ordre croissant?

Encore merci pour vos codes.