deux valeur identique dans 3 cellule ...

[Guido]

Bonsoir

J'ai a nouveau besoin de votre aide

sur trois cellules ..deux on la meme valeur,comment faire pour avantager

une des deux ,voir le petit fichier ..

 

[DoubleZero]

Re : deux valeur identique dans 3 cellule ...

Bonjour, Guido, le Forum,

En attendant mieux... une suggestion en pièce jointe.

A bientôt 🙂

 

[Guido]

Re : deux valeur identique dans 3 cellule ...

Bonjour Double Zero,Le forum

Merci pour ta reponse,

Question...

Si je deplace l'emplacement du tableau ou que je crée une nv feuille..

Dans la macro je change seulement les lettres des colonne concernee

et je renomme ma nv feuille????

Merci d'avance

Guido

 

[JNP]

Re : deux valeur identique dans 3 cellule ...

Bonjour 🙂
Juste pour le plaisir de faire une bise à 00 🙂 :

Sub Test()
Dim Cellule As Range, Plage As Range
Set Plage = Union(Range("D15:D28"), Range("F15:F28"))
For Each Cellule In Plage
If Cellule <> 0 And Cellule = Cellule.Offset(0, 2) Then Cellule = Cellule + 0.5
Next Cellule
End Sub

Bonne journée 🙂

 

[DoubleZero]

Re : deux valeur identique dans 3 cellule ...

Re-bonjour, bonjour, JNP,

@ JNP 🙂 :

Un petit tour pour dire que la "magie JNP 😀" a opéré !

Cela me fait très plaisir de te "revoir" et je t'envoie, itou, une bise.

A bientôt 🙂🙂

 

[Guido]

Re : deux valeur identique dans 3 cellule ...

Bonjour 🙂
Juste pour le plaisir de faire une bise à 00 🙂 :

Sub Test()
Dim Cellule As Range, Plage As Range
Set Plage = Union(Range("D15:D28"), Range("F15:F28"))
For Each Cellule In Plage
If Cellule <> 0 And Cellule = Cellule.Offset(0, 2) Then Cellule = Cellule + 0.5
Next Cellule
End Sub

Bonne journée 🙂

Ré

Bonjour le forum

Merci pour les infos

Dans ta macro je vois que deux refference de coll est ce normal...


alors que dans celle ci il y en a trois...

Range("d15:d" & Range("a65536").End(xlUp).Row).FormulaR1C1 = "=COUNTIF(RC[-3]:RC[-1],RC[-3])"
Range("e15:e" & Range("a65536").End(xlUp).Row).FormulaR1C1 = "=COUNTIF(RC[-4]:RC[-2],RC[-3])"
Range("f15:f" & Range("a65536").End(xlUp).Row).FormulaR1C1 = "=COUNTIF(RC[-5]:RC[-3],RC[-3])"


merci de m'informer

Guido

 

[DoubleZero]

Re : deux valeur identique dans 3 cellule ...

Re-bonjour,

...Dans ta macro je vois que deux refference de coll est ce normal...
alors que dans celle ci il y en a trois...

La macro déposée en #2 comporte 22 lignes... Elle peut aller dans les oubliettes 🙄 !

La macro de JNP n'en comporte que 7, pour offrir un résultat certainement plus rapide.

C'est la raison pour laquelle j'ai écrit en #5

la "magie JNP 😀" a opéré !

A bientôt 🙂

 

[JNP]

Re : deux valeur identique dans 3 cellule ...

Re 🙂
Plus exactement, Offset permet de décaler la cellule concernée, donc je n'ai besoin que des 2 premières colonnes, vu que chaque cellule va être comparée à celle qui est 2 colonnes plus loin 🙂
Bonne suite 🙂

 

[Guido]

Re : deux valeur identique dans 3 cellule ...

Re

Bonjour le forum

je vais voir ca, car comme dis dans d'autre posts ,je ne connais que le minimun...en macro

a plus

Guido