VBA - Copier Ligne selon critère et coller en dessous en la modifiant
Bonjour,
Je suis tout nouveau dans ce monde de programmation VBA et utilise pour la première fois un forum pour m'aider !
J'espère que vous m'aiderez...
J'ai créer ce code qui permet d'insérer une ligne en dessous d'une ligne où se trouve le mot PAPA en colonne B.
Sub Copier_Coller_Modifier_Lignes()
'Inserér Lignes
Worksheets("FAMILLE").Activate
Dim Status As Range, Plage As Range
Dim DerLigne As Long, Ligne As Long
Application.ScreenUpdating = False
DerLigne = Cells(65536, 1).End(xlUp).Row
Set Plage = Range(Cells(1, 2), Cells(DerLigne, 2))
For Each Status In Plage
If StatusPN = "PAPA" Then
Cells(Status.Row + 1, 1).EntireRow.Insert Shift:=xlDown
End If
Next Status
End Sub
Ce code fonctionne.
Maintenant, je souhaite compliquer les choses.
J'aimerais copier la ligne entière où se trouve le mot PAPA en colonne B et l'insérer juste en dessous de celle-ci.
Et en plus, modifier le contenu de cette nouvelle ligne en colonne B, en modifiant PAPA par Fils.
Pouvez-vous m'aider s'il vous plait !
Merci pour votre aide
Bonjour Vincent et bienvenue sur le forum !
Voici un essai :
Sub Copier_Coller_Modifier_Lignes()
Dim dl As Long, i As Long
Application.ScreenUpdating = False
With Worksheets("FAMILLE")
dl = .Cells(.rows.count, 1).End(xlUp).Row
For i = dl to 1 step -1 '(on part d'en bas pour remonter avec insertion et suppression)
If .cells(i, 2).value = "PAPA" Then 'statusPN ?
.rows(i).copy: .rows(i+1).insert shift:=xlDown
.cells(i + 1, 2).value = "Fils"
end if
next i
end with
application.screenupdating = true
End SubCdlt,