Insérer une ligne si la cellule contient x
Bonjour,
J'ai un fichier excel qui contient plus de 1000 lignes. (fichier d'adresses IP)
Dans la colonne O j'ai différents numéros.
Je souhaiterais que lorsque qu'il y a le numéro "999" dans cette colonne, la ligne entière soit copiée puis collé au dessous ou en dessous (peu importe).
Et suite au collage je veux que le 999 dans la colonne O se transforme en 1 et que dans la colonne P le texte "VOICE" se transforme en "LAN".
Voici ce que j'ai pour le moment: j'ai juste inséré le for/next et le Dim x :
Sub Macro1()
'
' Macro1 Macro
'
'
For i = 1 To 1000
Dim x As Integer
x = 999
Rows("1,1").Select
Selection.Copy
Selection.Insert Shift:=xlDown
Range("O1").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "1"
Range("P1").Select
ActiveCell.FormulaR1C1 = "LAN"
Range("Q1").Select
Next
End Sub
Merci de votre aide
Bonjour seb79rt, le forum,
Un essai.....
Le code peut certainement être optimisé, nul doute qu'une meilleure proposition devrait arriver....
Cordialement,
C'est parfait ! Merci beaucoup !!