Changer le sens d'insertion de lignes
Résolu
ssboo
Messages postés
17
Date d'inscription
Statut
Membre
Dernière intervention
-
ssboo Messages postés 17 Date d'inscription Statut Membre Dernière intervention -
ssboo Messages postés 17 Date d'inscription Statut Membre Dernière intervention -
Bonjour
J'utilise le code ci-dessus pour insérer des lignes si la couleur de la ligne n'est pas verte ou jaune. Le truc c'est que ça m'insère des lignes au dessus des lignes éxistantes et moi je voudrais le contraire.
Sub Insert()
Dim lig As Long
Range("A5").Select
Reprise:
ActiveCell.Offset(1, 0).Select
If Len(ActiveCell) = 0 Then Exit Sub
If ActiveCell.Value <> 0 And _
ActiveCell.Interior.ColorIndex <> 6 And _
ActiveCell.Interior.ColorIndex <> 43 _
Then
ActiveCell.Rows("1:1").EntireRow.Insert Shift:=xlDown
ActiveCell.EntireRow.Interior.ColorIndex = -4142
ActiveCell.Offset(1, 0).Select
End If
GoTo Reprise
End Sub
Aidez moi Svp a changer de sens
Merci d'avance
J'utilise le code ci-dessus pour insérer des lignes si la couleur de la ligne n'est pas verte ou jaune. Le truc c'est que ça m'insère des lignes au dessus des lignes éxistantes et moi je voudrais le contraire.
Sub Insert()
Dim lig As Long
Range("A5").Select
Reprise:
ActiveCell.Offset(1, 0).Select
If Len(ActiveCell) = 0 Then Exit Sub
If ActiveCell.Value <> 0 And _
ActiveCell.Interior.ColorIndex <> 6 And _
ActiveCell.Interior.ColorIndex <> 43 _
Then
ActiveCell.Rows("1:1").EntireRow.Insert Shift:=xlDown
ActiveCell.EntireRow.Interior.ColorIndex = -4142
ActiveCell.Offset(1, 0).Select
End If
GoTo Reprise
End Sub
Aidez moi Svp a changer de sens
Merci d'avance
A voir également:
- Changer le sens d'insertion de lignes
- Changer dns - Guide
- Changer le sens de l'écran - Guide
- Changer de carte graphique - Guide
- Touche insertion clavier - Guide
- Partage de photos en ligne - Guide
