Discussion :

[Gex-88]

Bonjour,

Je débute en VBA et j'aurais besoin d'aide pour résoudre un problème.
Je dispose d'un tableau à 3 colonnes. La première contient des numéros de téléphone (fictifs) d'un annuaire. La deuxième contient des échantillons de numéro de téléphone.

Ce que je voudrais faire c'est, par l'appui sur un bouton et de manière automatique, afficher dans la colonne C si le numéro de la colonne B existe dans la colonne A.
L'autre difficulté serait que la macro soit adaptable à n'importe quelle longueur de tableau.

Avez-vous des idées de comment faire ?

Merci d'avance pour vos retours.

PS : Le fichier exemple est en pièce jointe.

[Pierre Dumas]

Bonjour

Je vais répondre à côté de la plaque : il n'est pas besoin de VBA pour cela.

Il faut transformer les données en tableau structuré (cf article de Pierre Fauconnier).
Puis, une simple formule en colonne C nous donnera les résultats. Et ceci, même si le tableau s'agrandit.
La formule en colonne C : =SI(ESTNA(EQUIV([@[Numéro relevés ]];[numéro annuaire];0));"Non";"Oui")

L'avantage par rapport au bouton VBA est que cela fonctionne en permanence sans avoir à faire la moindre manipulation. Il suffit de rajouter, modifier, supprimer des numéros de téléphone dans les colonnes A ou B.

En espérant que cela serve

[Gex-88]

Bonjour Pierre et merci de ta réponse.

Pour mon cas, l'utilisation d'un bouton est nécessaire (et je ne dois pas modifier manuellement le tableau).

Cela dit, ta formule fonctionne très bien. Je l'ai d'ailleurs utilisé grâce à l'enregistreur de macro.

J'aimerais cependant optimiser ma macro pour que la taille de la colonne C s'adapte à celle de la colonne B.

Aurais-tu une idée de comment faire ?

Mon code actuelle est le suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub Test()
'
' Test Macro
'
    Range("C2").Select
    ActiveCell.FormulaR1C1 = "=IF(ISNA(MATCH(C[-1],C[-2],0)),""Non"",""Oui"")"
    Range("C2").Select
    Selection.AutoFill Destination:=Range("C2:C10000"), Type:=xlFillDefault
    Range("C2:C10000").Select
 
End Sub

Merci d'avance.

[Pierre Dumas]

Rebonjour

Je considère qu'il n'y a pas de cellules vides parmi les n° de téléphone dans la colonne B. Et qu'il y a au moins un n° saisi en B2.

Alors on peut, par exemple, proposer la macro VBA suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub Test()
'
' Test Macro
'
 
Dim LigMax As Integer
 
LigMax = Range("B1").End(xlDown).Row
 
Range("C2:C" & LigMax).FormulaR1C1 = "=IF(ISNA(MATCH(RC[-1],C[-2],0)),""Non"",""Oui"")"
 
End Sub

En espérant que cela convienne mieux

Bonne journée

Pierre

[Gex-88]

Oui, c'est exactement ce que je voulais !

Merci beaucoup pour ton aide.