|
|
|
|
Bonjour,
Je voudrais en vba excel insérer des lignes à chaque fois qu'une valeur d'une cellule change par rapport à celle du dessus.
exemple : il faudrait que j'insére une ligne vide entre 15 et 20, entre 20 et 23, entre 23 et 26.
Colonne
15
15
15
20
20
23
26
26
26
Voila le code sur lequel je travaillais mais ça ne marche pas sur les lignes seules.
Dim CellsToSuppr As Range, derLi As Long
Application.ScreenUpdating = False
derLi = Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To derLi
If Not Cells(i, 4) = Cells(i + 1, 4) Then
If CellsToSuppr Is Nothing Then
Set CellsToSuppr = Cells(i, 4)
Else: Set CellsToSuppr = Union(CellsToSuppr, Cells(i, 4))
End If
'Selection.EntireRow.Insert Shift:=xlDown
Else
End If
Next i
CellsToSuppr.Select
Selection.EntireRow.Insert Shift:=xlDown
merci d'avance pour l'aide.
Configuration: Windows XP Internet Explorer 6.0
Bonjour,
Dim derli As Long
Dim i%, f As Worksheet
Set f = ActiveSheet
derli = f.UsedRange.Row + f.UsedRange.Rows.Count - 1
For i = f.UsedRange.Row To derli
If Not f.Cells(i, 4) = f.Cells(i + 1, 4) Then
f.Cells(i + 1, 4).EntireRow.Insert Shift:=xlDown
i = i + 1 ' pour sauter la ligne vide
derli = derli + 1 ' car on a repoussé la dernière ligne
End If
Next i
Application.ScreenUpdating = True
|
Excel effacer les lignes vide Excel supprimer ligne vba saisie dans box Excel vba compter nombre ligne Excel vba supprimer les lignes vides Graphique excel insertion ligne fixe Macro suppression de ligne vide excel Vba excel ajouter ligne Vba excel commentaire de plusieurs lignes Vba excel copier ligne d'un fichier txt Vba excel debogage frappe ligne Vba excel derniere ligne Vba excel insérer ligne Vba excel lire ligne d'un fichier txt Vba excel recopier ligne Vba excel repérer une ligne 2 critères Vba excel selectionner 1ere cellule vide Vide cellule vba excel Video formation sur vba excel
