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.

[anasecu]

Bonjour,

Je débute en VBA et j'aurais besoin d'aide pour résoudre un problème.

Ce n'est pas très utile de te pencher sur le vba pour résoudre ta demande qui se fait très bien par formule :

Code :

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

=SI(NB.SI($A:$A;B2)>0;"Oui";"Non")

[Gex-88]

Bonjour Anasecu 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, l'utilisation de la 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.

[anasecu]

Bonjour,

Pour mon cas, l'utilisation d'un bouton est nécessaire

Dans ce cas, installes ta formule par macro avec ce code

Code :

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

1
2
3
4
5
6
7
Sub Test()
'
' Test Macro
'
    Range("C2:C" & Cells(Rows.Count, "B").End(xlUp).Row).FormulaR1C1 = "=IF(ISNA(MATCH(C[-1],C[-2],0)),""Non"",""Oui"")"
    Range("C:C").ColumnWidth = Range("B:B").ColumnWidth
End Sub

[Gex-88]

ça marche très bien.

Merci beaucoup !