un code vba simple et pourtant?

Version imprimable

15/10/2008, 15h20
samimikha

un code vba simple et pourtant?
bonjour tout le monde
je suis en excel 2003 et j'ai tenté ce code très simple et pourtant je ne comprends pas les résultats :
quand je tape le code suivant : j'ai i = 13 comme résultat alors que je devrais avoir 14
(la cellule L14C1 est vide , et la cellule L15C1 contient la valeur DP1)
Code:

1 2 3 4 5 6 7 8 9 i = 13 s = 0 Do While Cells(i, 1).Value Like "DP*" var = Cells(i, 4).Value s = s + var i = i + 1 Loop Cells(7, 1).Value = i
dés que je commente les lignes while et loop ça marche

merci
15/10/2008, 15h37
Mimosa777

Bonjour,

c'est un peu normal 13 comme resultat vu que on entre jamais dans la boucle car Cells(i, 1).Value est vide ici. ;)
15/10/2008, 17h01
samimikha

merci Mimosa777 pour ta réponse
au fait mon but est d'additionner les valeurs de la colonne 4 correspondants aux lignes compris entre 2 valeurs de cellules de la colonne1 commençant par DP
je m'explique : par exemple ligne L15C1 = DP1 et L18C1 = DP2 et entre les 2 lignes les cellules sont vides . je voudrais obtenir la somme de L15C4+L16C4+L17C4

etc pour DP3 DP4 ...
15/10/2008, 17h34
Mimosa777

Est ce que c'est toujours 2 cellules vides entre DP1 et DP2 et aussi DP3 et DP4, etc.. sur lesquels tu veux faire la somme des cellules de la colonne 4 ?? ou y a t-il desfois plus que 2 cellules de vide entre tes DP* ?
15/10/2008, 18h09
samimikha

c'est aléatoire entre 2 DP* il peut y avoir 1, 2, 3, .. lignes
c'est pour cela que je voulais faire un boucle

merci

Bonjour,

teste le code ci-dessous qui affichera également un message si le second DPx est manquant

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub test()
Dim Var1 As String, Var2 As String, i As Integer
 
'boucle de la ligne 13 à la dernière ligne
For i = 13 To Cells(Rows.Count, 1).End(xlUp).Row
    If Cells(i, 1) <> "" And Var1 = "" Then
        Var1 = Cells(i, 1).Value
        Var2 = Cells(i, 4).Address
    Else
        If Cells(i, 1) <> "" Then
            If Cells(i, 1) = Var1 Then
                MsgBox "Somme des valeurs pour " & Var1 & vbLf & Application.WorksheetFunction.Sum(Range(Var2 & ":" & Cells(i, 4).Address))
                Var1 = ""
            Else
                MsgBox "il manque le second " & Var1 & ", le premier étant repéré en cellule " & Cells(Range(Var2).Row, 1).Address(0, 0), vbExclamation
                i = i - 1
                Var1 = ""
            End If
        End If
    End If
Next
End Sub

15/10/2008, 20h17
Mimosa777

Fring toujours a la rescousse :mouarf:

Content de te revoir !
16/10/2008, 12h57
samimikha

2 pièce(s) jointe(s)

bonjour tout le monde et merci fring
d'après ton code si j'ai bien compris il faut que mon tableau ne contienne que des vides ou des DP* or mon tableau contient autre chose que ça. j'ai joint le fichier xls pour avoir une meilleure idée et merci encore

pour être encore plus claire j'ai envoyé en pièce jointe le tableau saisi avec les résultats escomptés :
le tableau est scindé en plusieurs zones.
Dans chaque zone je voudrais avoir :
dans la colonne Total : s = le total des lignes compris entre DPx et DP x+1
dans la colonne prorata je voudrais obtenir lavaleurdelacolonne3\s

et merci encore infiniment

bonsoir
au fait voilà ce que j'ai fait et ça marche

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
 
Sub prorata()
'
' prorata Macro
' affichage colonne prorata
'
Dim s As Integer, var As Integer, cel As Range
Dim i As Integer, j As Integer, k As Integer, x As String, y As String
i = 13
Do While Cells(i, 2).Value <> ""
s = 0
For j = i To Cells(Rows.count, 1).End(xlUp).Row
var = Cells(j, 3).Value
s = s + var
 If Cells(j, 1).Value Like "DP*" Then
 Cells(j, 4).Value = s
 Cells(j, 4).Select
      Selection.Font.Bold = True
      Exit For
      End If
Next
 
k = j
For j = i To k
x = Cells(j, 3).Value
Cells(j, 5).Value = x & " \" & s
Next
i = j - 1
i = i + 1
Loop
 
End Sub

merci encore