Déclaration de variable

Bonjour cher réseau !
Voici le problème que je rencontre pour déclarer une variable variable et ensuite utiliser la fonction ApplicationFonctio.Match

Voici mon code

Citation:

---

a = ThisWorkbook.Sheets("BDA_N-1").Range(Range("A1"), ThisWorkbook.Sheets("BDA_N-1").Range("A1").End(xlToRight))
x = ApplicationFonction.Match(result1, a, 0)

---

Quelqu'un aurait-il une idée ?

Merci d'avance .

Bonjour, la fonction Match est une méthode de l’objet Application.WorksheetFunction, essaie donc Application.WorksheetFunction.Match

Bonjour,
Pour assigner un objet à une variable après l'avoir déclarée comme objet (Workbook, Worksheet, Range, etc.), il faut utiliser l'instruction Set

Exemple :

Code:

---

Set maVariable = Range("A1:F1000")

---

Citation:

---

Envoyé par Franc

Bonjour, la fonction Match est une méthode de l’objet Application.WorksheetFunction, essaie donc Application.WorksheetFunction.Match

---

Bonjour Franc !
Merci pour la proposition
J'ai toujours une erreur avec ça et je pense que ça provient d'abord de ma variable "a"
"a" c'est la plage A1->dernière cellule remplie de ma feuille
Je n'arrive pas à corriger l'erreur

Merci !

Citation:

---

Envoyé par Philippe Tulliez

Bonjour,
Pour assigner un objet à une variable après l'avoir déclarée comme objet (Workbook, Worksheet, Range, etc.), il faut utiliser l'instruction Set

Exemple :

Code:

---

Set maVariable = Range("A1:F1000")

---

---

Merci Phillipe mais justement je ne l'ai pas déclarée comme tel
Je l'ai directement mis dans mon code
et même après avoir essayé avec set ça ne marche toujours pas
Merci quand même

Bonjour,

Citation:

---

même après avoir essayé avec set ça ne marche toujours pas

---

Indiquer que ce ne "marche pas", n'est pas très précis.
Je n'ai pas analyser votre première ligne mais peut-être n'est-ce pas un objet ou avez-vous une erreur de syntaxe ou autre problème.

Petit exemple rapide ou de A2 à A16, j'ai placé des références R001 à R012 et le message me renvoie bien la position de la ligne où la valeur R006 se trouve.

Code:

---

1 2 3 4 5 6 7 8

Sub t() Dim rng As Range Dim fx As WorksheetFunction Set fx = Application.WorksheetFunction Set rng = ThisWorkbook.Worksheets("Feuil1").Range("A2:A13") MsgBox "Position = " & fx.Match("R006", rng, 0) Set rng = Nothing: Set fx = Nothing End Sub

---

Citation:

---

Envoyé par Philippe Tulliez

Bonjour,

Indiquer que ce ne "marche pas", n'est pas très précis.
Je n'ai pas analyser votre première ligne mais peut-être n'est-ce pas un objet ou avez-vous une erreur de syntaxe ou autre problème.

Petit exemple rapide ou de A2 à A16, j'ai placé des références R001 à R012 et le message me renvoie bien la position de la ligne où la valeur R006 se trouve.

Code:

---

1 2 3 4 5 6 7 8

Sub t() Dim rng As Range Dim fx As WorksheetFunction Set fx = Application.WorksheetFunction Set rng = ThisWorkbook.Worksheets("Feuil1").Range("A2:A13") MsgBox "Position = " & fx.Match("R006", rng, 0) Set rng = Nothing: Set fx = Nothing End Sub

---

---

Merci beaucoup Philippe !

j'ai un message d'erreur "1004" qui affiche : impossible de lire la propriété Match de la classe WorksheetFunction


J'ai mal expliqué plus haut mon problème mais heureusement que tu m'apporte la solution

C'est ce que je cherche à faire mais à la place de la Range ("A2:A13") je voulais plutôt un truc du genre Range("A2").End(xlToRight) c'est à dire ce que fait Ctl + Shift + flèche droit

Une écriture comme ça serait top si j'y arrivais.
merci beaucoup quand même.
Cdt

Bonjour,
Lorsque je travaillais avec les plages classiques, je n'ai jamais utilisé la propriété End(xlDirection) de l'objet Range mais plutôt CurrentRegion bien plus simple à gérer. Il faut bien entendu pour cela avoir la première ligne et la première colonne remplies.
Ensuite pour sélectionner une partie de la plage ainsi définie, j'utilise les propriétés Offset et Resize

Depuis plusieurs années, je ne développe qu'avec des tableaux structurés bien plus simple à gérer aussi bien manuellement qu'avec le VBA

