Tri de cellule déplacée grâce à VBA
poisson89
-
michel_m Messages postés 16602 Date d'inscription Statut Contributeur Dernière intervention -
michel_m Messages postés 16602 Date d'inscription Statut Contributeur Dernière intervention -
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 !
É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 !
A voir également:
- Tri de cellule déplacée grâce à VBA
- Comment faire un tri personnalisé sur excel - Guide
- Excel compter cellule couleur sans vba - Guide
- Logiciel tri photo - Guide
- Excel cellule couleur si condition texte - Guide
- Aller à la ligne dans une cellule excel - Guide
1 réponse
Bonjour
essaies ceci
tite remarque:
A l'avenir, sur le forum, mettre tes codes entre les balises de l'onglet <>
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 <>
