XL 2019 Problème de boucle pour soustraction de nombre et total vba

xUpsilon

XLDnaute Accro

• 22 Octobre 2019

• #2

Bonjour,

J'ai pas bien compris ce que tu voulais faire mais voici très simplement un tableau avec dans Solde heures le nombre d'heures restantes après entrée d'un certain nombre d'heures en C_ et en haut en gros renvoyé le nombre d'heures restant actuellement.

Dis moi si c'est ce que tu veux.

Bonne continuation

PS : Le VBA, c'est comme les problèmes : moins y en a, mieux on se porte.

 

Pièces jointes

• Carte Vacances 2020.xlsm

  19.6 KB · Affichages: 3

Vote positif 0 Vote négatif

S

Santulud

XLDnaute Occasionnel

• 22 Octobre 2019

• #3

bonjour,
il suffit de changer ton code en :

VB:

Dim i As Integer

Cells(9, 12) = Cells(9, 12).Value
Cells(11, 4).Value = Cells(9, 12).Value - Cells(11, 3).Value

For i = 12 To 30
 Cells(i, 4).Value = Cells(i - 1, 4).Value - Cells(i, 3).Value
    
     Next i
    
End Sub

 

Vote positif 0 Vote négatif

xUpsilon

XLDnaute Accro

• 22 Octobre 2019

• #4

Re,

@Santulud

VB:

Cells(9,12) = Cells(9,12).Value

Ca ne veut rien dire, c'est une référence circulaire 😕

Et je ne suis vraiment pas certain qu'une boucle VBA soit nécessaire dans cette situation (de plus, tu as oublié la partie droite du tableau (les lignes 21 à 40)

Bonne continuation

 

Vote positif 0 Vote négatif

T

thespeedy20

XLDnaute Occasionnel

• 22 Octobre 2019

• #5

Re,

@xUpsilon , merci pour ta proposition...j 'ai enlevé la référence circulaire
@Santulud , très bien cela fonctionne, pour la deuxième partie, je refais la même boucle ?

 

Vote positif 0 Vote négatif

S

Santulud

XLDnaute Occasionnel

• 23 Octobre 2019

• #6

Oui, en l'adaptant bien sur

 

Vote positif 0 Vote négatif

T

thespeedy20

XLDnaute Occasionnel

• 23 Octobre 2019

• #7

Bonjour,

@Santulud : comme ceci

VB:

Cells(11, 4).Value = Cells(9, 12).Value - Cells(11, 3).Value
 
  For i = 12 To 30
 
   If Cells(i - 1, 3).Value <> "" Then Cells(i, 4).Value = Cells(i - 1, 4).Value - Cells(i, 3).Value
  
       If Cells(i - 1, 3).Value = "" Then Exit For
 
      
      Next i
    
 
Cells(11, 11).Value = Cells(30, 4).Value - Cells(11, 10).Value
   If Cells(11, 11) = 0 Then Cells(11, 11) = ""
    
  For j = 12 To 30
      
      
    If Cells(j - 1, 10).Value <> "" Then Cells(j, 11).Value = Cells(j - 1, 11).Value - Cells(j, 10).Value
    
       If Cells(j - 1, 10).Value = "" Then Exit For
      
      Next j

 

Vote positif 0 Vote négatif

xUpsilon

XLDnaute Accro

• 23 Octobre 2019

• #8

Faire une autre boucle pour ça, c'est un peu dommage, ils sont sur les mêmes lignes ...
A mon sens, des formules dans les cellules seraient bien plus efficaces.
Sinon, si tu veux absolument passer par macro, la deuxième boucle est inutile, il suffit de mettre les deux boucles en une, en insérant un décalage de colonne.
@thespeedy20 il faut chercher à optimiser tes macros 😉

Bonne continuation

 

Vote positif 0 Vote négatif

T

thespeedy20

XLDnaute Occasionnel

• 23 Octobre 2019

• #9

re,

Merci du conseil xUpsilon, je débute en vba, c'est pas toujours facile...

 

Vote positif 0 Vote négatif