Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
MichD
Bonjour,
Exécute la procédure pas à pas en utilisant la touche F8 tu obtiendras la ligne de code où la procédure bloque... alors nous pourrons peut-être t'aider !
Il est difficile de voir ce qui ne va pas lorsque l'on ne peut pas voir le classeur !
MichD ------------------------------------------ "bj73" a écrit dans le message de groupe de discussion :
Bonjour, J'ai développé une petite macro qui marchai super bien, apres presqu'un mois sans l'utilisé cette dernier fonction plus, voici la macro:
Sub PRINT_placo() ' ' PRINT_placo Macro ' impression = MsgBox("BON DE COMMANDE", vbYesNo + vbQuestion, "IMPRESSION") If impression = vbYes Then Sheets("placo").Select Sheets("placo").Copy Before:=Sheets(1) Range("H7").Select ActiveCell.FormulaR1C1 = "=NOW()" Rows("18:18").Select Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove Range("C18:H54").Select Selection.AutoFilter ActiveSheet.Range("$C$18:$H$54").AutoFilter Field:=6, Criteria1:="<>" ActiveWindow.SmallScroll Down:=-12 Range("A6:H53").Select ActiveSheet.PageSetup.PrintArea = "$A$1:$H$53" ActiveWindow.SelectedSheets.PrintOut Copies:=1 Sheets("placo (2)").Select Application.DisplayAlerts = False ActiveWindow.SelectedSheets.Delete Application.DisplayAlerts = True Sheets("placo").Select ElseIf impression = vbNo Then End If End Sub
Que faire les z'amis
Bonjour,
Exécute la procédure pas à pas en utilisant la touche F8
tu obtiendras la ligne de code où la procédure bloque...
alors nous pourrons peut-être t'aider !
Il est difficile de voir ce qui ne va pas lorsque l'on ne peut pas voir le classeur !
MichD
------------------------------------------
"bj73" a écrit dans le message de groupe de discussion : s8OdnfNNwofbMBjT4p2dnAA@giganews.com...
Bonjour,
J'ai développé une petite macro qui marchai super bien, apres presqu'un mois
sans l'utilisé cette dernier fonction plus, voici la macro:
Sub PRINT_placo()
'
' PRINT_placo Macro
'
impression = MsgBox("BON DE COMMANDE", vbYesNo + vbQuestion, "IMPRESSION")
If impression = vbYes Then
Sheets("placo").Select
Sheets("placo").Copy Before:=Sheets(1)
Range("H7").Select
ActiveCell.FormulaR1C1 = "=NOW()"
Rows("18:18").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("C18:H54").Select
Selection.AutoFilter
ActiveSheet.Range("$C$18:$H$54").AutoFilter Field:=6, Criteria1:="<>"
ActiveWindow.SmallScroll Down:=-12
Range("A6:H53").Select
ActiveSheet.PageSetup.PrintArea = "$A$1:$H$53"
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Sheets("placo (2)").Select
Application.DisplayAlerts = False
ActiveWindow.SelectedSheets.Delete
Application.DisplayAlerts = True
Sheets("placo").Select
ElseIf impression = vbNo Then
End If
End Sub
Exécute la procédure pas à pas en utilisant la touche F8 tu obtiendras la ligne de code où la procédure bloque... alors nous pourrons peut-être t'aider !
Il est difficile de voir ce qui ne va pas lorsque l'on ne peut pas voir le classeur !
MichD ------------------------------------------ "bj73" a écrit dans le message de groupe de discussion :
Bonjour, J'ai développé une petite macro qui marchai super bien, apres presqu'un mois sans l'utilisé cette dernier fonction plus, voici la macro:
Sub PRINT_placo() ' ' PRINT_placo Macro ' impression = MsgBox("BON DE COMMANDE", vbYesNo + vbQuestion, "IMPRESSION") If impression = vbYes Then Sheets("placo").Select Sheets("placo").Copy Before:=Sheets(1) Range("H7").Select ActiveCell.FormulaR1C1 = "=NOW()" Rows("18:18").Select Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove Range("C18:H54").Select Selection.AutoFilter ActiveSheet.Range("$C$18:$H$54").AutoFilter Field:=6, Criteria1:="<>" ActiveWindow.SmallScroll Down:=-12 Range("A6:H53").Select ActiveSheet.PageSetup.PrintArea = "$A$1:$H$53" ActiveWindow.SelectedSheets.PrintOut Copies:=1 Sheets("placo (2)").Select Application.DisplayAlerts = False ActiveWindow.SelectedSheets.Delete Application.DisplayAlerts = True Sheets("placo").Select ElseIf impression = vbNo Then End If End Sub
Que faire les z'amis
MichD
Pourquoi ajoutes-tu ceci dans ton code : .Range("H7").Formula = "=NOW()" La cellule ne fait pas partie de la zone d'impression que tu as délimitée en conséquence, elle ne sera pas imprimée et la feuille est supprimée...
Le code pourrait devenir ceci : '----------------------------------------- Sub PRINT_placo()
impression = MsgBox("BON DE COMMANDE", _ vbYesNo + vbQuestion, "IMPRESSION") If impression = vbYes Then Sheets("Placo").Copy before:=Sheets(1) With ActiveSheet .Range("H7").Formula = "=NOW()" .Rows("18:18").Insert Shift:=xlDown, _ CopyOrigin:=xlFormatFromLeftOrAbove With Range("C18:H54") .AutoFilter Field:=6, Criteria1:="<>" End With .PageSetup.PrintArea = .Range("_FilterDataBase").Address .PrintOut Copies:=1 .PageSetup.PrintArea = "" Application.DisplayAlerts = False .Delete Application.DisplayAlerts = True End With Sheets("placo").Select End If End Sub '-----------------------------------------
MichD ------------------------------------------ "MichD" a écrit dans le message de groupe de discussion : j64bbq$5ob$
Bonjour,
Exécute la procédure pas à pas en utilisant la touche F8 tu obtiendras la ligne de code où la procédure bloque... alors nous pourrons peut-être t'aider !
Il est difficile de voir ce qui ne va pas lorsque l'on ne peut pas voir le classeur !
MichD ------------------------------------------ "bj73" a écrit dans le message de groupe de discussion :
Bonjour, J'ai développé une petite macro qui marchai super bien, apres presqu'un mois sans l'utilisé cette dernier fonction plus, voici la macro:
Sub PRINT_placo() ' ' PRINT_placo Macro ' impression = MsgBox("BON DE COMMANDE", vbYesNo + vbQuestion, "IMPRESSION") If impression = vbYes Then Sheets("placo").Select Sheets("placo").Copy Before:=Sheets(1) Range("H7").Select ActiveCell.FormulaR1C1 = "=NOW()" Rows("18:18").Select Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove Range("C18:H54").Select Selection.AutoFilter ActiveSheet.Range("$C$18:$H$54").AutoFilter Field:=6, Criteria1:="<>" ActiveWindow.SmallScroll Down:=-12 Range("A6:H53").Select ActiveSheet.PageSetup.PrintArea = "$A$1:$H$53" ActiveWindow.SelectedSheets.PrintOut Copies:=1 Sheets("placo (2)").Select Application.DisplayAlerts = False ActiveWindow.SelectedSheets.Delete Application.DisplayAlerts = True Sheets("placo").Select ElseIf impression = vbNo Then End If End Sub
Que faire les z'amis
Pourquoi ajoutes-tu ceci dans ton code :
.Range("H7").Formula = "=NOW()"
La cellule ne fait pas partie de la zone d'impression que tu as délimitée
en conséquence, elle ne sera pas imprimée et la feuille est supprimée...
Le code pourrait devenir ceci :
'-----------------------------------------
Sub PRINT_placo()
impression = MsgBox("BON DE COMMANDE", _
vbYesNo + vbQuestion, "IMPRESSION")
If impression = vbYes Then
Sheets("Placo").Copy before:=Sheets(1)
With ActiveSheet
.Range("H7").Formula = "=NOW()"
.Rows("18:18").Insert Shift:=xlDown, _
CopyOrigin:=xlFormatFromLeftOrAbove
With Range("C18:H54")
.AutoFilter Field:=6, Criteria1:="<>"
End With
.PageSetup.PrintArea = .Range("_FilterDataBase").Address
.PrintOut Copies:=1
.PageSetup.PrintArea = ""
Application.DisplayAlerts = False
.Delete
Application.DisplayAlerts = True
End With
Sheets("placo").Select
End If
End Sub
'-----------------------------------------
MichD
------------------------------------------
"MichD" a écrit dans le message de groupe de discussion : j64bbq$5ob$1@speranza.aioe.org...
Bonjour,
Exécute la procédure pas à pas en utilisant la touche F8
tu obtiendras la ligne de code où la procédure bloque...
alors nous pourrons peut-être t'aider !
Il est difficile de voir ce qui ne va pas lorsque l'on ne peut pas voir le classeur !
MichD
------------------------------------------
"bj73" a écrit dans le message de groupe de discussion : s8OdnfNNwofbMBjT4p2dnAA@giganews.com...
Bonjour,
J'ai développé une petite macro qui marchai super bien, apres presqu'un mois
sans l'utilisé cette dernier fonction plus, voici la macro:
Sub PRINT_placo()
'
' PRINT_placo Macro
'
impression = MsgBox("BON DE COMMANDE", vbYesNo + vbQuestion, "IMPRESSION")
If impression = vbYes Then
Sheets("placo").Select
Sheets("placo").Copy Before:=Sheets(1)
Range("H7").Select
ActiveCell.FormulaR1C1 = "=NOW()"
Rows("18:18").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("C18:H54").Select
Selection.AutoFilter
ActiveSheet.Range("$C$18:$H$54").AutoFilter Field:=6, Criteria1:="<>"
ActiveWindow.SmallScroll Down:=-12
Range("A6:H53").Select
ActiveSheet.PageSetup.PrintArea = "$A$1:$H$53"
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Sheets("placo (2)").Select
Application.DisplayAlerts = False
ActiveWindow.SelectedSheets.Delete
Application.DisplayAlerts = True
Sheets("placo").Select
ElseIf impression = vbNo Then
End If
End Sub
Pourquoi ajoutes-tu ceci dans ton code : .Range("H7").Formula = "=NOW()" La cellule ne fait pas partie de la zone d'impression que tu as délimitée en conséquence, elle ne sera pas imprimée et la feuille est supprimée...
Le code pourrait devenir ceci : '----------------------------------------- Sub PRINT_placo()
impression = MsgBox("BON DE COMMANDE", _ vbYesNo + vbQuestion, "IMPRESSION") If impression = vbYes Then Sheets("Placo").Copy before:=Sheets(1) With ActiveSheet .Range("H7").Formula = "=NOW()" .Rows("18:18").Insert Shift:=xlDown, _ CopyOrigin:=xlFormatFromLeftOrAbove With Range("C18:H54") .AutoFilter Field:=6, Criteria1:="<>" End With .PageSetup.PrintArea = .Range("_FilterDataBase").Address .PrintOut Copies:=1 .PageSetup.PrintArea = "" Application.DisplayAlerts = False .Delete Application.DisplayAlerts = True End With Sheets("placo").Select End If End Sub '-----------------------------------------
MichD ------------------------------------------ "MichD" a écrit dans le message de groupe de discussion : j64bbq$5ob$
Bonjour,
Exécute la procédure pas à pas en utilisant la touche F8 tu obtiendras la ligne de code où la procédure bloque... alors nous pourrons peut-être t'aider !
Il est difficile de voir ce qui ne va pas lorsque l'on ne peut pas voir le classeur !
MichD ------------------------------------------ "bj73" a écrit dans le message de groupe de discussion :
Bonjour, J'ai développé une petite macro qui marchai super bien, apres presqu'un mois sans l'utilisé cette dernier fonction plus, voici la macro:
Sub PRINT_placo() ' ' PRINT_placo Macro ' impression = MsgBox("BON DE COMMANDE", vbYesNo + vbQuestion, "IMPRESSION") If impression = vbYes Then Sheets("placo").Select Sheets("placo").Copy Before:=Sheets(1) Range("H7").Select ActiveCell.FormulaR1C1 = "=NOW()" Rows("18:18").Select Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove Range("C18:H54").Select Selection.AutoFilter ActiveSheet.Range("$C$18:$H$54").AutoFilter Field:=6, Criteria1:="<>" ActiveWindow.SmallScroll Down:=-12 Range("A6:H53").Select ActiveSheet.PageSetup.PrintArea = "$A$1:$H$53" ActiveWindow.SelectedSheets.PrintOut Copies:=1 Sheets("placo (2)").Select Application.DisplayAlerts = False ActiveWindow.SelectedSheets.Delete Application.DisplayAlerts = True Sheets("placo").Select ElseIf impression = vbNo Then End If End Sub
Que faire les z'amis
bj73
MichD a écrit le 30/09/2011 à 14h06 :
Bonjour,
Exécute la procédure pas à pas en utilisant la touche F8 tu obtiendras la ligne de code où la procédure bloque... alors nous pourrons peut-être t'aider !
Il est difficile de voir ce qui ne va pas lorsque l'on ne peut pas voir le classeur !
MichD ------------------------------------------ "bj73" a écrit dans le message de groupe de discussion :
Bonjour, J'ai développé une petite macro qui marchai super bien, apres presqu'un mois sans l'utilisé cette dernier fonction plus, voici la macro:
Sub PRINT_placo() ' ' PRINT_placo Macro ' impression = MsgBox("BON DE COMMANDE", vbYesNo + vbQuestion, "IMPRESSION") If impression = vbYes Then Sheets("placo").Select Sheets("placo").Copy Before:=Sheets(1) Range("H7").Select ActiveCell.FormulaR1C1 = "=NOW()" Rows("18:18").Select Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove Range("C18:H54").Select Selection.AutoFilter ActiveSheet.Range("$C$18:$H$54").AutoFilter Field:=6, Criteria1:="<>" ActiveWindow.SmallScroll Down:=-12 Range("A6:H53").Select ActiveSheet.PageSetup.PrintArea = "$A$1:$H$53" ActiveWindow.SelectedSheets.PrintOut Copies:=1 Sheets("placo (2)").Select Application.DisplayAlerts = False ActiveWindow.SelectedSheets.Delete Application.DisplayAlerts = True Sheets("placo").Select ElseIf impression = vbNo Then End If End Sub
Que faire les z'amis
Pour repondre à ton post les lignes Range("H7").Select ActiveCell.FormulaR1C1 = "=NOW()" Marchais bien avant et ma date s'imprimait très bien. Par contre en faisant F8 pour l'exe pas à pas la macro bloque avant Range("H7").Select Que faire alors qu'il y a à peine 20 jours ca fonctionnai super bien et j'avais au moins fait une vingtaines d'essais. Si tu veux je peux t'envoyer le fichier par adresse mail et tu y jette un oeil.
merci d'avance.
MichD a écrit le 30/09/2011 à 14h06 :
Bonjour,
Exécute la procédure pas à pas en utilisant la touche F8
tu obtiendras la ligne de code où la procédure bloque...
alors nous pourrons peut-être t'aider !
Il est difficile de voir ce qui ne va pas lorsque l'on ne peut pas voir le
classeur !
MichD
------------------------------------------
"bj73" a écrit dans le message de groupe de discussion :
Bonjour,
J'ai développé une petite macro qui marchai super bien, apres
presqu'un mois
sans l'utilisé cette dernier fonction plus, voici la macro:
Sub PRINT_placo()
'
' PRINT_placo Macro
'
impression = MsgBox("BON DE COMMANDE", vbYesNo + vbQuestion,
"IMPRESSION")
If impression = vbYes Then
Sheets("placo").Select
Sheets("placo").Copy Before:=Sheets(1)
Range("H7").Select
ActiveCell.FormulaR1C1 = "=NOW()"
Rows("18:18").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("C18:H54").Select
Selection.AutoFilter
ActiveSheet.Range("$C$18:$H$54").AutoFilter Field:=6,
Criteria1:="<>"
ActiveWindow.SmallScroll Down:=-12
Range("A6:H53").Select
ActiveSheet.PageSetup.PrintArea = "$A$1:$H$53"
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Sheets("placo (2)").Select
Application.DisplayAlerts = False
ActiveWindow.SelectedSheets.Delete
Application.DisplayAlerts = True
Sheets("placo").Select
ElseIf impression = vbNo Then
End If
End Sub
Que faire les z'amis
Pour repondre à ton post les lignes
Range("H7").Select
ActiveCell.FormulaR1C1 = "=NOW()"
Marchais bien avant et ma date s'imprimait très bien.
Par contre en faisant F8 pour l'exe pas à pas la macro bloque avant
Range("H7").Select
Que faire alors qu'il y a à peine 20 jours ca fonctionnai super bien et j'avais au moins fait une vingtaines d'essais.
Si tu veux je peux t'envoyer le fichier par adresse mail et tu y jette un oeil.
Exécute la procédure pas à pas en utilisant la touche F8 tu obtiendras la ligne de code où la procédure bloque... alors nous pourrons peut-être t'aider !
Il est difficile de voir ce qui ne va pas lorsque l'on ne peut pas voir le classeur !
MichD ------------------------------------------ "bj73" a écrit dans le message de groupe de discussion :
Bonjour, J'ai développé une petite macro qui marchai super bien, apres presqu'un mois sans l'utilisé cette dernier fonction plus, voici la macro:
Sub PRINT_placo() ' ' PRINT_placo Macro ' impression = MsgBox("BON DE COMMANDE", vbYesNo + vbQuestion, "IMPRESSION") If impression = vbYes Then Sheets("placo").Select Sheets("placo").Copy Before:=Sheets(1) Range("H7").Select ActiveCell.FormulaR1C1 = "=NOW()" Rows("18:18").Select Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove Range("C18:H54").Select Selection.AutoFilter ActiveSheet.Range("$C$18:$H$54").AutoFilter Field:=6, Criteria1:="<>" ActiveWindow.SmallScroll Down:=-12 Range("A6:H53").Select ActiveSheet.PageSetup.PrintArea = "$A$1:$H$53" ActiveWindow.SelectedSheets.PrintOut Copies:=1 Sheets("placo (2)").Select Application.DisplayAlerts = False ActiveWindow.SelectedSheets.Delete Application.DisplayAlerts = True Sheets("placo").Select ElseIf impression = vbNo Then End If End Sub
Que faire les z'amis
Pour repondre à ton post les lignes Range("H7").Select ActiveCell.FormulaR1C1 = "=NOW()" Marchais bien avant et ma date s'imprimait très bien. Par contre en faisant F8 pour l'exe pas à pas la macro bloque avant Range("H7").Select Que faire alors qu'il y a à peine 20 jours ca fonctionnai super bien et j'avais au moins fait une vingtaines d'essais. Si tu veux je peux t'envoyer le fichier par adresse mail et tu y jette un oeil.
merci d'avance.
MichD
As-tu essayé cette macro ?
'------------------------------- Sub PRINT_placo()
impression = MsgBox("BON DE COMMANDE", _ vbYesNo + vbQuestion, "IMPRESSION") If impression = vbYes Then Sheets("placo").Copy before:=Sheets(1) With ActiveSheet .Range("H7").Formula = "=NOW()" .Rows("18:18").Insert Shift:=xlDown, _ CopyOrigin:=xlFormatFromLeftOrAbove With Range("C18:H54") .AutoFilter Field:=6, Criteria1:="<>" End With .PageSetup.PrintArea = "A1:H53" .PrintOut Copies:=1 .PageSetup.PrintArea = "" Application.DisplayAlerts = False .Delete Application.DisplayAlerts = True End With Sheets("placo").Select End If End Sub '-------------------------------
MichD ------------------------------------------
As-tu essayé cette macro ?
'-------------------------------
Sub PRINT_placo()
impression = MsgBox("BON DE COMMANDE", _
vbYesNo + vbQuestion, "IMPRESSION")
If impression = vbYes Then
Sheets("placo").Copy before:=Sheets(1)
With ActiveSheet
.Range("H7").Formula = "=NOW()"
.Rows("18:18").Insert Shift:=xlDown, _
CopyOrigin:=xlFormatFromLeftOrAbove
With Range("C18:H54")
.AutoFilter Field:=6, Criteria1:="<>"
End With
.PageSetup.PrintArea = "A1:H53"
.PrintOut Copies:=1
.PageSetup.PrintArea = ""
Application.DisplayAlerts = False
.Delete
Application.DisplayAlerts = True
End With
Sheets("placo").Select
End If
End Sub
'-------------------------------
'------------------------------- Sub PRINT_placo()
impression = MsgBox("BON DE COMMANDE", _ vbYesNo + vbQuestion, "IMPRESSION") If impression = vbYes Then Sheets("placo").Copy before:=Sheets(1) With ActiveSheet .Range("H7").Formula = "=NOW()" .Rows("18:18").Insert Shift:=xlDown, _ CopyOrigin:=xlFormatFromLeftOrAbove With Range("C18:H54") .AutoFilter Field:=6, Criteria1:="<>" End With .PageSetup.PrintArea = "A1:H53" .PrintOut Copies:=1 .PageSetup.PrintArea = "" Application.DisplayAlerts = False .Delete Application.DisplayAlerts = True End With Sheets("placo").Select End If End Sub '-------------------------------
MichD ------------------------------------------
MichD
J'oubliais, est-ce que ton classeur est protégé ? Est-ce que ta feuille est protégée ? Si oui, tu dois enlever la protection du classeur et de la feuille "Placo" avant de lancer la macro, ou inclure du code pour ajouter cela à ta macro.
MichD ------------------------------------------
J'oubliais, est-ce que ton classeur est protégé ? Est-ce que ta feuille est protégée ?
Si oui, tu dois enlever la protection du classeur et de la feuille "Placo" avant de lancer
la macro, ou inclure du code pour ajouter cela à ta macro.
J'oubliais, est-ce que ton classeur est protégé ? Est-ce que ta feuille est protégée ? Si oui, tu dois enlever la protection du classeur et de la feuille "Placo" avant de lancer la macro, ou inclure du code pour ajouter cela à ta macro.
MichD ------------------------------------------
bj73
MichD a écrit le 30/09/2011 à 15h11 :
J'oubliais, est-ce que ton classeur est protégé ? Est-ce que ta feuille est protégée ? Si oui, tu dois enlever la protection du classeur et de la feuille "Placo" avant de lancer la macro, ou inclure du code pour ajouter cela à ta macro.
MichD ------------------------------------------
Re,
Non ma feuille est pas verrouillé je galère comme un fou surtout que ca fonctionné avant comme puis je te faire passer mon adresse mail?
à très vite LOL
MichD a écrit le 30/09/2011 à 15h11 :
J'oubliais, est-ce que ton classeur est protégé ? Est-ce que ta
feuille est protégée ?
Si oui, tu dois enlever la protection du classeur et de la feuille
"Placo" avant de lancer
la macro, ou inclure du code pour ajouter cela à ta macro.
MichD
------------------------------------------
Re,
Non ma feuille est pas verrouillé
je galère comme un fou surtout que ca fonctionné avant
comme puis je te faire passer mon adresse mail?
J'oubliais, est-ce que ton classeur est protégé ? Est-ce que ta feuille est protégée ? Si oui, tu dois enlever la protection du classeur et de la feuille "Placo" avant de lancer la macro, ou inclure du code pour ajouter cela à ta macro.
MichD ------------------------------------------
Re,
Non ma feuille est pas verrouillé je galère comme un fou surtout que ca fonctionné avant comme puis je te faire passer mon adresse mail?
à très vite LOL
MichD
Tu peux m'envoyer ton fichier en utilisant mon adresse Hotmail.
Je dois m'absenter pour quelques heures... je verrai à mon retour !
MichD ------------------------------------------ "bj73" a écrit dans le message de groupe de discussion :
MichD a écrit le 30/09/2011 à 15h11 :
J'oubliais, est-ce que ton classeur est protégé ? Est-ce que ta feuille est protégée ? Si oui, tu dois enlever la protection du classeur et de la feuille "Placo" avant de lancer la macro, ou inclure du code pour ajouter cela à ta macro.
MichD ------------------------------------------
Re,
Non ma feuille est pas verrouillé je galère comme un fou surtout que ca fonctionné avant comme puis je te faire passer mon adresse mail?
à très vite LOL
Tu peux m'envoyer ton fichier en utilisant mon adresse Hotmail.
Je dois m'absenter pour quelques heures... je verrai à mon retour !
MichD
------------------------------------------
"bj73" a écrit dans le message de groupe de discussion : zKCdndLfV-RMWxjTRVn_vwA@giganews.com...
MichD a écrit le 30/09/2011 à 15h11 :
J'oubliais, est-ce que ton classeur est protégé ? Est-ce que ta
feuille est protégée ?
Si oui, tu dois enlever la protection du classeur et de la feuille
"Placo" avant de lancer
la macro, ou inclure du code pour ajouter cela à ta macro.
MichD
------------------------------------------
Re,
Non ma feuille est pas verrouillé
je galère comme un fou surtout que ca fonctionné avant
comme puis je te faire passer mon adresse mail?
Tu peux m'envoyer ton fichier en utilisant mon adresse Hotmail.
Je dois m'absenter pour quelques heures... je verrai à mon retour !
MichD ------------------------------------------ "bj73" a écrit dans le message de groupe de discussion :
MichD a écrit le 30/09/2011 à 15h11 :
J'oubliais, est-ce que ton classeur est protégé ? Est-ce que ta feuille est protégée ? Si oui, tu dois enlever la protection du classeur et de la feuille "Placo" avant de lancer la macro, ou inclure du code pour ajouter cela à ta macro.
MichD ------------------------------------------
Re,
Non ma feuille est pas verrouillé je galère comme un fou surtout que ca fonctionné avant comme puis je te faire passer mon adresse mail?
à très vite LOL
MichD
Dans la fenêtre de l'éditeur de code, / barres des menus / outils / références / dans la liste, décoche les références marquées "Manquantes" si tu en as.
Chez moi, la macro que je t'ai proposée fonctionne très bien !
MichD ------------------------------------------
Dans la fenêtre de l'éditeur de code, / barres des menus / outils / références /
dans la liste, décoche les références marquées "Manquantes" si tu en as.
Chez moi, la macro que je t'ai proposée fonctionne très bien !
Dans la fenêtre de l'éditeur de code, / barres des menus / outils / références / dans la liste, décoche les références marquées "Manquantes" si tu en as.
Chez moi, la macro que je t'ai proposée fonctionne très bien !
