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