VBA comparaison de deux range de cellule

[kytoo]

Salut a tous....

voila, je souhaiterais comparer le contenu de deux cellules définie dans un range et retourner un resultat (compte)

je suis newbie dans le monde excel et vala ce que j'ai ecris en surfant a droite et a gauche:

Function compter_clos2(Rng As Range, Rng1 As Range)
Dim result As Integer
result = 0
If Rng = Clos _
And Month(Rng1) = 1 Then result = result + 1
compter_clos2 = result
End Function


1er colonne : différents statut dans la cellule (Clos dans l'expemple)
2e colonne : ce sont des date. format jj/mm/aaaa et je vérifie le mois.

si une bonne ame peut m'aider 🙂

@+++ Kytoo

 

[porcinet82]

Re : VBA comparaison de deux range de cellule

Salut,

Je ne suis pas certains de ce que tu veux, est-ce que tu pourrais mettre un exemple en pièce jointe avec le résultat que tu souhaites obtenir avec ta fonction.

@+

 

[kytoo]

Re : VBA comparaison de deux range de cellule

re kikoo

merci pour ta réponse.
ci joint le fichier avec ce que je souhiates faire.

le fichier ne contient pas la macro 🙂

Kytoo

 

[porcinet82]

Re : VBA comparaison de deux range de cellule

re,

Essais avec le code suivant :

Function Compter(Plage As Range, Statut As String, Mois As Integer)
Dim Nbre As Integer
Nbre = 0
For Each c In Plage
    If Month(c.Value) = Mois And c.Offset(0, -2).Value = Statut Then Nbre = Nbre + 1
Next c
Compter = Nbre
End Function

Pour tester, tu peux mettre en H7 : =Compter(E7:E11;C7;1)

@+

 

[kytoo]

Re : VBA comparaison de deux range de cellule

re... 🙂

merci beaucoup.. ca marche tres tres bien...
j'avoue ne pas tout comprendre du code.. mais merci beaucoup 🙂

@+++

 

[porcinet82]

Re : VBA comparaison de deux range de cellule

re,

Il n'y a rien de compliquer !!!

En gros, je parcours la plage de cellule avec la boucle For each, en vérifiant a chaque passage dans la boucle que le mois de l'année de la cellule en cours est égal à celui passé en paramètre dans la fonction et que le contenu de la cellule de la meme ligne, 2 colonne avant (=offset(ligne, colonne)) est égal au paramètre Statut de la fonction...

Bon courage,

@+

 

[kytoo]

Re : VBA comparaison de deux range de cellule

Merci 🙂

c'est l'offset que j'avais du mal a saisir... maintenant tout est clair 🙂

Kytoo

 

[kytoo]

Re : VBA comparaison de deux range de cellule

Bonjour,

j'ai une petite question par rapport au VBA ci-dessus.
Il marche tres bien... par contre dès que j'ouvre le fichier sur un autre PC et si j'insère une ligne dans le range de référence, j'ai un debug qui s'ouvre.

Quelqu'un a t-il une idée d'un quelconque problème de ce type?
Les version excel sont les même sur tous les PC. Excel 2003.

@++ Kytoo

 

[porcinet82]

Re : VBA comparaison de deux range de cellule

Salut,

Tu peux etre plus précis, peut etre en mettant un exemple du fichier avec l'endroit ou tu insères une ligne, que l'on puisse cibler exactement le problème.

@+

 

[kytoo]

Re : VBA comparaison de deux range de cellule

Kikoo,

voici le fichier et screenshop de mon problème 🙂
Sur mon pc a moi .. pas de souscis... sur des PC d'autres personne j'ai l'erreur en screenshot

Bye

 

[porcinet82]

Re : VBA comparaison de deux range de cellule

re,

Rajoute la ligne suivante dans les déclarations Dim c As Range
Ce qui montre qu'il faut toujours déclarer les variables dans son programme !!! 😉

@+

 

[kytoo]

Re : VBA comparaison de deux range de cellule

Re kikoo..

héhéhé comme quoi je suis un newbie.. merci ca a resolu mon problème 🙂


Bye