Discussion :

[BLACKEYED05]

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 :

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

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

[Kimy_Ire]

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.

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 :

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

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 !

Cordialement,
Kimy

[Thautheme]

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 :

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

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é...