Formules VBA

Ecam39 Messages postés 286 Date d'inscription   Statut Membre Dernière intervention   -  
Ecam39 Messages postés 286 Date d'inscription   Statut Membre Dernière intervention   -
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.

2 réponses

Vaucluse Messages postés 26496 Date d'inscription   Statut Contributeur Dernière intervention   6 439
 
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 286 Date d'inscription   Statut Membre Dernière intervention   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