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"
C'est très juste ! D'ailleurs ça ne marche jamais (tel quel) quand mod(lavaleur;lepas)=0 Alternative avec un petit coup d'Evaluate :
z = ActiveCell x = Evaluate("if(mod(" & z & ",5)=0," & z & ",int(" & z & "/5+1)*5)")
AV
Ange Ounis
Sub Plafond() Dim cell As Range For Each cell In Range("A1:A5") If IsNumeric(cell.Value) Then cell.Value = Application.Ceiling(cell.Value, 5) End If Next End Sub
---------- Ange Ounis ----------
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
Sub Plafond()
Dim cell As Range
For Each cell In Range("A1:A5")
If IsNumeric(cell.Value) Then
cell.Value = Application.Ceiling(cell.Value, 5)
End If
Next
End Sub
----------
Ange Ounis
----------
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 ?
:-)))))))
Sub Plafond() Dim cell As Range For Each cell In Range("A1:A5") If IsNumeric(cell.Value) Then cell.Value = Application.Ceiling(cell.Value, 5) End If Next End Sub
---------- Ange Ounis ----------
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 ? :-)))))))
