copier une formule tant que c'est positif

M

Manu13

Guest
Bonjour le Forum

Après plusieurs recherches sans réponse, je m'adresse à vous!!!

je souhaiterai qu'une formule se copie vers le bas tant que le résultat est positif.

Merci par avance

Manu
 

Marc_du_78

XLDnaute Accro
Bonsoir Manu13, andré, le Forum,

Une idée de débutant (lol)
Ne serais-ce possible par une macro change
qui s'éxécuterait après la validation ?
Du style : je valide
Si A1>0 et B1>0
Alors appelle macro et copie la formule comme dans collage spécial Formule

Je vous prie de m'excuser si je dis une grosse bétise
 

Marc_du_78

XLDnaute Accro
re
Ceci est ma toure première macro (pardonne ma fierté) elle fonctionne (apparamment) pour la colonne c
Par contre, je ne peut te dire si As Integer est à retenir, mais elle marche après l'avoir testé de la façon suivante

A1=5 B1=5
Clique sur bouton créer et en C1=10

Je ne pourrais malheureusement pas t'aider davantage, mais ceci pourra éventuellement aider d'autres XLDiens (nes)

Private Sub MaFormule()
Dim MaFormule As Integer
Macolonne = Sheets('Feuil1').Range('c65536').End(xlUp).Row
Selection.SpecialCells(xlCellTypeBlanks).Select
ActiveCell.FormulaR1C1 = '=RC[-2]+RC[-1]'
End Sub

Bon courage et bonne soirée
 

Discussions similaires

  • Résolu(e)
Microsoft 365 valeur absolue
Réponses
2
Affichages
222
Réponses
2
Affichages
288

Statistiques des forums

Discussions
312 229
Messages
2 086 424
Membres
103 206
dernier inscrit
diambote