reporter une valeur dans la cellule suivante si >0

G

gagey

Guest

• 7 Février 2006

• #2

mon email est guillaume.gagey@ismfrance.com

 

Vote positif 0 Vote négatif

myDearFriend!

XLDnaute Barbatruc

• 7 Février 2006

• #3

Bonsoir gagey, le Forum,

Si j'ai bien compris la question, tu copies le code VBA ci-dessous dans un module de code général (Module1 par exemple). Ensuite tu places la sélection sur la ligne souhaitée et tu lances cette macro.

Sub Traitement()
Dim L As Long
Dim C As Integer, Cmax As Integer
Dim M As Integer
      L = ActiveCell.Row
      Cmax = Cells(L, 256).End(xlToLeft).Column
      For C = 1 To Cmax
            M = M + Cells(L, C)
            If M >= 0 Then
                  Cells(L, C) = 0
            Else
                  Cells(L, C) = M
                  M = 0
            End If
      Next C
End Sub

Cliquez pour agrandir...

Si la ligne peut comporter des nombres décimaux, il conviendra de remplacer :

Dim M As Integer

Cliquez pour agrandir...

par

Dim M As double

Cliquez pour agrandir...

Cordialement,

 

Vote positif 0 Vote négatif

G

guillaumega

Guest

• 7 Février 2006

• #4

En fait pour donner quelques explications supplémentaires, il s'agit de calculs sur la tva. Comme on ne s'amuse pas à demander un remboursement à l'administration fiscale à chaque fois qu'elle nous doit un peut d'argent, on reporte le crédit sur la période suivante.

Merci pour votre formule mais j'ai jamais utilisé le VBA (-> j'y comprend pas grand chose :s ).
Vous pensez que le VBA est la seule solution ou est-il envisageable de sortir une formule?

 

Vote positif 0 Vote négatif

G

guillaumega

Guest

• 7 Février 2006

• #5

j'essaye demain de monter ma première macro direct en code sans bouton 🙂
Si j'arrive pas, je demanderai votre aide à tous 😱

 

Vote positif 0 Vote négatif

G

Guillaumega

XLDnaute Impliqué

• 8 Février 2006

• #6

Bonjour,
arf j'ai essayé cette macro. Elle marche très bien lorsque j'ai le curseur sur la bonne ligne et que je travaille avec des valeurs.
Le seul souci c'est que je travaille avec des formules et que cette macro fort logiquement ne semble pas être compatible.
Je me permets donc de vous reposer la question, est-ce que vous avez une idée pour une formule s'il vous plait?
Merci par avance,
guillaumega

 

Vote positif 0 Vote négatif

G

Guillaumega

XLDnaute Impliqué

• 8 Février 2006

• #7

Bonjour,
arf j'ai essayé cette macro. Elle marche très bien lorsque j'ai le curseur sur la bonne ligne et que je travaille avec des valeurs.
Le seul souci c'est que je travaille avec des formules et que cette macro fort logiquement ne semble pas être compatible.
Je me permets donc de vous reposer la question, est-ce que vous avez une idée pour une formule s'il vous plait?
Merci par avance,
guillaumega

 

Vote positif 0 Vote négatif

Jocelyn

XLDnaute Barbatruc

• 8 Février 2006

• #8

Bonjour le Forum,
Bonjour Guillaumega, myDearFriend!,

Bien que la macro de myDearFriend! (bravo MDF)me paraisse des plus interessante suivant ta demande de formule voila un exemple dans le fichier joint.

Bonne journée

Jocelyn [file name=tva_20060208110137.zip size=1616]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/tva_20060208110137.zip[/file]

 

Pièces jointes

• tva_20060208110137.zip

  1.6 KB · Affichages: 24

Vote positif 0 Vote négatif

G

Guillaumega

XLDnaute Impliqué

• 8 Février 2006

• #9

la macro fonctionne en effet parfaitement si l'on travaille sur des séries de chiffres non issus de formules. Merci donc à l'auteur de cette macro!!
Merci aussi à vous qui m'avez donné la solution que je recherchait en vain et enfin, merci au lecteurs du forum qui harpentent les messages pour savoir sur lesquels ils sont en mesure d'aider/d'apprendre qqch!
A+
guillaumega

 

Vote positif 0 Vote négatif