Discussion :

[vincenus33]

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

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

[Gorfael]

Salut vincenus33 et le forum

- 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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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+