Tri de cellule déplacée grâce à VBA Fermé

Question

Bonjour à tous,

Étant novice en VBA, je travail sur une macro faite par un autre qui récupère des cellules dans plusieurs sheets différentes et qui les envoie sur une même feuille. Ces cellules sont rangées par ligne (il y a 4 cellules par ligne à chaque fois) et ce que j'aimerais savoir c'est comment insérer ces lignes pour qu'elles s'insèrent l'une en dessous des autres et non pas en dessus des autres (la première ligne insérée se retrouve en bas de mon tableau et j'aimerais qu'elle soit en haut). Je vous met la partie du code correspondante :

    For i = 13 To j             
                 L = Sheets(k).Cells(i, 15).Value 'numéro de formulaire à remplir
                 DDM = Sheets(k).Cells(i, 1).Value 'prendre la valeur de demande de modification
                 Des = Sheets(k).Cells(i, 3).Value 'prendre la valeur de description
                 Cout = Sheets(k).Cells(i, 13).Value 'prendre la valeur du coût ht
                 Delai = Sheets(k).Cells(i, 9).Value 'prendre la valeur du délai

 If L <> "" Then
                  'Déplacement des données dans les fichiers ADM
                            Sheets(L + 7).Rows("22:22").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromBelow 
                            Sheets(L + 7).Cells(22, 1).Value = DDM 'prendre la valeur de demande de modification
                            Sheets(L + 7).Cells(22, 3).Value = Des 'prendre la valeur de description
                            Sheets(L + 7).Cells(22, 10).Value = Cout 'prendre la valeur du coût ht
                            Sheets(L + 7).Cells(22, 13).Value = Delai 'prendre la valeur du délai
                            Sheets(L + 7).Range("A22:B22").Merge 'fusion des cellules A22 et B22
                            Sheets(L + 7).Range("C22:I22").Merge 'fusion des cellules C22 et I22
                            Sheets(L + 7).Range("J22:L22").Merge 'fusion des cellules J22 et L22

Merci d'avance à vous !

michel_m · Answer

Bonjour essaies ceci If L <> "" Then 'Déplacement des données dans les fichiers ADM With Sheets(L + 7) Ligvide = .Columns("A").Find("*", , , , , xlPrevious).Row + 1 .Cells(Ligvide, 1).Value = DDM 'prendre la valeur de demande de modification .Cells(Ligvide, 3).Value = Des 'prendre la valeur de description 'etc..... End With tite remarque: A l'avenir, sur le forum, mettre tes codes entre les balises de l'onglet <>

Tri de cellule déplacée grâce à VBA

1 réponse

Discussions similaires