Bonjour à tous !
Je souhaite ajouter une ligne sur une autre feuille (Feuil1) si la valeur de la cellule A1 de ma feuille active (Feuil2) est supérieure à 0. Pour se faire, j'appelle ma fonction depuis ma cellule A2 en renseignant 2 paramètres : nom de la feuille (où je souhaite ajouter une ligne); valeur (56,3 dans mon exemple).
Voici la formule en A2 :
Et ma macro >> Module >> Module1 :
Ma fonction est bien appelée mais malheureusement, aucune ligne ne s'insère dans ma Feuil1... De plus en A2 (si A1>0), j'ai une erreur #VALEUR?
Je joins à ce post un fichier d'exemple qui sera sans doute plus parlant. Merci d'avance pour votre aide et soutien !
Je souhaite ajouter une ligne sur une autre feuille (Feuil1) si la valeur de la cellule A1 de ma feuille active (Feuil2) est supérieure à 0. Pour se faire, j'appelle ma fonction depuis ma cellule A2 en renseignant 2 paramètres : nom de la feuille (où je souhaite ajouter une ligne); valeur (56,3 dans mon exemple).
Voici la formule en A2 :
VB:
=SI($A$1>0;ajout_ligne("Feuil1";56,3);"aucune action")Et ma macro >> Module >> Module1 :
Code:
Function ajout_ligne(nom_feuille, valeur)
Dim ligne As Long, y As Single
Dim x As String
x = nom_feuille
y = valeur
ligne = Sheets(x).Range("A65000").End(xlUp).Offset(0, 0).Row
MsgBox ligne
MsgBox x
Sheets(x).Range("A" & ligne) = Now
Sheets(x).Range("B" & ligne) = y
End FunctionMa fonction est bien appelée mais malheureusement, aucune ligne ne s'insère dans ma Feuil1... De plus en A2 (si A1>0), j'ai une erreur #VALEUR?
Je joins à ce post un fichier d'exemple qui sera sans doute plus parlant. Merci d'avance pour votre aide et soutien !