Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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
 
M

Manu13

Guest
Bonjour André et Marc

Merci pour vos réponses
C'est en VBA que je cherche une réponse...

ou alors stopper la recopie vers dès le premier résultat négatif

bonne soirée
Manu
 

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éponses
6
Affichages
204
  • Résolu(e)
Microsoft 365 valeur absolue
Réponses
2
Affichages
230
Réponses
2
Affichages
317
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…