XL 2010 Vba

[Konte94]

Salut aidez moi à résoudre cet exercice ci-dessous :

Ecrire une fonction à trois paramètres ( a, b et defaut) qui retourne le minimum de deux entiers naturels a et b si et seulement si aucun n'est nul.
Si a (respectivement b) vaut 0, la fonction doit retourner b (respectivement a).
Si a et b sont nuls, la fonction doit retourner le 3ème paramètre (defaut)
(Faire une application sur une feuille Excel)

 

[laurent3372]

Salut à toi, Konte
Ce n'est pas vraiment aider que de fournir une solution toute faite, surtout en réponse à une demande formulée aussi poliment. Mais enfin, voilà.

Cordialement,
--
LR

 

[patricktoulon]

bonjour Laurent3372
une autre façon de l’écrire

comme tu l'écrirais en formule

Function Min_non_null(a As Integer, b As Integer, defaut As Integer) As Integer
' Default peut être du texte
     Min_non_null = IIf(a + b = 0, -1, IIf(a = 0 Or b = 0, a + b, WorksheetFunction.Min(a, b)))
End Function

la formule
=SI(A1+B1=0;-1;SI(OU(A1=0;B1=0);A1+B1;MIN(A1:B1)))

tu peux mettre ta formule dans un name et te faire une fonction aussi

 

[Konte94]

Salut à toi, Konte
Ce n'est pas vraiment aider que de fournir une solution toute faite, surtout en réponse à une demande formulée aussi poliment. Mais enfin, voilà.

Cordialement,
--
LR

Merci beaucoup Laurent

 

[Konte94]

bonjour Laurent3372
une autre façon de l’écrire

comme tu l'écrirais en formule

Function Min_non_null(a As Integer, b As Integer, defaut As Integer) As Integer
' Default peut être du texte
     Min_non_null = IIf(a + b = 0, -1, IIf(a = 0 Or b = 0, a + b, WorksheetFunction.Min(a, b)))
End Function

la formule
=SI(A1+B1=0;-1;SI(OU(A1=0;B1=0);A1+B1;MIN(A1:B1)))

tu peux mettre ta formule dans un name et te faire une fonction aussi

Salut Laurent j'ai essayé de résoudre cet exercice ci-dessous mais le nombre de ligne et de colonne est de 5. Pouvez vous m'aider svp à l'élargir pour n lignes et m colonnes.
Je vous envoie l'énoncé et la pièce jointe.

1°) Faire un programme VBA qui génère sur une feuille Excel un tableau de n lignes et de m colonnes contenant les nombres multiples du chiffre 3. Exple 0, 3, 6, 9…
Les tailles n et m sont récupérées par le programme.

 

[Konte94]

Merci beaucoup Laurent

Salut à toi, Konte
Ce n'est pas vraiment aider que de fournir une solution toute faite, surtout en réponse à une demande formulée aussi poliment. Mais enfin, voilà.

Cordialement,
--
LR

Salut Larent vérifiez pour moi svp si on peut élargir cette macro à n lignes et m colonnes.
Voici l'énoncé et la pièce jointe ci-dessous.

1°) Faire un programme VBA qui génère sur une feuille Excel un tableau de n lignes et de m colonnes contenant les nombres multiples du chiffre 3. Exple 0, 3, 6, 9…
Les tailles n et m sont récupérées par le programme.

 

[Ikito]

Déjà répondu :

Function retourner(a As Integer, b As Integer, defaut As Integer)

If (a = 0) Then
    retourner = b
End If

If (b = 0) Then
    retourner = a
End If

If (a <> 0 And b <> 0) Then
    retourner = Application.Min(a, b)
End If

If (a = 0 And b = 0) Then
    retourner = defaut
End If

End Function

 

[laurent3372]

@Konte94 : c'est un nouveau problème. Ouvre un nouveau fil.

 

[Ikito]

Konte,

On va arrêter de faire des aller-retours !!!

Solution au dernier fil : https://www.excel-downloads.com/threads/multiple.20037737/page-2

Et je remets le classeur en PJ. C'est pénible

 

[Konte94]

Konte,

On va arrêter de faire des aller-retours !!!

Solution au dernier fil : https://www.excel-downloads.com/threads/multiple.20037737/page-2

Et je remets le classeur en PJ. C'est pénible

Je comprends Ikito mais ce qui me manque c'est de pouvoir générer un tableau avec autant de ligne que de colonne que je veux.

 

[Ikito]

Où est le problème ?!