Discussion :

[younesssoleil]

Bonjour,
Je bloque sur un petit truc et j'ai besoin svp de votre aide..Merci

J'ai dans un fichier excel (Feuille1) une liste de choix avec comme donnée par exemple: toto, maison, appartement.
Dans une autre feuille: (Feuille2) j'ai des données dans la colonne A dont les valeurs de ma liste de choix
Je souhaite récupérer dans la feuille1 cellule D1 par exemple le numéro de ligne de la colonne A feuille 2 qui correspond à la valeur choisi dans ma liste de choix
J'utilise le code suivant qui marche bien si les données sont dans la même feuille mais pas si les données sont dans la feuille2:

Code :

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

1
2
3
4
5
6
7
8
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("Choix_Modele")) Is Nothing Then
 
Range("D1") = Sheets(Feuille2).Range("A1:A100").Find(Range("Choix_Modele")).Row
 
End If
 
End Sub

[révèr]

Bonjour Younes,

Es-tu sûr de la syntaxe "Feuille2" ? Ne serait-ce pas plutôt "Feuil2" ?

[younesssoleil]

Bonjour Younes,

Es-tu sûr de la syntaxe "Feuille2" ? Ne serait-ce pas plutôt "Feuil2" ?

Bonjour,
Feuille2 c'est juste un exemple, dans mon code réel la feuille 2 a un nom spécifique:"Module"
donc je ne pense pas que l'erreur vient de la..
Merci

[révèr]

Dans ce cas, Sheets("Module"). Sans les guillemets, il s'agirait de la variable Module, or ce n'est pas le cas présentement

[younesssoleil]

Dans ce cas, Sheets("Module"). Sans les guillemets, il s'agirait de la variable Module, or ce n'est pas le cas présentement

désolé j'ai déjà essayé avec ou sans les "", mais toujours la même erreur: "incompatibilité type"

Code :

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

Range("D1") = Sheets(Module).Range("A1:A100").Find(Range("Choix_Modele")).Row

[révèr]

Dans un premier temps, remets les guillemets. Même si tu as toujours l'erreur, c'est la syntaxe à respecter si ton nom de feuille est Module

Retire le .Row à la fin

Tu lui demandes à ce qu'une cellule soit égale à une ligne

[MarcelG]

Bonjour à vous, Bonjour au Forum,

En ce qui concerne la recherche, il vaut mieux s'assurer que celle-ci soit effective

Code :

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

If Not t Is Nothing

Ce avant d'utiliser une ou l'autre propriété (ici Row)

Même si la recherche est effective de façon certaine, c'est une bonne attitude qu'il faudrait adopter.

En ce qui concerne le retour escompté, la fonction Equiv peut aussi être utilisée.

En VBA

Code :

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

Application.WorsheetFunction.Match

Celle-ci étant, éventuellement, augmentée ou diminuée selon la disposition des plages.

[younesssoleil]

J'ai tout essayé mais rien ne marche:

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("Choix_Modele")) Is Nothing Then
 
Range("Q1") = Sheets("Modules").Range("A1:A100").Find(Range("Choix_Modele")).Row
 
 
End If
 
End Sub

Le code fonctionne bien quand mes données sont dans la même feuille:

Exemple: si tout les données sont dans la feuille : Feuil1

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("Choix_Modele")) Is Nothing Then
 
Range("Q1") = Range("A1:A100").Find(Range("Choix_Modele")).Row
 
 
End If
 
End Sub

me retourne bien dans la cellule Q1 le numéro de ligne de de la cellule qui contient la valeur sélectionnée


.......désolé mais je deviens fous avec ce truc la.... j'en suis sur que c'est tout bete....

[Menhir]

Code :

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

Sheets(Feuille2)

Ceci signifie : la feuille dont le nom est enregistré dans la variable nommée "Feuille2".
Comme je ne vois aucune déclaration ni affectation de variable portant ce nom, je suppose que tu as oublié les guillemets pour signaler que ce nom est une chaine de caractères désignant le nom de la feuille.