boucle: augmenter la valeur d'une cellule jusqu'a une autre cellule soit vide

Paf

XLDnaute Barbatruc

• 1 Mars 2015

• #2

Re : boucle: augmenter la valeur d'une cellule jusqu'a une autre cellule soit vide

Bonjour

Comment la cellule D16 de la feuille "Resultat" peut devenir vide . je suppose qu'on doit soustraire quelque chose, mais combien et quand ?

A+

 

Vote positif 0 Vote négatif

G

Gaby71

Guest

• 1 Mars 2015

• #3

Re : boucle: augmenter la valeur d'une cellule jusqu'a une autre cellule soit vide

Bonjour PAF

Merci pour votre aide
il y a une formule en "D16"

J'ai fait ceci

Sub Macro1()
'
' Macro1 Macro

Dim limite As Integer

limite = Sheets("Feuil1").Range("C4").Value
Resultata = Sheets("Resultat").Range("D16").Value
'limite = 540

If Not IsEmpty(Resultata) Then
limite = limite + 12
End If

'

'
End Sub


mais ça ne marche pas


@+

Gaby

 

Dernière modification par un modérateur: 1 Mars 2015

Vote positif 0 Vote négatif

Paf

XLDnaute Barbatruc

• 1 Mars 2015

• #4

Re : boucle: augmenter la valeur d'une cellule jusqu'a une autre cellule soit vide

Re,

ce que j'ai compris:

Code:

Sub LaMacro()
 With Sheets("Feuil1")
 While Sheets("Resultat").Range("D16") <> ""
    .Range("C4").Value = .Range("C4").Value + 12
 Wend
 End With
End Sub

A+

 

Vote positif 0 Vote négatif

G

Gaby71

Guest

• 1 Mars 2015

• #5

Re : boucle: augmenter la valeur d'une cellule jusqu'a une autre cellule soit vide

Merci beaucoup

C'est exactement de que je voulais

Je vais appliquer ceci demain

Bonne soirée

@+

Gaby

 

Vote positif 0 Vote négatif