Insertion de ligne

Question

Bonjour,
J'ai un fichier excel comprenant plusieurs lignes, et deux colonnes.
A contient des numéro ranger dans l'ordre croissant et B le nom du fournisseur correpondant.

Dans la colonne A les numéro ne se suivent pas.

Je recherche une macro me permettant d'inserer une ligne à chauque endoroit ou c'est necessaire afin que les numéro se suivent.

Merci par avance.

Darkito · Answer

Bonjour, 
tu veux simplement trier ta liste selon la colonne A 

1 fournisseur X
2 fournisseur B
5 fournisseur T

ou bien avoir une liste du style ?

1 fournisseur X
2 fournisseur B
3
4
5 fournisseur T

acfb · Answer

la deuxième liste

exemple j'ai actuellement ce-ci :

1 siemens
2 alcatel
4 sony

je voudrais 
1 siemens 
2 alcatel
3
4 sony

Darkito · Answer

J'ai jeté un oeil, 
cette macro devrait faire ce que tu souhaites :

Sub Insertion()
    Dim ligne As Integer
    
    ligne = 1
    
    While (Not IsEmpty(Cells(ligne + 1, 1)))
        
        If (Cells(ligne, 1).Value + 1 <> Cells(ligne + 1, 1).Value) Then
            Rows(ligne + 1).Insert
            Cells(ligne + 1, 1) = ligne + 1
        End If
    
        ligne = ligne + 1
    Wend
End Sub

Insertion de ligne

3 réponses

Discussions similaires

Newsletters