Discussion :

[waggoor]

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

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 .

[Franc]

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

[waggoor]

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 !

[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 :

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

Set maVariable = Range("A1:F1000")

[waggoor]

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 :

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

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

[Philippe Tulliez]

Bonjour,

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 :

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

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

[waggoor]

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 :

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

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

[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 :

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

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 :

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

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 :

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

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