VBA - cherche une valeur dans une autre Feuil et renvoie le resultat

Créer une discussion
Répondre
  • Initiateur de la discussion Initiateur de la discussion Bens7
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
B

Bens7

XLDnaute Impliqué
Bonjour a tous !!
J'ai un fichier qui contient une feuil: ACTIF, un autre COMMUNE
j'aimerais que effectuter une recherche de chaque ville et d'y inscrire le canton qui corespond ...
je vous met un fichier en pieces jointes c'est plus clair

essayer le BOUTON 1 ca marche mais je sais pas comment lui dire de continuer jusqu'au bout

Merci !!!
 

Pièces jointes

Trier par date Trier par votes
Re : VBA - cherche une valeur dans une autre Feuil et renvoie le resultat

Bonjour Bens, le forum,

Mettre la macro ci-desous dans le module de ta Feuille ACTIF.

VB: 
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = 0
If Target.Column <> 9 Then Exit Sub
For i = 2 To [I65536].End(xlUp).Row
  If IsError(Application.Match(Cells(i, 9), Feuil4.Columns(1), 0)) Then
  Cells(i, 10) = "?"
  Else
  Cells(i, 10) = Feuil4.Cells(Application.Match(Cells(i, 9), Feuil4.Columns(1), 0), 2)
  End If
Next
Application.EnableEvents = -1
End Sub

A+

Martial
 
Vote positif 0 Vote négatif
Re : VBA - cherche une valeur dans une autre Feuil et renvoie le resultat

Bonjour Martial !
J'ai pas tres bien compris :
je rajoute ce module dans la Feuil ACTIF en gardant mon Bouton ? > marche pas
Je remplace le Code du Bouton par ce module ?> marche pas
Je met ce Code dans la Feuil ACTIF ? > Comment je le lance ?
 
Vote positif 0 Vote négatif
Re : VBA - cherche une valeur dans une autre Feuil et renvoie le resultat

Comme ca ? Comprend pas

Code: 
Sub CANTON()
'COPIE LES VALEURS SELON CRITERE DANS ACTIF
Dim i&, j&
j = 2
With Feuil4
For i = 2 To .[A65536].End(xlUp).Row
If .Cells(i, 1) = [I2] Then
Cells(j, 10) = .Cells(i, 2)
j = j + 1
End If
Next
End With
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
 Application.EnableEvents = 0
 If Target.Column <> 9 Then Exit Sub
 For i = 2 To [I65536].End(xlUp).Row
   If IsError(Application.Match(Cells(i, 9), Feuil4.Columns(1), 0)) Then
   Cells(i, 10) = "?"
   Else
   Cells(i, 10) = Feuil4.Cells(Application.Match(Cells(i, 9), Feuil4.Columns(1), 0), 2)
   End If
 Next
 Application.EnableEvents = -1
 End Sub
 
Vote positif 0 Vote négatif
Re : VBA - cherche une valeur dans une autre Feuil et renvoie le resultat

J'ai mis ca dans ACTIF marche pas non plus

Code: 
Private Sub CommandButton1_Click(ByVal Target As Range)
 Application.EnableEvents = 0
 If Target.Column <> 9 Then Exit Sub
 For i = 2 To [I65536].End(xlUp).Row
   If IsError(Application.Match(Cells(i, 9), Feuil4.Columns(1), 0)) Then
   Cells(i, 10) = "?"
   Else
   Cells(i, 10) = Feuil4.Cells(Application.Match(Cells(i, 9), Feuil4.Columns(1), 0), 2)
   End If
 Next
 Application.EnableEvents = -1
End Sub
 
Vote positif 0 Vote négatif
Re : VBA - cherche une valeur dans une autre Feuil et renvoie le resultat

bonjour tous🙂
tu peus ecrire comme cela

code de ton bouton

Code: 
Sub CANTON()
 Dim t2, t1, a As Long, b As Long
 t1 = Feuil1.Range("i2:j" & Feuil1.Cells(Rows.Count, 9).End(xlUp).Row)
 t2 = Feuil4.Range("a2:b" & Feuil4.Cells(Rows.Count, 1).End(xlUp).Row)
 For a = LBound(t1, 1) To UBound(t1, 1)
 For b = LBound(t2, 1) To UBound(t2, 1)
 If t1(a, 1) = t2(b, 1) Then t1(a, 2) = t2(b, 2)
 Next b: Next a
 Feuil1.Range("i2").Resize(UBound(t1, 1), UBound(t1, 2)) = t1
End Sub
 
Vote positif 0 Vote négatif
Re : VBA - cherche une valeur dans une autre Feuil et renvoie le resultat

Merci Laetitia cependant je remarque une erreur dans mon fichier :
Si par exemple dans Geneve j'ai Geneve" " en fait un espace avant ou apres la Ville ou des saut de ligne ca marche pas
j'ai donc essayer de suprimer en debut et fin des espaces inutiles avec Trim(cell) mais je pensse pas que c'est bon vu que ca m'efface tout voici le code :
Code: 
Sub CANTON()
Dim CA As Range
Application.ScreenUpdating = False
    For Each CA In Range("I2:I" & Range("B65536").End(xlUp).Row)
   CA = Trim(Cel) 'supprime les espaces début et fin
