Discussion :

[seblenor]

Bonjour à tous,
Ma question est assez simple:
Peut-on créer une fonction par VBA qui inscrive dans la cellule où on la pose (exemple C1) le résultat d'une division mais QUE la partie entière, et que le reste de la division soit inscrit à côté (dans ce cas, D1). ???
Et si oui, comment?
Merci d'avance

[Denis la Malice]

Supposons que la cellule A1 contienne le dividende et la cellule B1 le diviseur.

Voici la formule à mettre dans C1 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=ENT(A1/B1)

Voici la formule à mettre dans D1 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=MOD(A1;B1)

Et pis c'est tout ...

[QuestVba]

ou en c1

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=QUOTIENT(A1;B1)

En macro vite fait

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub div()
 
Cells(1, 3).Value = Cells(1, 1).Value \ Cells(1, 2).Value
Cells(1, 4) = Cells(1, 1).Value Mod Cells(1, 2).Value
 
 
End Sub

[seblenor]

merci à tous, mais ma question était : en passant par une "FUNCTION" ()
qui écrirait dans deux cellules...
une idée ???

[rvtoulon]

merci à tous, mais ma question était : en passant par une "FUNCTION" ()
qui écrirait dans deux cellules...

A ma connaissance c'est pas possible.
Une Fonction écrit dans la cellule ou elle se trouve uniquement

[Denis la Malice]

Quand on essaie de modifier le contenu d'une cellule dans une fonction appelée dans une formule de cellule, il y a génération d'une erreur de type "#VALEUR!".

Quel est l’intérêt de modifier une cellule par une formule se trouvant dans une autre cellule ?

[seblenor]

en fait, c'est pour un angle, j'ai calculé un angle (dans ma fameuse fonction !) et j'aimerais que les degrés soient renseignés dans une cellule, les minutes d'angle dans la case adjacente, et encore à côté les secondes d'angle...

[Denis la Malice]

Écris 3 fonctions. Chacune renvoyant le composant qui t'intéresse.

[seblenor]

c'est ce que je faisais jusqu'à maintenant , merci d'être arrivé à la même conclusion que moi,j'espérais qu'il soit possible de faire autrement, mais merci quand même!

[mercatog]

Il y a une possibilité de faire une fonction personnalise matricielle.

Exemple au pif (à mettre dans un module standard)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Function SEP(ByVal N1 As Integer, ByVal N2 As Integer)
Dim T(1 To 2) As Double
 
T(1) = N1 \ N2
T(2) = N1 Mod N2
 
SEP = T
End Function

On l'appelle en sélectionnant E1:F1 et en écrivant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=SEP(A1; A2)

On valide par Ctrl Shift Enter