Fonction Equiv() / Match() dans VBA

JeanMarie

XLDnaute Barbatruc

• 17 Août 2006

• #2

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

Bonjour

Essaye ce code

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

 

Vote positif 0 Vote négatif

S

smileyben

Guest

• 17 Août 2006

• #3

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

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

 

Vote positif 0 Vote négatif

JeanMarie

XLDnaute Barbatruc

• 17 Août 2006

• #4

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

 

Vote positif 0 Vote négatif

S

smileyben

Guest

• 17 Août 2006

• #5

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

 

Vote positif 0 Vote négatif

JeanMarie

XLDnaute Barbatruc

• 17 Août 2006

• #6

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

 

Vote positif 0 Vote négatif

S

smileyben

Guest

• 17 Août 2006

• #7

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

 

Vote positif 0 Vote négatif

JeanMarie

XLDnaute Barbatruc

• 17 Août 2006

• #8

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

Re...

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

@+Jean-Marie

 

Vote positif 0 Vote négatif

S

smileyben

Guest

• 17 Août 2006

• #9

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

MErci.. pour ton aide

 

Pièces jointes

• cursos.zip

  20.1 KB · Affichages: 55
• cursos.zip

  20.1 KB · Affichages: 58
• cursos.zip

  20.1 KB · Affichages: 60

Vote positif 0 Vote négatif

JeanMarie

XLDnaute Barbatruc

• 17 Août 2006

• #10

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

 

Pièces jointes

• cursos.zip

  17.3 KB · Affichages: 91
• cursos.zip

  17.3 KB · Affichages: 97
• cursos.zip

  17.3 KB · Affichages: 96

Vote positif 0 Vote négatif