Next CA

' CHERCHER LE CANTON
  Dim t2, t1, a As Long, b As Long
  t1 = Feuil1.Range("i2:j" & Feuil1.Cells(Rows.Count, 9).End(xlUp).Row)
  t2 = Feuil4.Range("a2:b" & Feuil4.Cells(Rows.Count, 1).End(xlUp).Row)
  For a = LBound(t1, 1) To UBound(t1, 1)
  For b = LBound(t2, 1) To UBound(t2, 1)
  If t1(a, 1) = t2(b, 1) Then t1(a, 2) = t2(b, 2)
  Next b: Next a
  Feuil1.Range("i2").Resize(UBound(t1, 1), UBound(t1, 2)) = t1

End Sub
Si tu peux me modifier le code Merci !
 
Vote positif 0 Vote négatif
Re : VBA - cherche une valeur dans une autre Feuil et renvoie le resultat

J'ai resolu pour les espaces avant apres mais pas les saut de lignes
voici le code actuel:

Code: 
Sub CANTON()
'Suprime les espaces au debut et Fin des Cellules
For Each cel In Range("I2:I" & [B65000].End(xlUp).Row)
cel.Value = Trim(cel.Value) 'Rtrim: espace en fin / Trim: Espace Fin et debut
Next cel

'Cherche le Canton dans la Feuil Commune
  Dim t2, t1, a As Long, b As Long
  t1 = Feuil1.Range("i2:j" & Feuil1.Cells(Rows.Count, 9).End(xlUp).Row)
  t2 = Feuil4.Range("a2:b" & Feuil4.Cells(Rows.Count, 1).End(xlUp).Row)
  For a = LBound(t1, 1) To UBound(t1, 1)
  For b = LBound(t2, 1) To UBound(t2, 1)
  If t1(a, 1) = t2(b, 1) Then t1(a, 2) = t2(b, 2)
  Next b: Next a
  Feuil1.Range("i2").Resize(UBound(t1, 1), UBound(t1, 2)) = t1

End Sub
 
Vote positif 0 Vote négatif
Re : VBA - cherche une valeur dans une autre Feuil et renvoie le resultat

re,

un code qui le fait
Code: 
  Selection.Replace What:=Chr(10), Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
 
Vote positif 0 Vote négatif
Re : VBA - cherche une valeur dans une autre Feuil et renvoie le resultat

J'ai mis Chr=(9) car les Villes sont dans la collone 9 mais ca marche pas :
Code: 
Sub CANTON()

'Suprime les espaces au debut et Fin des Cellules
For Each cel In Range("I2:I" & [B65000].End(xlUp).Row)
cel.Value = Trim(cel.Value) 'Rtrim: espace en fin / Trim: Espace Fin et debut (toujours pas les saut de lignes)
Next cel

'Suprime les saut de lignes
  Selection.Replace What:=Chr(9), Replacement:="", LookAt:=xlPart, _
         SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
         ReplaceFormat:=False

'Cherche le Canton dans la Feuil Commune
  Dim t2, t1, a As Long, b As Long
  t1 = Sheets("ACTIF").Range("i2:j" & Sheets("ACTIF").Cells(Rows.Count, 9).End(xlUp).Row)
  t2 = Sheets("COMMUNE").Range("a2:b" & Sheets("COMMUNE").Cells(Rows.Count, 1).End(xlUp).Row)
  For a = LBound(t1, 1) To UBound(t1, 1)
  For b = LBound(t2, 1) To UBound(t2, 1)
  If t1(a, 1) = t2(b, 1) Then t1(a, 2) = t2(b, 2)
  Next b: Next a
  Sheets("ACTIF").Range("i2").Resize(UBound(t1, 1), UBound(t1, 2)) = t1

End Sub
 
Vote positif 0 Vote négatif
Re : VBA - cherche une valeur dans une autre Feuil et renvoie le resultat

re
en gros ton code sans simplifier donne cela j'ai rajoute une ligne pour les "?"

Code: 
 Dim t2, t1, a As Long, b As Long, cel As Range
 Application.ScreenUpdating = 0
 For Each cel In Range("I2:I" & [B65000].End(xlUp).Row)
 cel.Value = Trim(cel.Value)
 cel.Replace What:=Chr(10), Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
  Next cel
  Feuil1.Range("j2:j" & Feuil1.Cells(Rows.Count, 9).End(xlUp).Row) = "?"
  t1 = Feuil1.Range("i2:j" & Feuil1.Cells(Rows.Count, 9).End(xlUp).Row)
  t2 = Feuil4.Range("a2:b" & Feuil4.Cells(Rows.Count, 1).End(xlUp).Row)
  For a = LBound(t1, 1) To UBound(t1, 1)
  For b = LBound(t2, 1) To UBound(t2, 1)
  If t1(a, 1) = t2(b, 1) Then t1(a, 2) = t2(b, 2)
  Next b: Next a
  Feuil1.Range("i2").Resize(UBound(t1, 1), UBound(t1, 2)) = t
1

ps: correction der ligne

