Création d'une fonction (VBA)

Bonjour,

je suis débutant sur Vba (et pas du tout informaticien)

J'essaie de bidouiller une fonction qui permettrait de copier la valeur d'une cellule si une condition est rempli (copie uniquement de la valeur)


voilà ce que j'ai réussi à bidouiller (et qui évidemment ne marche pas ) :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Function regie(caisse As Integer, vérif As Integer) As String ' If vérif = 1 Then ' Range(caisse).Select Selection.Copy.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False     End If   End Function

---

toute aide sera la bienvenue

d'avance merci

Bonjour BLACKEYED05,

J'ai un peu de mal à comprendre le besoin.
Tu veux une fonction Function ou une procédure Sub ?
Fonction : tu mettras dans ta feuille le signe "égal" "=" et tu utiliseras ta fonction personnalisée. Ou tu utiliseras directement cette fonction dans une procédure de ton classeur.
Procédure : tu la lances et elle s'exécute... disons ça comme ça. :aie:

Exemple simple :

	A	B	C
1	0	Val1	=Ma_fonc(B1)
2	1	Val2	=Ma_fonc(B2)
3	1	Val3	=Ma_fonc(B3)
4	0	Val4	=Ma_fonc(B4)

Avec, par exemple :

Code:

---

1 2 3 4 5 6 7 8 9

Function Ma_fonc(oRng As Range)   If oRng.Offset(0, -1) = 1 Then Ma_fonc = oRng Else Ma_fonc = "" End If   End Function

---

Cette fonction permet de récupérer la valeur de la cellule que tu lui passes en paramètre si la cellule à sa gauche contient la valeur "1".
Ainsi, dans mon exemple, tu auras "Val2" et "Val3" d'afficher.

Bref, au final, n'ayant pas compris entièrement ton besoin, il me semble que le plus judicieux soit que tu reviennes vers moi ! :ccool:

Cordialement,
Kimy

Bonjour Blackeyed, bonjour le forum,

Ce que j'ai compris c'est que ta fonction a deux arguments : Caisse et Verif (on va éviter les accents). Tu vas sélectionner une cellule, tu vas écrire "=REGIE(", tu vas sélectionner la cellule Caisse qui contient la valeur à copier, tu vas écrire ";", puis tu vas sélectionner la cellule Verif qui contient la valeur de la condition, tu vas fermer la parenthèse ")" et enfin tu valides. En fonction de Verif ça va te coller la valeur de Caisse dans la cellule sélectionnée. Si c'est ça, essaie :

Code:

---

1 2 3

Public Function REGIE(Caisse As Range, Verif As Range) If Verif = 1 Then REGIE = Caisse.Value End Function

---

[Édition]
Bonsoir Kimy on s'est croisé...