Formules VBA

Ecam39 Messages postés 314 Statut Membre -  
Ecam39 Messages postés 314 Statut Membre -
Bonjour,

Je bloque devant une fonction vba.
Voici un exemple de mon fichier :

Colonne A
A0101
A0101
A0102

En colonne B, j'ai mis une formule : =si(A2=A1;0;1)

L'idée étant d'additionner les lignes différentes, au lieu d'avoir 3 emplacements, j'en ai que 2 (ce qui correpond au réel).

Je souhaiterai donc mettre cette formule sous VBA, chose où je bloque complètement. Je ne sais pas dire si cette valeur est égale à la ligne au dessus alors on affiche 0, sinon 1. (je connais la fonction SI mais je ne sais pas demander la valeur de la ligne au dessus).

Merci de votre aide.
A voir également:

2 réponses

Vaucluse Messages postés 27336 Date d'inscription   Statut Contributeur Dernière intervention   6 443
 
Bonjour
Et qu'appelez vous additionner des lignes différentes?Pouvez vous donner un exemple sur un champ plus grand avec les résultats souhaités?
.. vu que la formule que vous donnez correspond pleinement à ce que vous demandez
A vous lire

Errare humanum est, perseverare diabolicum
0
Ecam39 Messages postés 314 Statut Membre 9
 
Dans la colonne A j'ai tout une liste d'emplacement, ils peuvent apparaîtrent plusieurs fois car plusieurs références dans le même emplacement.
Actuellement j'ai 800 lignes, le système me compte donc 800 emplacements.
Je mis la formule SI pour m'affiche 0 si on retrouve plusieurs le même emplacement et 1 si les 2 lignes n'ont pas la même valeur donc 2 emplacements différents.
Au final je fais la somme de tous les 1, ce qui me donne 200 emplacements, qui est ma valeur réelle.

La formule correspond tout à fait, je l'utilise régulièrement. Mais je souhaiterai la traduire en language VBA, ce qui ne donne pas la même syntaxe.

L'idée est de dire que pour une cellule, si elle correspond à la cellule du dessus, c'est que c'est le même emplacement, donc non comptabilisé (0) si la valeur est différence alors ce sont 2 emplacements différents (1).

Je ne sais pas dire à Excel comment différencier 2 lignes l'une en dessous de l'autre en VBA.
0