Feuil1.Range("i2").Resize(UBound(t1, 1), UBound(t1, 2)) = t

par


Feuil1.Range("i2").Resize(UBound(t1, 1), UBound(t1, 2)) = t1
 
Dernière édition:
Vote positif 0 Vote négatif
Re : VBA - cherche une valeur dans une autre Feuil et renvoie le resultat

re
je viens de me rendre compte si tu ecris

Code: 
For Each cel In Range("I2:I" & [B65000].End(xlUp).Row)

la boucle se fait en fonction de la colonne B si rien en colonne B la boucle se fait pas

en corrigeant un peu sans tout passer par des "tablos" vu quand colonne i tu as que 78 cell remplie

Code: 
Sub CANTON()
Dim t2, t1, a As Long, b As Long, c As Range
  Application.ScreenUpdating = 0
  For Each c In Feuil1.Range("i2:i" & Feuil1.Cells(Rows.Count, 9).End(xlUp).Row)
  c.Replace What:=Chr(10), Replacement:=""
  c.Value = Trim(c.Value)
  Next c
  Feuil1.Range("j2:j" & Feuil1.Cells(Rows.Count, 9).End(xlUp).Row) = "?"
  t1 = Feuil1.Range("i2:j" & Feuil1.Cells(Rows.Count, 9).End(xlUp).Row)
  t2 = Feuil4.Range("a2:b" & Feuil4.Cells(Rows.Count, 1).End(xlUp).Row)
  For a = LBound(t1, 1) To UBound(t1, 1)
  For b = LBound(t2, 1) To UBound(t2, 1)
  If t1(a, 1) = t2(b, 1) Then t1(a, 2) = t2(b, 2)
  Next b: Next a
  Feuil1.Range("i2").Resize(UBound(t1, 1), UBound(t1, 2)) = t1
End Sub
 
Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

T
  • Question Question
Microsoft 365 Copier et incrémenter une plage de données dans un autre onglet
Réponses
7
Affichages
853
tonino06200
T
L
  • Question Question
Microsoft 365 Extraire les filtres d'une colonne ou d'un segment en VBA et les écrire dans une autre colonne.
2
Réponses
20
Affichages
2 K
LORIS-B
L
J
  • Résolu(e)
XL 2016 vba cherche 2 valeurs dans une autre feuille et remplace des données
Réponses
9
Affichages
1 K
julien741
J
S
  • Question Question
XL 2016 chercher correspondance et copier dans une autre feuil les résultats
Réponses
3
Affichages
1 K
R@chid
R@chid
L
  • Question Question
XL 2016 [RESOLU] VBA : Rechercher et restituer à l'utilisateur une valeur contenue dans le classeur en fonction de la valeur d'une autre cellule
Réponses
13
Affichages
4 K
James007
James007
B
  • Question Question
Comment copier par une macro une colonne et coller dans le tableau d'une autre feuille
Réponses
10
Affichages
5 K
bidouill
B
P
  • Question Question
Renvoie de la valeur d'une cellule selon le nom d'une feuille dans une cellule
Réponses
4
Affichages
1 K
philippe_chalon01
P
C
  • Question Question
XL 2013 Modification d'un resultat et mettre le nouveau resultat dans une autre colonne
Réponses
6
Affichages
968
cedric_hiss
C
C
  • Question Question
XL 2013 Modification d'un resultat et mettre le nouveau resultat dans une autre colonne
Réponses
0
Affichages
837
cedric_hiss
C
L
  • Question Question
Chercher une valeur et copier les cellules de gauche dans une autre feuille excel
Réponses
5
Affichages
2 K
lepurineur85
L
M
  • Question Question
VBA - Sauver le fichier excel dans un dossier et le nommer automatiquement
Réponses
2
Affichages
809
Misterbean
M
F
  • Question Question
Excel VBA 2 tris à appliquer
Réponses
3
Affichages
1 K
fb62840
F
B
  • Question Question
déplacer série de cellule vers une autre feuil du classeur
Réponses
1
Affichages
1 K
Papou-net
Papou-net
A
  • Question Question
rechercher d'une feuille sur une autre feuille et coller le résultat dans une autre
Réponses
2
Affichages
2 K
alain90
A
V
  • Question Question
VBA - extraire des données de nombreuses feuilles et les compiler dans une seule feui
2
Réponses
17
Affichages
8 K
tototiti2008
tototiti2008
G
  • Question Question
VBA recherche dans une plage et resultat dans un combobox
Réponses
2
Affichages
2 K
Greg44
G
B
  • Question Question
Fonction SI qui identifie un mot dans une cellulaire et renvoie une valeur
Réponses
6
Affichages
5 K
bouclesdor
B
N
  • Question Question
[REGLE]Liste de choix 1 cellule et resultat dans une autre cellule
Réponses
5
Affichages
3 K
Modeste
Modeste
S
  • Question Question
Approximation d'une courbe "particulière" sous Excel par une droite affine
2 3 4
Réponses
59
Affichages
13 K
eriiic
eriiic
P
  • Question Question
recherche de valeur dans une colonne [VBA]
Réponses
1
Affichages
16 K
Pierrot93
Pierrot93
Retour