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

Fermé

poisson89 - 4 juil. 2013 à 14:34
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 - 5 juil. 2013 à 09:08

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 !

A voir également:

Tri de cellule déplacée grâce à VBA
Aller à la ligne dans une cellule excel - Guide
Excel compter cellule couleur sans vba - Guide
Verrouiller cellule excel - Guide
Tri excel - Guide
Excel cellule couleur si condition texte - Guide

1 réponse

Réponse 1 / 1

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
5 juil. 2013 à 09:08

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 <>

Discussions similaires

Excel VBA : Récupérer la valeur d'une cellule

"L'indice n'appartient à la sélection" + VBA

Excel si cellule contient texte alors...

Erreur d'exécution 13 Incompatibilité de type

Formule Excel : "SI" une cellule contient un mot, alors ?

Discussions similaires

Newsletters