inserer msgbox sur macro déplacer ligne

[mix770]

🙂Bonsoir,
j'ai la macro suivante pour déplacer une ligne:
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)
Select Case Target.Column
Case 1
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
Case 15
If LCase(Target) = "cloturé" Then
c.Copy Feuil1.Range("A65000").End(xlUp).Offset(1)
Rows(x).Delete
End If
End Select
End Sub
et je voudrais insérer une Msgbox pour demander confirmation avant que la ligne soit déplacée
merci à vous
cordialement
Mix770

 

[supercrapaud]

Re : inserer msgbox sur macro déplacer ligne

Bonjour,

insère
if msgbox("Souhaitez-vous vraiment que la ligne soit déplacée ?"; vbyesno) = vbno then exit sub
juste avant ton code ç devrait marcher.

 

[mix770]

Re: Re : inserer msgbox sur macro déplacer ligne

Bonjour supercrapaud,
merci pour ta réponse
je ne suis qu'au début des macro quand tu dis juste avant ton code tu entends quoi
merci

 

[PEPE]

Re : inserer msgbox sur macro déplacer ligne

Salut mix770,

je pense qu'il veut dire que tu dois l'insérer entre le dim et le if (entre 2e et 3e ligne)

PEPE

 

[Hulk]

Re : inserer msgbox sur macro déplacer ligne

Hello tout le monde,

Un truc du genre (pas testé)

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim adresse$, x&, c As Range

    Select Case MsgBox("Êtes-vous sûr de vouloir déplacer la ligne ?", vbYesNo, "Titre de la fenêtre")
        Case vbYes
            If Target.Count > 1 Or Target.Row < 4 Then Exit Sub
            
            x = Target.Row
        
            Set c = Range("A" & x & ":O" & x)
        
            Select Case Target.Column
                Case 1
                    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).Clea rContents
                        Application.EnableEvents = True
                    End If
                Case 15
                    If LCase(Target) = "cloturé" Then
                        c.Copy Feuil1.Range("A65000").End(xlUp).Offset(1)
                        Rows(x).Delete
                    End If
            End Select
        Case vbNo
            Exit Sub
    End Select
    
End Sub

Bonne soirée !

 

[PEPE]

Re : inserer msgbox sur macro déplacer ligne

Salut,

j'ai testé la macro et comme elle se déclenche après l'évènement "CHANGE" même en appuyant sur No les déplacements de lignes ont eu lieu et persistent.
2 choix se posent à moi :
1- j'ai rien compris à la macro et j'espère que juste ce code suffit à mix770...
2- Il manque d'autres macros ou bout de code.

PEPE

 

[supercrapaud]

Re : inserer msgbox sur macro déplacer ligne

Bonsoir même avec ma technique ? la msgbox juste après le dim devraait prendre en compte cela, non ?

 

[PEPE]

Re : inserer msgbox sur macro déplacer ligne

Salut,

J'ai testé la MsgBox après la Dim et ça ne fonctionne pas quand on clique sur No...

Je pense que c'est l'évènement "Private Sub Worksheet_Change(ByVal Target As Range)" qui pose ce genre de problème..

PEPE

 

[mix770]

Re: Re : inserer msgbox sur macro déplacer ligne

bonjour à tous,
avec mes excuses pour le temps de réaction, hier j'ai lâché le mulot pour une pelle !!!
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 cloturé que cela apparaisse je joins le fichier pour une meilleur compréhention
merci à vous pour le mal que vous vous donnez
cordialement