1- Code qui me colle la sélection dans la 1er céllule vide de la colonne A
2- Code qui permet d'arrondir toute les valeurs d'une collone au 5ème
supérieur (2 ==> 5; 17 ==> 20 ....)
3- Code qui lorsque l'on ferme le classeur supprimer la feuille "Feuil1"
s'il y en à une sinon. Si il y en à une alors il continue et supprime la
feuille "Feuil2" s'il y en à une ..... jusqu'à la feuille "Feuil10"
Heuu! Oui! c pour tester le nivo du groupe en fait!!! ; - )
bonjour Daniel,
c'est des devoirs de vacances que tu proposes ? :-)))))))
friendly
Nicolas B.
Salut,
Pour tester le niveau du groupe, regarde les anciens fils :-)
Tu y trouves notamment les réponses à tes trois questions : http://groups.google.fr/groups?q=colle+%22premi%C3%A8re+cellule+vide%22+group%3Amicrosoft.public.fr.excel http://groups.google.fr/groups?q=vba+%22arrondir+%C3%A0%22+pr%C3%A8s+group%3Amicrosoft.public.fr.excel
Pour ta troisième question, je n'ai pas trouvé de réponse intégrale, mais voilà des procédures pour tester l'existence d'une feuille : http://groups.google.fr/groups?q=%22tester+l%27existence+d%27une+feuille%22+group%3Amicrosoft.public.fr.excel avec une petite boucle while dans la procédure Workbook_BeforeClose et le tour est joué.
A+ Nicolas B.
Heuu! Oui! c pour tester le nivo du groupe en fait!!! ; - )
bonjour Daniel,
c'est des devoirs de vacances que tu proposes ? :-)))))))
friendly
Salut,
Pour tester le niveau du groupe, regarde les anciens fils :-)
Tu y trouves notamment les réponses à tes trois questions :
http://groups.google.fr/groups?q=colle+%22premi%C3%A8re+cellule+vide%22+group%3Amicrosoft.public.fr.excel
http://groups.google.fr/groups?q=vba+%22arrondir+%C3%A0%22+pr%C3%A8s+group%3Amicrosoft.public.fr.excel
Pour ta troisième question, je n'ai pas trouvé de réponse intégrale,
mais voilà des procédures pour tester l'existence d'une feuille :
http://groups.google.fr/groups?q=%22tester+l%27existence+d%27une+feuille%22+group%3Amicrosoft.public.fr.excel
avec une petite boucle while dans la procédure Workbook_BeforeClose et
le tour est joué.
A+
Nicolas B.
Heuu! Oui! c pour tester le nivo du groupe en fait!!! ; - )
bonjour Daniel,
c'est des devoirs de vacances que tu proposes ?
:-)))))))
Pour tester le niveau du groupe, regarde les anciens fils :-)
Tu y trouves notamment les réponses à tes trois questions : http://groups.google.fr/groups?q=colle+%22premi%C3%A8re+cellule+vide%22+group%3Amicrosoft.public.fr.excel http://groups.google.fr/groups?q=vba+%22arrondir+%C3%A0%22+pr%C3%A8s+group%3Amicrosoft.public.fr.excel
Pour ta troisième question, je n'ai pas trouvé de réponse intégrale, mais voilà des procédures pour tester l'existence d'une feuille : http://groups.google.fr/groups?q=%22tester+l%27existence+d%27une+feuille%22+group%3Amicrosoft.public.fr.excel avec une petite boucle while dans la procédure Workbook_BeforeClose et le tour est joué.
A+ Nicolas B.
Heuu! Oui! c pour tester le nivo du groupe en fait!!! ; - )
bonjour Daniel,
c'est des devoirs de vacances que tu proposes ? :-)))))))
friendly
Daniel
J'arrive toujours pas à faire l'arrondi sous VBA!!!!
Salut,
Pour tester le niveau du groupe, regarde les anciens fils :-)
Tu y trouves notamment les réponses à tes trois questions : http://groups.google.fr/groups?q=colle+%22premi%C3%A8re+cellule+vide%22+group%3Amicrosoft.public.fr.excel http://groups.google.fr/groups?q=vba+%22arrondir+%C3%A0%22+pr%C3%A8s+group%3Amicrosoft.public.fr.excel
Pour ta troisième question, je n'ai pas trouvé de réponse intégrale, mais voilà des procédures pour tester l'existence d'une feuille : http://groups.google.fr/groups?q=%22tester+l%27existence+d%27une+feuille%22+group%3Amicrosoft.public.fr.excel avec une petite boucle while dans la procédure Workbook_BeforeClose et le tour est joué.
A+ Nicolas B.
Heuu! Oui! c pour tester le nivo du groupe en fait!!! ; - )
bonjour Daniel,
c'est des devoirs de vacances que tu proposes ? :-)))))))
friendly
J'arrive toujours pas à faire l'arrondi sous VBA!!!!
Salut,
Pour tester le niveau du groupe, regarde les anciens fils :-)
Tu y trouves notamment les réponses à tes trois questions :
http://groups.google.fr/groups?q=colle+%22premi%C3%A8re+cellule+vide%22+group%3Amicrosoft.public.fr.excel
http://groups.google.fr/groups?q=vba+%22arrondir+%C3%A0%22+pr%C3%A8s+group%3Amicrosoft.public.fr.excel
Pour ta troisième question, je n'ai pas trouvé de réponse intégrale,
mais voilà des procédures pour tester l'existence d'une feuille :
http://groups.google.fr/groups?q=%22tester+l%27existence+d%27une+feuille%22+group%3Amicrosoft.public.fr.excel
avec une petite boucle while dans la procédure Workbook_BeforeClose et
le tour est joué.
A+
Nicolas B.
Heuu! Oui! c pour tester le nivo du groupe en fait!!! ; - )
bonjour Daniel,
c'est des devoirs de vacances que tu proposes ?
:-)))))))
J'arrive toujours pas à faire l'arrondi sous VBA!!!!
Salut,
Pour tester le niveau du groupe, regarde les anciens fils :-)
Tu y trouves notamment les réponses à tes trois questions : http://groups.google.fr/groups?q=colle+%22premi%C3%A8re+cellule+vide%22+group%3Amicrosoft.public.fr.excel http://groups.google.fr/groups?q=vba+%22arrondir+%C3%A0%22+pr%C3%A8s+group%3Amicrosoft.public.fr.excel
Pour ta troisième question, je n'ai pas trouvé de réponse intégrale, mais voilà des procédures pour tester l'existence d'une feuille : http://groups.google.fr/groups?q=%22tester+l%27existence+d%27une+feuille%22+group%3Amicrosoft.public.fr.excel avec une petite boucle while dans la procédure Workbook_BeforeClose et le tour est joué.
A+ Nicolas B.
Heuu! Oui! c pour tester le nivo du groupe en fait!!! ; - )
bonjour Daniel,
c'est des devoirs de vacances que tu proposes ? :-)))))))
friendly
Nicolas B.
Essaie ceci :
Function Arrondi(Valeur As Single) Arrondi = WorksheetFunction.RoundUp(Valeur / 5, 0) * 5 End Function
A+ Nicolas B.
J'arrive toujours pas à faire l'arrondi sous VBA!!!!
Essaie ceci :
Function Arrondi(Valeur As Single)
Arrondi = WorksheetFunction.RoundUp(Valeur / 5, 0) * 5
End Function
A+
Nicolas B.
J'arrive toujours pas à faire l'arrondi sous VBA!!!!
Function Arrondi(Valeur As Single) Arrondi = WorksheetFunction.RoundUp(Valeur / 5, 0) * 5 End Function
A+ Nicolas B.
J'arrive toujours pas à faire l'arrondi sous VBA!!!!
Daniel
Merci Nicolas! Y à t'il le code transposable en Sub, pour que l'application ce fasse sur une selection de cellule uniquement et pas sur toute la feuille ??
Du genre :
Sub arrondir() Range("B6:B15").Select ??? Arrondi = WorksheetFunction.RoundUp(Valeur / 5, 0) * 5 End Sub
Essaie ceci :
Function Arrondi(Valeur As Single) Arrondi = WorksheetFunction.RoundUp(Valeur / 5, 0) * 5 End Function
A+ Nicolas B.
J'arrive toujours pas à faire l'arrondi sous VBA!!!!
Merci Nicolas!
Y à t'il le code transposable en Sub, pour que l'application ce fasse sur
une selection de cellule uniquement et pas sur toute la feuille ??
Du genre :
Sub arrondir()
Range("B6:B15").Select
??? Arrondi = WorksheetFunction.RoundUp(Valeur / 5, 0) * 5
End Sub
Essaie ceci :
Function Arrondi(Valeur As Single)
Arrondi = WorksheetFunction.RoundUp(Valeur / 5, 0) * 5
End Function
A+
Nicolas B.
J'arrive toujours pas à faire l'arrondi sous VBA!!!!
Merci Nicolas! Y à t'il le code transposable en Sub, pour que l'application ce fasse sur une selection de cellule uniquement et pas sur toute la feuille ??
Du genre :
Sub arrondir() Range("B6:B15").Select ??? Arrondi = WorksheetFunction.RoundUp(Valeur / 5, 0) * 5 End Sub
Essaie ceci :
Function Arrondi(Valeur As Single) Arrondi = WorksheetFunction.RoundUp(Valeur / 5, 0) * 5 End Function
A+ Nicolas B.
J'arrive toujours pas à faire l'arrondi sous VBA!!!!
Ange Ounis
Par exemple, pour une plage A1:A5 :
Sub Plafond() Dim cell As Range For Each cell In Range("A1:A5") cell.Value = Application.Ceiling(cell.Value, 5) Next End Sub
---------- Ange Ounis ----------
J'arrive toujours pas à faire l'arrondi sous VBA!!!!
Salut,
Pour tester le niveau du groupe, regarde les anciens fils :-)
Tu y trouves notamment les réponses à tes trois questions : http://groups.google.fr/groups?q=colle+%22premi%C3%A8re+cellule+vide%22+group%3Amicrosoft.public.fr.excel http://groups.google.fr/groups?q=vba+%22arrondir+%C3%A0%22+pr%C3%A8s+group%3Amicrosoft.public.fr.excel
Pour ta troisième question, je n'ai pas trouvé de réponse intégrale, mais voilà des procédures pour tester l'existence d'une feuille : http://groups.google.fr/groups?q=%22tester+l%27existence+d%27une+feuille%22+group%3Amicrosoft.public.fr.excel avec une petite boucle while dans la procédure Workbook_BeforeClose et le tour est joué.
A+ Nicolas B.
Heuu! Oui! c pour tester le nivo du groupe en fait!!! ; - )
bonjour Daniel,
c'est des devoirs de vacances que tu proposes ? :-)))))))
friendly
Par exemple, pour une plage A1:A5 :
Sub Plafond()
Dim cell As Range
For Each cell In Range("A1:A5")
cell.Value = Application.Ceiling(cell.Value, 5)
Next
End Sub
----------
Ange Ounis
----------
J'arrive toujours pas à faire l'arrondi sous VBA!!!!
Salut,
Pour tester le niveau du groupe, regarde les anciens fils :-)
Tu y trouves notamment les réponses à tes trois questions :
http://groups.google.fr/groups?q=colle+%22premi%C3%A8re+cellule+vide%22+group%3Amicrosoft.public.fr.excel
http://groups.google.fr/groups?q=vba+%22arrondir+%C3%A0%22+pr%C3%A8s+group%3Amicrosoft.public.fr.excel
Pour ta troisième question, je n'ai pas trouvé de réponse intégrale,
mais voilà des procédures pour tester l'existence d'une feuille :
http://groups.google.fr/groups?q=%22tester+l%27existence+d%27une+feuille%22+group%3Amicrosoft.public.fr.excel
avec une petite boucle while dans la procédure Workbook_BeforeClose et
le tour est joué.
A+
Nicolas B.
Heuu! Oui! c pour tester le nivo du groupe en fait!!! ; - )
bonjour Daniel,
c'est des devoirs de vacances que tu proposes ?
:-)))))))
Sub Plafond() Dim cell As Range For Each cell In Range("A1:A5") cell.Value = Application.Ceiling(cell.Value, 5) Next End Sub
---------- Ange Ounis ----------
J'arrive toujours pas à faire l'arrondi sous VBA!!!!
Salut,
Pour tester le niveau du groupe, regarde les anciens fils :-)
Tu y trouves notamment les réponses à tes trois questions : http://groups.google.fr/groups?q=colle+%22premi%C3%A8re+cellule+vide%22+group%3Amicrosoft.public.fr.excel http://groups.google.fr/groups?q=vba+%22arrondir+%C3%A0%22+pr%C3%A8s+group%3Amicrosoft.public.fr.excel
Pour ta troisième question, je n'ai pas trouvé de réponse intégrale, mais voilà des procédures pour tester l'existence d'une feuille : http://groups.google.fr/groups?q=%22tester+l%27existence+d%27une+feuille%22+group%3Amicrosoft.public.fr.excel avec une petite boucle while dans la procédure Workbook_BeforeClose et le tour est joué.
A+ Nicolas B.
Heuu! Oui! c pour tester le nivo du groupe en fait!!! ; - )
bonjour Daniel,
c'est des devoirs de vacances que tu proposes ? :-)))))))
friendly
Daniel
Génial!!!!
Encore une petite pour la route: Si je veux que 5, la valeur de l'arrondi sup soit variable, c'est à dire la cellule A1 de la feuille "ADMINISTRATION" ? Comment kon fait ? Je serai tenté de dire ça mais c pas ça : Sub Plafond() Dim cell As Range For Each cell In Range("A1:A5") cell.Value = Application.Ceiling(cell.Value, Sheets("ADMINISTRATION").Range("A1"))
Next End Sub
Par exemple, pour une plage A1:A5 :
Sub Plafond() Dim cell As Range For Each cell In Range("A1:A5") cell.Value = Application.Ceiling(cell.Value, 5) Next End Sub
---------- Ange Ounis ----------
J'arrive toujours pas à faire l'arrondi sous VBA!!!!
Salut,
Pour tester le niveau du groupe, regarde les anciens fils :-)
Tu y trouves notamment les réponses à tes trois questions : http://groups.google.fr/groups?q=colle+%22premi%C3%A8re+cellule+vide%22+group%3Amicrosoft.public.fr.excel http://groups.google.fr/groups?q=vba+%22arrondir+%C3%A0%22+pr%C3%A8s+group%3Amicrosoft.public.fr.excel
Pour ta troisième question, je n'ai pas trouvé de réponse intégrale, mais voilà des procédures pour tester l'existence d'une feuille : http://groups.google.fr/groups?q=%22tester+l%27existence+d%27une+feuille%22+group%3Amicrosoft.public.fr.excel avec une petite boucle while dans la procédure Workbook_BeforeClose et le tour est joué.
A+ Nicolas B.
Heuu! Oui! c pour tester le nivo du groupe en fait!!! ; - )
bonjour Daniel,
c'est des devoirs de vacances que tu proposes ? :-)))))))
friendly
Génial!!!!
Encore une petite pour la route: Si je veux que 5, la valeur de l'arrondi
sup soit variable, c'est à dire la cellule A1 de la feuille "ADMINISTRATION"
? Comment kon fait ?
Je serai tenté de dire ça mais c pas ça :
Sub Plafond()
Dim cell As Range
For Each cell In Range("A1:A5")
cell.Value = Application.Ceiling(cell.Value,
Sheets("ADMINISTRATION").Range("A1"))
Next
End Sub
Par exemple, pour une plage A1:A5 :
Sub Plafond()
Dim cell As Range
For Each cell In Range("A1:A5")
cell.Value = Application.Ceiling(cell.Value, 5)
Next
End Sub
----------
Ange Ounis
----------
J'arrive toujours pas à faire l'arrondi sous VBA!!!!
Salut,
Pour tester le niveau du groupe, regarde les anciens fils :-)
Tu y trouves notamment les réponses à tes trois questions :
http://groups.google.fr/groups?q=colle+%22premi%C3%A8re+cellule+vide%22+group%3Amicrosoft.public.fr.excel
http://groups.google.fr/groups?q=vba+%22arrondir+%C3%A0%22+pr%C3%A8s+group%3Amicrosoft.public.fr.excel
Pour ta troisième question, je n'ai pas trouvé de réponse intégrale,
mais voilà des procédures pour tester l'existence d'une feuille :
http://groups.google.fr/groups?q=%22tester+l%27existence+d%27une+feuille%22+group%3Amicrosoft.public.fr.excel
avec une petite boucle while dans la procédure Workbook_BeforeClose et
le tour est joué.
A+
Nicolas B.
Heuu! Oui! c pour tester le nivo du groupe en fait!!! ; - )
bonjour Daniel,
c'est des devoirs de vacances que tu proposes ?
:-)))))))
Encore une petite pour la route: Si je veux que 5, la valeur de l'arrondi sup soit variable, c'est à dire la cellule A1 de la feuille "ADMINISTRATION" ? Comment kon fait ? Je serai tenté de dire ça mais c pas ça : Sub Plafond() Dim cell As Range For Each cell In Range("A1:A5") cell.Value = Application.Ceiling(cell.Value, Sheets("ADMINISTRATION").Range("A1"))
Next End Sub
Par exemple, pour une plage A1:A5 :
Sub Plafond() Dim cell As Range For Each cell In Range("A1:A5") cell.Value = Application.Ceiling(cell.Value, 5) Next End Sub
---------- Ange Ounis ----------
J'arrive toujours pas à faire l'arrondi sous VBA!!!!
Salut,
Pour tester le niveau du groupe, regarde les anciens fils :-)
Tu y trouves notamment les réponses à tes trois questions : http://groups.google.fr/groups?q=colle+%22premi%C3%A8re+cellule+vide%22+group%3Amicrosoft.public.fr.excel http://groups.google.fr/groups?q=vba+%22arrondir+%C3%A0%22+pr%C3%A8s+group%3Amicrosoft.public.fr.excel
Pour ta troisième question, je n'ai pas trouvé de réponse intégrale, mais voilà des procédures pour tester l'existence d'une feuille : http://groups.google.fr/groups?q=%22tester+l%27existence+d%27une+feuille%22+group%3Amicrosoft.public.fr.excel avec une petite boucle while dans la procédure Workbook_BeforeClose et le tour est joué.
A+ Nicolas B.
Heuu! Oui! c pour tester le nivo du groupe en fait!!! ; - )
bonjour Daniel,
c'est des devoirs de vacances que tu proposes ? :-)))))))
friendly
Daniel
Encore plus loin ! En plus de mettre la cellule variable, est 'il possible de lui dire d'appliquer l'arrondi que sur les cellules de la selection où il y à des chiffres et pas là ou il y du texte ????
Par exemple, pour une plage A1:A5 :
Sub Plafond() Dim cell As Range For Each cell In Range("A1:A5") cell.Value = Application.Ceiling(cell.Value, 5) Next End Sub
---------- Ange Ounis ----------
J'arrive toujours pas à faire l'arrondi sous VBA!!!!
Salut,
Pour tester le niveau du groupe, regarde les anciens fils :-)
Tu y trouves notamment les réponses à tes trois questions : http://groups.google.fr/groups?q=colle+%22premi%C3%A8re+cellule+vide%22+group%3Amicrosoft.public.fr.excel http://groups.google.fr/groups?q=vba+%22arrondir+%C3%A0%22+pr%C3%A8s+group%3Amicrosoft.public.fr.excel
Pour ta troisième question, je n'ai pas trouvé de réponse intégrale, mais voilà des procédures pour tester l'existence d'une feuille : http://groups.google.fr/groups?q=%22tester+l%27existence+d%27une+feuille%22+group%3Amicrosoft.public.fr.excel avec une petite boucle while dans la procédure Workbook_BeforeClose et le tour est joué.
A+ Nicolas B.
Heuu! Oui! c pour tester le nivo du groupe en fait!!! ; - )
bonjour Daniel,
c'est des devoirs de vacances que tu proposes ? :-)))))))
friendly
Encore plus loin ! En plus de mettre la cellule variable, est 'il possible de
lui dire d'appliquer l'arrondi que sur les cellules de la selection où il y à
des chiffres et pas là ou il y du texte ????
Par exemple, pour une plage A1:A5 :
Sub Plafond()
Dim cell As Range
For Each cell In Range("A1:A5")
cell.Value = Application.Ceiling(cell.Value, 5)
Next
End Sub
----------
Ange Ounis
----------
J'arrive toujours pas à faire l'arrondi sous VBA!!!!
Salut,
Pour tester le niveau du groupe, regarde les anciens fils :-)
Tu y trouves notamment les réponses à tes trois questions :
http://groups.google.fr/groups?q=colle+%22premi%C3%A8re+cellule+vide%22+group%3Amicrosoft.public.fr.excel
http://groups.google.fr/groups?q=vba+%22arrondir+%C3%A0%22+pr%C3%A8s+group%3Amicrosoft.public.fr.excel
Pour ta troisième question, je n'ai pas trouvé de réponse intégrale,
mais voilà des procédures pour tester l'existence d'une feuille :
http://groups.google.fr/groups?q=%22tester+l%27existence+d%27une+feuille%22+group%3Amicrosoft.public.fr.excel
avec une petite boucle while dans la procédure Workbook_BeforeClose et
le tour est joué.
A+
Nicolas B.
Heuu! Oui! c pour tester le nivo du groupe en fait!!! ; - )
bonjour Daniel,
c'est des devoirs de vacances que tu proposes ?
:-)))))))
Encore plus loin ! En plus de mettre la cellule variable, est 'il possible de lui dire d'appliquer l'arrondi que sur les cellules de la selection où il y à des chiffres et pas là ou il y du texte ????
Par exemple, pour une plage A1:A5 :
Sub Plafond() Dim cell As Range For Each cell In Range("A1:A5") cell.Value = Application.Ceiling(cell.Value, 5) Next End Sub
---------- Ange Ounis ----------
J'arrive toujours pas à faire l'arrondi sous VBA!!!!
Salut,
Pour tester le niveau du groupe, regarde les anciens fils :-)
Tu y trouves notamment les réponses à tes trois questions : http://groups.google.fr/groups?q=colle+%22premi%C3%A8re+cellule+vide%22+group%3Amicrosoft.public.fr.excel http://groups.google.fr/groups?q=vba+%22arrondir+%C3%A0%22+pr%C3%A8s+group%3Amicrosoft.public.fr.excel
Pour ta troisième question, je n'ai pas trouvé de réponse intégrale, mais voilà des procédures pour tester l'existence d'une feuille : http://groups.google.fr/groups?q=%22tester+l%27existence+d%27une+feuille%22+group%3Amicrosoft.public.fr.excel avec une petite boucle while dans la procédure Workbook_BeforeClose et le tour est joué.
A+ Nicolas B.
Heuu! Oui! c pour tester le nivo du groupe en fait!!! ; - )
bonjour Daniel,
c'est des devoirs de vacances que tu proposes ? :-)))))))
friendly
AV
Pour le smilblick : Pour éviter "Ceiling" qui ne gère pas les valeurs négatives et "RoundUp" qui nécessite que l'utilitaire d'analyse soit installé :
x = Int(cell.value/ 5 + 1) * 5
AV
Pour le smilblick :
Pour éviter "Ceiling" qui ne gère pas les valeurs négatives et "RoundUp" qui
nécessite que l'utilitaire d'analyse soit installé :
