Excel
Fermé
pacotilu
-
25 févr. 2009 à 10:26
lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 - 25 févr. 2009 à 12:11
lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 - 25 févr. 2009 à 12:11
A voir également:
- Excel
- Liste déroulante excel - Guide
- Formule excel - Guide
- Déplacer une colonne excel - Guide
- Aller à la ligne excel - Guide
- Tableau croisé dynamique excel - Guide
2 réponses
Mike-31
Messages postés
18188
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
13 mars 2023
5 040
25 févr. 2009 à 11:58
25 févr. 2009 à 11:58
Salut,
ça pas l'air très compliqué, il serai plus facile pour nous de juger sur un exemple concret, crées un modéle de fichier avec tes deux feuilles et avec le lien ci-dessous, joint le à un prochain post
https://www.cjoint.com/
A+
ça pas l'air très compliqué, il serai plus facile pour nous de juger sur un exemple concret, crées un modéle de fichier avec tes deux feuilles et avec le lien ci-dessous, joint le à un prochain post
https://www.cjoint.com/
A+
lermite222
Messages postés
8702
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 193
25 févr. 2009 à 12:11
25 févr. 2009 à 12:11
Bonjour,
Ca ne correspond pas tout à fait dans les colonnes que tu donne,
une macros qui recherche le PU sur la feuille2.colonneC et recopie sur la Feuille1.ColonneC
Si les colonnes ne sont pas bonne tu dis, j'adapterais.
A+
Ca ne correspond pas tout à fait dans les colonnes que tu donne,
une macros qui recherche le PU sur la feuille2.colonneC et recopie sur la Feuille1.ColonneC
Si les colonnes ne sont pas bonne tu dis, j'adapterais.
Sub Actualiser()
'Les prix unitaires se trouvent en colonne C
Dim LigDest As Long, MaxDest As Long
Dim LigCop As Long, MaxCop As Long
Dim FLcop As Worksheet
Dim FLdest As Worksheet
Set FLdest = Sheets("Feuil1")
Set FLcop = Sheets("feuil2")
MaxDest = FLdest.Range("A65536").End(xlUp).Row
MaxCop = FLcop.Range("A65536").End(xlUp).Row
For LigCop = 1 To MaxCop
'Cherche équivalence de nom
For LigDest = 1 To MaxDest
If FLdest.Cells(LigDest, 1) = FLcop.Cells(LigCop, 1) Then
FLdest.Cells(LigDest, 3) = FLcop.Cells(LigCop, 3)
Exit For
End If
Next LigDest
Next LigCop
End Sub
A+