Donc si vous avez une plage "classique" avec une ligne de titre et une colonne sans ligne ou colonne vide et qui commence en cellule A1, voici quelques exemples avec la plage des données en illustration

La plage des données

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub Exemple_1() ' Sélection de la plage des données soit A2:J11 Dim rng As Range Dim rngData As Range Set rng = ThisWorkbook.Worksheets("Data").Range("A1").CurrentRegion With rng Set rngData = .Offset(RowOffset:=1).Resize(RowSize:=.Rows.Count - 1) End With MsgBox "Adresse = " & rngData.Address(External:=True) Set rng = Nothing: Set rngData = Nothing End Sub

---

La première colonne

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub Exemple_2() ' Sélection de la plage des données soit A2:A11 Dim rng As Range Dim rngData As Range Set rng = ThisWorkbook.Worksheets("Data").Range("A1").CurrentRegion With rng Set rngData = .Offset(RowOffset:=1).Resize(RowSize:=.Rows.Count - 1, ColumnSize:=1) End With MsgBox "Adresse = " & rngData.Address(External:=True) Set rng = Nothing: Set rngData = Nothing End Sub

---

La ligne de titre

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub Exemple_3() ' Sélection de la plage des données soit A1:J1 (ligne des titres Dim rng As Range Dim rngData As Range Set rng = ThisWorkbook.Worksheets("Data").Range("A1").CurrentRegion With rng Set rngData = .Resize(RowSize:=1) End With MsgBox "Adresse = " & rngData.Address(External:=True) Set rng = Nothing: Set rngData = Nothing End Sub

---

Illustration
Pièce jointe 640487

Citation:

---

Envoyé par Philippe Tulliez

La ligne de titre

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub Exemple_3() ' Sélection de la plage des données soit A1:J1 (ligne des titres Dim rng As Range Dim rngData As Range Set rng = ThisWorkbook.Worksheets("Data").Range("A1").CurrentRegion With rng Set rngData = .Resize(RowSize:=1) End With MsgBox "Adresse = " & rngData.Address(External:=True) Set rng = Nothing: Set rngData = Nothing End Sub

---

Illustration
Pièce jointe 640487

---

Meri c'est tellement clair et très bien détaillé la manière dont vous expliquez
Maintenant si vous devriez pour cet exemple déclarer une variable qui va pointer sur "CIVIL" comment feriez vous ?
je veux dire la position de "civil" avec la fonction match....

C'est exactement ce que je cherche à faire depuis un moment

merci d'avance

Bonjour,

Citation:

---

Maintenant si vous devriez pour cet exemple déclarer une variable qui va pointer sur "CIVIL" comment feriez vous ?
je veux dire la position de "civil" avec la fonction match....

---

Voici. Attention, je ne gère pas l'erreur (si la valeur n'est trouvée)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Sub t() ' Sélection de la plage des données soit A1:J1 (ligne des titres) et recherche de la valeur contenue dans la constante Const LookUpValue As String = "Civil" ' Valeur cherchée Dim rng As Range Dim rngHeader As Range Dim fx As WorksheetFunction Set fx = Application.WorksheetFunction Set rng = ThisWorkbook.Worksheets("Data").Range("A1").CurrentRegion With rng Set rngHeader = .Resize(RowSize:=1) ' Redimensionne la plage sur une seule ligne End With MsgBox "Le numéro de colonne de l'étiquette [" & LookUpValue & "] est : " & fx.Match(LookUpValue, rngHeader, 0) Set rng = Nothing: Set rngHeader = Nothing End Sub

---

Vous devriez franchement vous intéresser aux tableaux structurés. Bien plus simple à gérer.

Citation:

---

Envoyé par Philippe Tulliez

Bonjour,


Voici. Attention, je ne gère pas l'erreur (si la valeur n'est trouvée)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Sub t() ' Sélection de la plage des données soit A1:J1 (ligne des titres) et recherche de la valeur contenue dans la constante Const LookUpValue As String = "Civil" ' Valeur cherchée Dim rng As Range Dim rngHeader As Range Dim fx As WorksheetFunction Set fx = Application.WorksheetFunction Set rng = ThisWorkbook.Worksheets("Data").Range("A1").CurrentRegion With rng Set rngHeader = .Resize(RowSize:=1) ' Redimensionne la plage sur une seule ligne End With MsgBox "Le numéro de colonne de l'étiquette [" & LookUpValue & "] est : " & fx.Match(LookUpValue, rngHeader, 0) Set rng = Nothing: Set rngHeader = Nothing End Sub

---

Vous devriez franchement vous intéresser aux tableaux structurés. Bien plus simple à gérer.

---

Merci infiniment pour cette aide Philippe !
ça marche à merveille sur ma feuille et je vous en suis très reconnaissant.
Je vais m'intéresser aux tableaux oui mais je viens juste de commencer VBA, donc c'est l'étape suivante

