Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Ye Olde Date Formate Probleme - PLEASE HELP | Excel Discussion (Misc queries) | |||
Date Probleme | Excel Discussion (Misc queries) | |||
Transformation d'images avec une extension .jpg ou .jpeg en images avec extension .bmp ou .ico | Excel Discussion (Misc queries) | |||
Problème avec Range(x).Select | Excel Programming | |||
probleme autorisation d'acces sur Sage 100 gestion | Excel Programming |