Soustraction et incrémentation

Version imprimable

02/09/2009, 15h51
vincenus33

Soustraction et incrémentation

Bonjour à tous,
je débute dans VBA et j'aurai besoin d'un peu d'aide
je souhaite affecter à un bouton une macro qui puisse faire la chose suivante:
- en colonne A, j'ai des références de produits qui commence en ligne 2
- en colonne B, différentes valeurs
- en colonne C, d'autres valeurs

je voudrais, par exemple, si il y a 10 valeurs en colonne B et C (donc 10 réf différente), faire B2-B3 puis B2-B4 et ainsi de suite jusqu'à la dernière valeur de la colonne. L'étape suivante est de faire la même chose, toujous sur la colonne B mais en descendant d'une ligne, c'est à dire faire B3-B4 puis B3-B5...
Je dois aussi faire le même genre de calcul sur la colonne C. Ceci marche très bien avec des conditions SI mais le nombre de références peut changer donc le nombre de soustractions possibles aussi.

les dernières étapes sont les suivantes:
- coller l'ensemble des résultats de la colonne B en colonne D
- coller l'ensemble des résultats de la colonne C en colonne E
- si par exemple, B2-B3<1000 et C2-C3<1 alors mettre 1 en colonne F, ....
- si l'un des deux est > à 1000 ou 1 alors mettre 0 en colonne F

j'espère que j'ai été assez clair.

merci à vous pour votre aide

nus
03/09/2009, 15h56
david_atx

en fait ce que tu souhaites faire est assez facile et tu sembles capable de le faire
Meme si j'avoue que je ne comprend pas ou tu veux mettre tes résultats de soustraction ... mais bon ca te regarde.

En gros il te manque une notion mesurer le nombre de lignes remplies ?
Eh bien il existe une fonction qui te permet de déterminer par exemple la dernière case non vide d'une colonne

Code:

sheets("nom_de_ta_feuille").range("A65000").end(xlUp).row

remplace dans range A par la colonne qui t'intéresse

Salut vincenus33 et le forum

Citation:

- si l'un des deux est > à 1000 ou 1 alors mettre 0 en colonne F

Si un nombre est supérieur à 1000, il est forcément supérieur à 1 donc, je pense que c'est mal expliqué, et ne l'ai donc pas traité.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub test()
Dim X As Long, Y As Long, Z As Long
Z = 2
For X = 2 To Range("A" & Rows.Count).End(xlUp).Row - 1
    For Y = X + 1 To Range("A" & Rows.Count).End(xlUp).Row
        Range("D" & Z) = Range("B" & X) - Range("B" & Y)
        Range("E" & Z) = Range("C" & X) - Range("C" & Y)
        If Range("D" & Z) < 1000 And Range("E" & Z) < 1 Then
            Range("F" & Z) = 1
        Else
            Range("F" & Z) = 0
        End If
        Z = Z + 1
    Next Y
Next X
Z = 2
End Sub

A+