msg box sur macro

[mix770]

Bonsoir,
je suis vraiment bloqué 😕😕
alors cette macro permet d'une part de copier une ligne en dessous à partir du moment ou l'on renseigne la colonne A et de déplacer cette ligne si dans la colonne état on inscrit "clôturé".
j'ai testé la macro en fait il y a bien la msg box qui apparait mais quand on inscrit une données dans la colonne A, il faudrait que cela soit sur la colonne état et sur le mot clôturé que cela apparaisse je joins le fichier pour une meilleur compréhension
merci à vous pour le mal que vous vous donnez
cordialement 🙄

 

[Hippolite]

Re : msg box sur macro

Bonjour,
Non testé :

Private Sub Worksheet_Change(ByVal Target As Range)
	Dim adresse$, x&, c As Range
	If Target.Count > 1 Or Target.Row < 4 Then Exit Sub
	x = Target.Row
	Set c = Range("A" & x & ":O" & x)
	
	If Not Intersect(Target, columns(1)) is Nothing Then
		adresse = [A65000].End(xlUp).Address(1, 1)
		If Target.Address = adresse Then
			Application.EnableEvents = False
			c.Copy Target.Offset(1)
			c.Offset(1).SpecialCells(xlCellTypeConstants).ClearContents
			Application.EnableEvents = True
		End If
	End If		
			
	If Not Intersect(Target, columns(15)) is Nothing And LCase(Target) = "cloturé" Then
		Select Case MsgBox("Êtes-vous sûr de vouloir déplacer la ligne ?", _
							vbYesNo, "Titre de la fenêtre")
			Case vbYes
				Application.EnableEvents = False
				c.Copy Feuil1.Range("A65000").End(xlUp).Offset(1)
				Rows(x).Delete
				Application.EnableEvents = True
			Case vbNo
				Exit Sub
		End Select
	End If
End Sub

A+