Couper coller ligne condition
Résolu/Fermé
A voir également:
- Couper coller vba
- Couper une video - Guide
- Comment couper un pdf - Guide
- L'indice n'appartient pas à la sélection vba - Forum VB / VBA
- Couper photo en 3 instagram - Guide
- Couper mp3 - Guide
1 réponse
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 310
Modifié par michel_m le 14/06/2016 à 08:59
Modifié par michel_m le 14/06/2016 à 08:59
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
14 juin 2016 à 15:42
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
Modifié par michel_m le 14/06/2016 à 16:56
écris
et pense à remplacer "L" par "N" dans la macro
15 juin 2016 à 12:57
Vous êtes mon héros ;-)