Couper coller ligne condition
Résolu
May
-
May -
May -
A voir également:
- Vba couper coller
- Dessin sms copier coller zizi ✓ - Forum Réseaux sociaux
- Couper une video - Guide
- Arobase copier coller ✓ - Forum Bureautique
- Historique copier coller - Guide
- Comment couper une musique - Guide
1 réponse
Bonjour
comment installer ?
copier cette macro
clic droit sur le nom de l'onglet de la feuille "OME" (en bas de l'écran)
visualiser le code
coller
la maquette de W
http://www.cjoint.com/c/FFog4uBp3Ut
Michel
Option Explicit
'-----------------------------------------------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Derlig As Integer, Lig As Integer
Dim Tampon, Ligvid As Integer
'dernière ligne du tableau
Derlig = Columns("M").Find(what:="*", searchdirection:=xlPrevious).Row
On Error GoTo fin
'conditions de déclenchement : "OK" et dans le tableau colonne M
If Not Intersect(Target, Range("M2:M" & Derlig)) Is Nothing And Target = "OK" Then
' ligne demandée
Lig = Columns("M").Find("OK", Range("M1"), xlValues).Row
'mémorisation de la plage à transfèrer
Tampon = Range(Cells(Lig, "A"), Cells(Lig, "L"))
With Sheets("Analyse")
'1° ligne vide
Ligvid = .Columns("A").Find("", .Range("A1")).Row
'écriture de la plage
With .Range(.Cells(Ligvid, "A"), .Cells(Ligvid, "L"))
.Value = Tampon
'encadre la ligne
.Borders.Weight = xlThin
End With
End With
'destruction de la ligne
Rows(Lig).Delete
End If
fin:
End Sub
comment installer ?
copier cette macro
clic droit sur le nom de l'onglet de la feuille "OME" (en bas de l'écran)
visualiser le code
coller
la maquette de W
http://www.cjoint.com/c/FFog4uBp3Ut
Michel
Une dernière question, comment faire pour que le couper coller ne se fasse que dans la limite du tableau (Colonne A à colonne N) et pas toutes la lignes?
Sinon, PARFAIT :-x
écris
et pense à remplacer "L" par "N" dans la macro
Vous êtes mon héros ;-)