Bonne fin de soirée ! :D:D:D:D:D

Bonjour,
Merci pour votre retour.

Citation:

---

Je vais m'intéresser aux tableaux oui mais je viens juste de commencer VBA, donc c'est l'étape suivante

---

Si vous débuter avec VBA, c'est une raison de plus de commencer tout de suite avec les tableaux structurés. Ils existent depuis la version 2007 et dans la foulée intéressez vous à Power Query sinon vous allez perdre beaucoup de temps à apprendre des techniques anciennes et chronophages.
A chacune de mes formations VBA, je fais un tour de table pour savoir leur projet pour suivre la formation et dès que l'on me dit pour manipuler des fichiers qui proviennent de le SAP ou autres, je leurs dit tout de suite intéressez vous à Power Query et après 30 minutes de petite démonstration, ils sont convaincus.

Citation:

---

Envoyé par Philippe Tulliez

Bonjour,
Merci pour votre retour.

Si vous débuter avec VBA, c'est une raison de plus de commencer tout de suite avec les tableaux structurés. Ils existent depuis la version 2007 et dans la foulée intéressez vous à Power Query sinon vous allez perdre beaucoup de temps à apprendre des techniques anciennes et chronophages.
A chacune de mes formations VBA, je fais un tour de table pour savoir leur projet pour suivre la formation et dès que l'on me dit pour manipuler des fichiers qui proviennent de le SAP ou autres, je leurs dit tout de suite intéressez vous à Power Query et après 30 minutes de petite démonstration, ils sont convaincus.

---

Merci pour ces conseils !
Je n'y manquerais pas c'est sûr
J'aurais aimé être un de vos étudiants
ça m'aiderait beaucoup

Cdt

Citation:

---

Envoyé par Philippe Tulliez

Bonjour,
Lorsque je travaillais avec les plages classiques, je n'ai jamais utilisé la propriété End(xlDirection) de l'objet Range mais plutôt CurrentRegion bien plus simple à gérer. Il faut bien entendu pour cela avoir la première ligne et la première colonne remplies.
Ensuite pour sélectionner une partie de la plage ainsi définie, j'utilise les propriétés Offset et Resize

Depuis plusieurs années, je ne développe qu'avec des tableaux structurés bien plus simple à gérer aussi bien manuellement qu'avec le VBA

Donc si vous avez une plage "classique" avec une ligne de titre et une colonne sans ligne ou colonne vide et qui commence en cellule A1, voici quelques exemples avec la plage des données en illustration

La plage des données

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub Exemple_1() ' Sélection de la plage des données soit A2:J11 Dim rng As Range Dim rngData As Range Set rng = ThisWorkbook.Worksheets("Data").Range("A1").CurrentRegion With rng Set rngData = .Offset(RowOffset:=1).Resize(RowSize:=.Rows.Count - 1) End With MsgBox "Adresse = " & rngData.Address(External:=True) Set rng = Nothing: Set rngData = Nothing End Sub

---

La première colonne

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub Exemple_2() ' Sélection de la plage des données soit A2:A11 Dim rng As Range Dim rngData As Range Set rng = ThisWorkbook.Worksheets("Data").Range("A1").CurrentRegion With rng Set rngData = .Offset(RowOffset:=1).Resize(RowSize:=.Rows.Count - 1, ColumnSize:=1) End With MsgBox "Adresse = " & rngData.Address(External:=True) Set rng = Nothing: Set rngData = Nothing End Sub

---

La ligne de titre

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub Exemple_3() ' Sélection de la plage des données soit A1:J1 (ligne des titres Dim rng As Range Dim rngData As Range Set rng = ThisWorkbook.Worksheets("Data").Range("A1").CurrentRegion With rng Set rngData = .Resize(RowSize:=1) End With MsgBox "Adresse = " & rngData.Address(External:=True) Set rng = Nothing: Set rngData = Nothing End Sub

---

Illustration
Pièce jointe 640487

---

Bonjour Philippe !
Je reviens avec une ultime question
Supposons que j'ai ta base de données (en capture) sur une feuille et une autre BD sur une autre feuille presque identique avec juste quelques prénoms différents sur les deux BD certains prénoms sont seulement présents sur l'une des BD)
Je cherche à comparer et à récupérer la différence de salaire de Jean ( que je suppose se trouver sur les deux BD).
Donc l'idée c'est de trouver la position de Jean dans les deux BD avec la fonction match (parce que Jean peut ne pas avoir la même position sur les deux BD)
C'est ce problème que j'ai car mon code suppose que les isin se trouvent sur les même lignes des deux BD (ce qui n'est pas le cas).

Merci d'avance!