Ecrire dans plusieurs cellules avec une fonction

**seblenor** · 04/04/2013, 09h36

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** · 04/04/2013, 09h57

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** · 04/04/2013, 10h00

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** · 04/04/2013, 14h09

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

**rvtoulon** · 04/04/2013, 14h40

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** · 04/04/2013, 15h09

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** · 04/04/2013, 19h33

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** · 04/04/2013, 19h48

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

**seblenor** · 04/04/2013, 22h08

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** · 04/04/2013, 23h00

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