EXCEL Vba:SYNCRO DE DONNEES ENTRE 2 FEUILLES
Résolu/Fermé
7808622H
Messages postés
292
Date d'inscription
samedi 23 février 2008
Statut
Membre
Dernière intervention
19 mai 2018
-
18 mai 2009 à 21:39
7808622H Messages postés 292 Date d'inscription samedi 23 février 2008 Statut Membre Dernière intervention 19 mai 2018 - 19 mai 2009 à 01:05
7808622H Messages postés 292 Date d'inscription samedi 23 février 2008 Statut Membre Dernière intervention 19 mai 2018 - 19 mai 2009 à 01:05
A voir également:
- EXCEL Vba:SYNCRO DE DONNEES ENTRE 2 FEUILLES
- Liste déroulante excel - Guide
- Si et excel - Guide
- Word et excel gratuit - Guide
- Aller à la ligne excel - Guide
- Déplacer une colonne excel - Guide
2 réponses
eriiic
Messages postés
24603
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
15 décembre 2024
7 248
18 mai 2009 à 22:42
18 mai 2009 à 22:42
Bonsoir,
A mettre dans la feuille import...
Il faut faire un choix entre entier ou string pour le n° de pièce car ça change dans ta 2nde feuille.
J'avais démarré avec un long 'nPiece = CLng(Cells(i, 1)) que j'ai mis ensuite en commentaire pour utiliser un string Npiec = Cells(i, 1)
Si tu reviens sur un long ne pas oublier de changer la variable en Npiece au lieu de Npiec dans le .find
Regarde si c'est ok
eric
A mettre dans la feuille import...
Sub importer() Dim i As Long, nPiece As Long, r, Npiec As String, dest As String For i = 3 To [A65536].End(xlUp).Row 'nPiece = CLng(Cells(i, 1)) Npiec = Cells(i, 1) Set r = Worksheets("ER14_FINAL").Range("A:A").Find(Npiec, LookIn:=xlValues, LookAt:=xlWhole) If Not (IsNumeric(r)) Then dest = "A" & Worksheets("ER14_FINAL").[A65536].End(xlUp).Offset(1, 0).Row Range("A" & i).Resize(1, 9).Copy Destination:=Worksheets("ER14_FINAL").Range(dest) End If Next i Set r = Nothing End Sub
Il faut faire un choix entre entier ou string pour le n° de pièce car ça change dans ta 2nde feuille.
J'avais démarré avec un long 'nPiece = CLng(Cells(i, 1)) que j'ai mis ensuite en commentaire pour utiliser un string Npiec = Cells(i, 1)
Si tu reviens sur un long ne pas oublier de changer la variable en Npiece au lieu de Npiec dans le .find
Regarde si c'est ok
eric
7808622H
Messages postés
292
Date d'inscription
samedi 23 février 2008
Statut
Membre
Dernière intervention
19 mai 2018
4
19 mai 2009 à 01:05
19 mai 2009 à 01:05
nickel chrome ca marche tout comme il faut, j'ai fait les titesm odifs qu'il y aavit a faire et ca marche
Un énorme merci a toi
Un énorme merci a toi