Fonction Equiv() / Match() dans VBA

[smileyben]

Bonjour,
je cherche à insérer une variable qui prendrait la valeur du résultat de ma fonction Equiv(), soit un numero de ligne..mais je n'y arrive pas merci de m'aider svp :

NL = WorksheetFunction.Match(Cells(4, 12), Range("coursebase"), 1)
Sheets("Hoja2").Select
Cells(NL, 2).Select
Selection.Insert Shift:=xlToRight


MErci beaucoup!!!

 

[JeanMarie]

Re : Fonction Equiv() / Match() dans VBA

Bonjour

Essaye ce code

Sub toto()
Dim NL As Variant
NL = Application.Match(Cells(4, 12), Range("coursebase"), 1)
If IsError(NL) = False Then
   Sheets("Hoja2").Cells(NL, 2).Insert Shift:=xlToRight
End If
End Sub

@+Jean-Marie

 

[smileyben]

Re : Fonction Equiv() / Match() dans VBA

Merci pour la réponse..mais malheureusement ca ne fonctionne pas..

 

[JeanMarie]

Re : Fonction Equiv() / Match() dans VBA

Re...

Explique ce qui ne va pas.
Tu peux mettre ton fichier sur le forum, supprime les données confidentielles.

@+Jean-Marie

 

[smileyben]

Re : Fonction Equiv() / Match() dans VBA

Merci de m'aider à résoudre ce problème .
En fait j'ai deja posté mon fichier en explicant tout ce que je voulais faire..les explications sont dans la feuille 2 de l'Excel

https://www.excel-downloads.com/threads/valeurs-a-introduire-dans-une-base.65868/

Merci beaucoup à toi

 

[JeanMarie]

Re : Fonction Equiv() / Match() dans VBA

Bonjour

Il faut te suivre, tu n'es pas conforme à le contenu de la charte, il faut rester dans le même fil, c'est plus facile, la preuve.

- Cells(4,12) correspond à la cellule "L4"
- la plage de recherche dans la fonction EQUIV/Match ne peut être multidimension, une seule colonne, ou une seule ligne, mais pas plusieurs lignes et plusieurs colonnes.

@+Jean-Mariel

 

[smileyben]

Re : Fonction Equiv() / Match() dans VBA

Re..Merci pour ta réponse

-Merci j'ai changé les chiffres colonnes / lignes
-Pour mon problème. peux tu m'aider tout de même ou alors est-ce impossible ce que je veux faire?

MErci de ton aide

 

[JeanMarie]

Re : Fonction Equiv() / Match() dans VBA

Re...

Poste ton dernier fichier, avec la macro modifiée.

@+Jean-Marie

 

[smileyben]

Re : Fonction Equiv() / Match() dans VBA

MErci.. pour ton aide

 

[JeanMarie]

Re : Fonction Equiv() / Match() dans VBA

Re...

Regarde ce que je te disais dans mon post.

1) Tu inversais les coordonnées des positions de la cellule, dans
Cells(Ligne, Colonne).

2) Dans la définition de la plage coursebase, n'est pas utilisable dans la fonction EQUIV/MATCH, pas de multi-dimensions.
Je l'ai redéfini la plage.
=Hoja2!$A$1:$A$7
NOTA : il faut commencer sur la définition de la plage de cellule sur la première ligne, ce qui évite de faire un ...Cells(NL+1, 2) = ....

3) Modification de la macro 4.

@+Jean-Marie