Ameliorer une macros

JCGL

XLDnaute Barbatruc

• 12 Mai 2008

• #2

Re : Ameliorer une macros

Bonjour à tous,

Tu souhaitais un code mais si un code n'est pas indispensable, un essai par MeFC

A+

 

Pièces jointes

• Match MeFC.zip

  61.8 KB · Affichages: 21

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 12 Mai 2008

• #3

Re : Ameliorer une macros

Bonjour

Sélectionner A2:A17
Format/MFC/La formule est
=EQUIV(A2;$B$2:$B$17;0)

JB
Formation Excel VBA JB

 

Pièces jointes

• Copie de Match.xls

  24 KB · Affichages: 45

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 12 Mai 2008

• #4

Re : Ameliorer une macros

Bonjour JCGL,

Si un code existe 2fois dans la même colonne?

JB

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 12 Mai 2008

• #5

Re : Ameliorer une macros

Bonjour à tous,

JB : tout comme avec ta MeFC en A, il colorie la valeur.

A+

 

Vote positif 0 Vote négatif

T

teodormircea

XLDnaute Occasionnel

• 12 Mai 2008

• #6

Re : Ameliorer une macros

Merci pour votre aide les gars.Les format conditionnel c'est une solution, j'aurais préféré une macros, comme çà je vais apprendre a les utiliser.Le truc c'est que ci c'est 2 colonnes approche A et B, chose facile dans ce cas, mais j'ai des colonnes qui ne sont pas approches, comme A et G par exemple, c'est pour ça que j'aurais préféré une macros.
Merci encore

 

Dernière édition: 12 Mai 2008

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 12 Mai 2008

• #7

Re : Ameliorer une macros

>JB : tout comme avec ta MeFC en A, il colorie la valeur.

J'ai compris qu'il fallait un matching entre A et B.
Si le même code existe 2 fois dans la colonne A et n'existe pas en B ,c'est une anomalie?

JB

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 12 Mai 2008

• #8

Re : Ameliorer une macros

Re,

JB : seul teodormircea pourra répondre. J'ai fait, comme toi, avec ce que j'ai compris de la demande

teodormircea : les deux formules de MeFC peuvent s'appliquer sur des colonnes "distantes". Il suffit de changer les lettres de colonnes dans les formules

A+

 

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 12 Mai 2008

• #9

Re : Ameliorer une macros

Bonjour,
Un peu long avec beaucoup de lignes mais bon:
Sub CompareColumns()
Dim Rang1 As Range
Dim Rang2 As Range
Set Rang1 = Application.InputBox("Selectionner la Première Colonne", Type:=8)
If Rang1.Columns.Count > 1 Then
Do Until Rang1.Columns.Count = 1
MsgBox "Vous ne pouvez sélectionner qu'une seule colonne"
Set Rang1 = Application.InputBox("Selectionner la Première Colonne", Type:=8)
Loop
End If
Set Rang2 = Application.InputBox("Selectionner la Seconde Colonne", Type:=8)
If Rang2.Columns.Count > 1 Then
Do Until Rang2.Columns.Count = 1
MsgBox "Vous ne pouvez sélectionner qu'une seule colonne"
Set Rang2 = Application.InputBox("Selectionner la Seconde Colonne", Type:=8)
Loop
End If
For Each Cel1 In Rang1
For Each Cel2 In Rang2
If Cel1 <> "" And Cel2 <> "" And Cel1 = Cel2 Then
Cel1.Interior.Color = vbGreen
Cel2.Interior.Color = vbGreen
End If
Next
Next
End Sub

A+
kjin

 

Dernière édition: 12 Mai 2008

Vote positif 0 Vote négatif

T

teodormircea

XLDnaute Occasionnel

• 12 Mai 2008

• #10

Re : Ameliorer une macros

Merci

 

Vote positif 0 Vote négatif