Déclencher une macro après la sélection d'une valeur de laliste déroulante

Le 03/12/2021 à 12:40

Bonjour,

J'ai une liste déroulante dans la " feuille1 " composé de ( OKAY, NON, BIEN )

Je souhaite qu'a chaque fois que je choisi OKAY sur cette liste, ça déclenche des actions

1. sélection de toute la ligne concerné uniquement

2. Coller dans la feuille2 à la ligne vide

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1")) Is Nothing Then
Select Case Range("A1")
Case "OKAY ": First_one
End Select
End If
End Sub

Sub First_one()

EntireRow.Select
Selection.Copy
Sheets("Feuil2").Select
LastRow = Range("BC" & Rows.Count).End(xlUp).Row + 1
Range("A1" & LastRow).PasteSpecial Paste:=xlPasteValues

End Sub

Le 03/12/2021 à 12:43

Bonjour,

"1. sélection de toute la ligne concerné uniquement"

C'est quoi, toute la ligne concernée uniquement ? Comment on le sait ? Comment l'ordinateur le sait ?

Le 03/12/2021 à 13:54

la ligne concernée c'est la ligne sur laquelle je vient de choisir " OKAY"

Saurais-tu comment la sélectionner ?

Le 03/12/2021 à 13:56

Ton code ne se déclenche que sur la cellule A1, donc en gros ça va toujours copier la ligne 1, c'est bien ce que tu veux ?

Le 03/12/2021 à 14:54

Non, en gros dans la colonne A je vais constamment changé de valeur (OKAY, NON, BIEN) aléatoirement dans ma liste déroulante.

Ce que je souhaite, c'est qu'une fois que le changement est fait et que la valeur choisi est ("OKAY"), toute la ligne de cette cellule soit sélectionné

pour que je puisse la collé dans une autre feuille. Merci

Le 03/12/2021 à 15:18

Ceci devrait donc faire l'affaire :

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A:A")) Is Nothing Then
Select Case Target
Case "OKAY"
LastRow = Sheets("Feuil2").Range("BC" & Rows.Count).End(xlUp).Row + 1
Rows(Target.Row).Copy Destination:=Sheets("Feuil2").Rows(LastRow)
End Select
End If
End Sub

J'ai notamment enlevé l'espace que tu avais mis dans "OKAY "

Le 03/12/2021 à 16:19

Merci beaucoup !

J'ai une erreur au niveau de case "OKAY"

d'incompatibilité de type. c'est peut-être parce que j'ai une liste déroulante non ?

Le 03/12/2021 à 16:31

Non.

Chez moi ça fonctionne très bien.

M'enfin au pire, tu peux poster une version allégée de ton fichier, sans données confidentielles, qui reproduisent ton problème. Parce que là, à l'aveugle ...

Le 03/12/2021 à 16:37