fonction perso sous excel

Bonjour
Une fonction renvoie une valeur mais n'agit pas sur une feuille.

Il doit y avoir en fin de fonction
SupprLigne=valeur

Chris

Bonsoir Gothico, Chris, le Forum.

En complément de la réponse de Chris (que je salue au passage) :

            On peut faire appel à une fonction personnalisée dans une formule d'une feuille de calcul à la seule
            condition que cette fonction soit "passive", c'est à dire qu'elle est sensée retourner une valeur de
            résultat mais ne peut en aucun cas manipuler les objets.

Ta fonction SupprLigne() appelée depuis la feuille te retourne donc une erreur à cause de
ActiveCell.EntireRow.Delete

Cordialement,
Didier_mDF

Salut,

Ce que tu cherche à faire ne peux pas fonctionner. Ce n'est pas une une fonction mais uns procédure.
Une fonction doit renvoyer une valeur comme le fait remarquer Chris et ne peux pas supprimer de ligne.

D'autre part ce que tu souhaites faire ne peut pas marcher car tu dis dans une cellule que si A1 est vide alors on supprime la ligne entière, donc la ligne ou il y a ton test. C'est un peut le serpent qui se mord la Queue.

Que veux tu faire exactement? Supprimer la ligne si on efface la cellule A1?

Dans ce cas il faut utiliser une macro évenementielle qui test toute modification de la cellule A1. Et si jamais on vide la valeur, alors la macro supprime la ligne. ( En utilisant par exemple l'évènement Private Sub Worksheet_Change)

@+
Xavier

Non, je veux supprimer la ligne que si la valeur C1 de la feuille 1 est égal à la chaine en question. Donc ca ne se mort pas la queue.

Mais ma réponse doit etre dans ces macros evenmentielle, mais dans ce cas, je dois faire le SI dans la macro?

Pour faire plus simple, en fait, je crois qu'il vaut mieux que je le fasse comme tu as dis (suppression ligne si AX est vide), mais comment je fais le parcours de toutes les cellules AX en VBA?

J'ai réussi en faisant ca :

Private Sub Worksheet_Change()
Dim Ligne As Byte, Col As Byte
Col = 1
For Ligne = 1 To 20
If (Cells(Ligne, Col) = "") Then
Cells(Ligne, Col).EntireRow.Delete
End If
Next Ligne
End Sub

Mais cela ne s'execute pas quand il y a un changement, comment ca se fait?

OK, c'est bon, j'ai réussi à faire ce que je voulais ;o)
Merci.