Comparaison de colonnes entre 2 feuilles et copie de valeurs
Fermé
Novice_en_VBA
-
4 nov. 2021 à 22:18
f894009 Messages postés 16904 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 18 mars 2023 - 5 nov. 2021 à 13:36
f894009 Messages postés 16904 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 18 mars 2023 - 5 nov. 2021 à 13:36
A voir également:
- Comparaison de colonnes entre 2 feuilles et copie de valeurs
- Copie cachée - Guide
- Super copie - Télécharger - Gestion de fichiers
- Jdownloader 2 - Télécharger - Téléchargement & Transfert
- Word numéro de page 1/2 - Guide
- 2 comptes whatsapp - Guide
3 réponses
f894009
Messages postés
16904
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
18 mars 2023
1 678
Modifié le 5 nov. 2021 à 14:12
Modifié le 5 nov. 2021 à 14:12
Re,
Ok, votre niveau VBA ou programmation est vraiment debutant ou ..?
En attendant:
A voir:
'https://www.commentcamarche.net/faq/36886-methode-find-dans-vba-recherche-de-donnees-sous-excel
Ok, votre niveau VBA ou programmation est vraiment debutant ou ..?
En attendant:
A voir:
'https://www.commentcamarche.net/faq/36886-methode-find-dans-vba-recherche-de-donnees-sous-excel
Sub recherche()
Dim sh As Worksheet, Cel As Range
Dim Derlig As Long, Plage As Range, Ville As Range
'Application.ScreenUpdating =False 'stop raffraichissement ecran
Set sh = Worksheets("feuil2")
With Worksheets("feuil1")
Derlig = Range("A" & Rows.Count).End(xlUp).Row
Set Plage = .Range("A2:A" & Derlig) 'mise en memoire liste colonne a
For Each Cel In Plage
'methode find, recherche la valeur exacte (LookAt:=xlWhole)
Set Ville = sh.Columns(1).Find(what:=Cel, LookAt:=xlWhole)
If Not Ville Is Nothing Then 'valeur trouvee
Cel.Offset(, 1) = Ville.Offset(, 1) 'ecriture habitants
End If
Next
End With
Application.ScreenUpdating = True 'active raffraichissement ecran
Set Plage = Nothing
Set sh = Nothing
Set Ville = Nothing
End Sub
f894009
Messages postés
16904
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
18 mars 2023
1 678
5 nov. 2021 à 07:12
5 nov. 2021 à 07:12
Bonjour,
résoudre l'exercice suivant.
En principe, si vous en etes étudiant, nous aidons a faire mais pas faire pour vous.
Pourquoi du VBA, une simple formule RECHERCHEV irait très bien?
résoudre l'exercice suivant.
En principe, si vous en etes étudiant, nous aidons a faire mais pas faire pour vous.
Pourquoi du VBA, une simple formule RECHERCHEV irait très bien?