copie de lignes d'une feuille à l'autre automatiquement et sous conditions

[eCHO]

Bonjour à tous
je travaille sur Excel 2007
dans une feuille excel que j'ai nommé feuil1 j'ai un tableau de 12 colonnes
l'une de ses colonne nommée observation "B12''
Ce que je veux demande si que quand je mets à une croix "X" dons la colonnes "observation " toute cette ligne sera coupée automatiquement dans une autre feuille que j'ai nommé feuil2 << cette feuille contient aussi le même tableau >>


Et merci d'avance

 

[JHA]

Bonjour à tous,

Un essai par formule

JHA

 

[eCHO]

Merci mais en VBA svp

 

[Staple1600]

Re

@eCHO
Tu veux dire en VBA, non?
(Bien qu'Excel puisse parler VBS)

 

[eCHO]

Re

@eCHO
Tu veux dire en VBA, non?
(Bien qu'Excel puisse parler VBS)

oui en vba je me suis tromré

 

[Staple1600]

Re

@eCHO
Tu veux dire trompé (lol)
Bien tu ais le droit de te tromrer 😉

Du VBA, en voici

'A mettre dans le code de la Feuille 1
'et non pas dans un module Standard
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Ligne&
If Not Intersect(Target, Range("B13:B23")) Is Nothing Then
If Target Like "X" Then Ligne = Target.Row
Application.EnableEvents = False
Rows(Ligne).Cut Feuil2.Rows(Ligne)
Rows(Ligne - 1).Delete Shift:=xlUp
Application.EnableEvents = True
End If
End Sub

 

[eCHO]

Merci beaucoup ça fonctionne mais j'aurais besoin d'une petite modification je veux pas que la ligne soit supprimé dans la feuil1
et sur la feuil2 les liens seront coupés l'un après l'autre c'est-à-dire je veux pas avoir des lignes vides