Problème avec une boite de message!
 

Bonjour

J'ai cette macro mais il n'y a pas de msgbox qui apparaît. Qu'est-ce
qui ne fonctionne pas?

Private Sub Workbook_Open()

Select Case MsgBox("Voulez-vous mettre à jour les cellules?", vbYesNo)
Case vbYes

Feuil1.Select
With Feuil1
.Range("G38").Copy
.Range("G11").PasteSpecial Paste:=xlPasteValues
.Range("E13:I39").Delete Shift:=xlUp
.Range("R580:V605").Copy .Range("E580:I605")
.Range("A1").Select
End With

Feuil2.Select
With Feuil2
.Range("C19:H42").Delete Shift:=xlUp
.Range("P523:U545").Copy .Range("C523:H545")
.Range("A1").Select
End With

Case vbNo
ThisWorkbook.Open = False

End Select

End Sub

Merci
MP

Problème avec une boite de message!
 

Vous pourriez essayer

iMsg = MsgBox("Voulez-vous mettre à jour les cellules?", vbYesNo)
Select Case iMsg
Case vbYes

Trevor

wrote in message
ups.com...
Bonjour

J'ai cette macro mais il n'y a pas de msgbox qui apparaît. Qu'est-ce
qui ne fonctionne pas?

Private Sub Workbook_Open()

Select Case MsgBox("Voulez-vous mettre à jour les cellules?", vbYesNo)
Case vbYes

Feuil1.Select
With Feuil1
.Range("G38").Copy
.Range("G11").PasteSpecial Paste:=xlPasteValues
.Range("E13:I39").Delete Shift:=xlUp
.Range("R580:V605").Copy .Range("E580:I605")
.Range("A1").Select
End With

Feuil2.Select
With Feuil2
.Range("C19:H42").Delete Shift:=xlUp
.Range("P523:U545").Copy .Range("C523:H545")
.Range("A1").Select
End With

Case vbNo
ThisWorkbook.Open = False

End Select

End Sub

Merci
MP

Problème avec une boite de message!
 

Bonjour,

Ca ne fonctionne toujours pas. Lorsque j'ouvre mon fichier, ca me dit
"erreur de compilation".

Private Sub Workbook_Open()

iMsg = MsgBox("Voulez-vous mettre à jour les cellules?", vbYesNo)
Select Case iMsg
Case vbYes

With Feuil1
.Range("G38").Copy
.Range("G11").PasteSpecial Paste:=xlPasteValues
.Range("E13:I39").Delete Shift:=xlUp
.Range("R580:V605").Copy .Range("E580:I605")
.Range("A1").Select
End With

With Feuil2
.Range("C19:H42").Delete Shift:=xlUp
.Range("P523:U545").Copy .Range("C523:H545")
.Range("A1").Select
End With

Case vbNo
ThisWorkbook.Open = False

End Select

End Sub

Merci
MP

Problème avec une boite de message!
 

Bonsoir

Je vous pense le besoin de faire quelque chose comme ceci:

Private Sub Workbook_Open()

iMsg = MsgBox("Voulez-vous mettre à jour les cellules?", vbYesNo)
Select Case iMsg
Case vbYes

With Sheets("Feuil1")
.Range("G38").Copy
.Range("G11").PasteSpecial Paste:=xlPasteValues
.Range("E13:I39").Delete Shift:=xlUp
.Range("R580:V605").Copy .Range("E580:I605")
End With

With Sheets("Feuil2")
.Range("C19:H42").Delete Shift:=xlUp
.Range("P523:U545").Copy .Range("C523:H545")
End With

Case vbNo
ThisWorkbook.Close savechanges = False ' <<<

End Select

End Sub

Bon soiree

Trevor

wrote in message
oups.com...

Bonjour,

Ca ne fonctionne toujours pas. Lorsque j'ouvre mon fichier, ca me dit
"erreur de compilation".

Private Sub Workbook_Open()

iMsg = MsgBox("Voulez-vous mettre à jour les cellules?", vbYesNo)
Select Case iMsg
Case vbYes

With Feuil1
.Range("G38").Copy
.Range("G11").PasteSpecial Paste:=xlPasteValues
.Range("E13:I39").Delete Shift:=xlUp
.Range("R580:V605").Copy .Range("E580:I605")
.Range("A1").Select
End With

With Feuil2
.Range("C19:H42").Delete Shift:=xlUp
.Range("P523:U545").Copy .Range("C523:H545")
.Range("A1").Select
End With

Case vbNo
ThisWorkbook.Open = False

End Select

End Sub

Merci
MP