XL 2016 Compteur avec incrémentation de la ligne suivante

[Pascal THIDET]

Bonjour à tous.

Je vous expose mon soucis.
Je précise que je suis novice et que j'arrive juste à m'adapter avec des bouts de code pris grâce à des recherches.

Bref, j'ai des lignes de code qui marchaient très bien grâce à un tableau issu d'un filtre.
Or je recherches la même chose mais à partir d'un fichier identique mais sans filtre pouvant comporter 3 lignes voir 200.

Pouvez vous me l'adapter?

Dim Nom As String
Nom = "PARIS.XLSX"

Fichier = Dir(Nom)

If Fichier <> "" Then

Application.ScreenUpdating = False

Workbooks.Open Filename:=Nom, UpdateLinks:=0
ActiveSheet.Unprotect Password:="PASSOF"

Workbooks(Nom).Activate

Dim SOURCE As Range
For Each SOURCE In Range(("A2:A" & Range("A65536").End(xlDown).Row)).SpecialCells(xlCellTypeVisible)

SOURCE.Select

Resultat = ActiveCell.Value
ActiveCell.Offset(0, 13).Copy
Workbooks("Composition GIFF 03.XLSX").Activate
Cells.Find(Resultat, , xlValues, xlWhole).Activate
ActiveCell.Offset(0, 13).PasteSpecial Paste:=xlPasteValues

Workbooks(Nom).Activate

Resultat = ActiveCell.Value
ActiveCell.Offset(0, 14).Copy
Workbooks("Composition GIFF 03.XLSX").Activate
Cells.Find(Resultat, , xlValues, xlWhole).Activate
ActiveCell.Offset(0, 15).PasteSpecial Paste:=xlPasteValues

Next SOURCE

 

[vgendron]

Bonjour

un simple extrait de ton code ne suffit pas.. il faut aussi que tu postes ton fichier source (paris.xlsx) et ton fichier de travail
SANS données confidentielles bien sur

 

[Pascal THIDET]

J'ai joins les fichiers en question

 

[vgendron]

il n'y a pas de macro dans tes fichiers... suffit de regarder l'extension .xlsx pour le savoir

 

[Pascal THIDET]

????
j'ai une macro d’où j'ai extrait le code figurant plus haut et c'est elle, qui va aller ouvrir les différents fichiers.

 

[vgendron]

pour garder la macro dans le fichier, il faut l'enregistrer au format xlsM

 

[Pascal THIDET]

Je vais m'expliquer un peu mieux.

J'ai un fichier X.xlsm qui va aller ouvrir les fichiers mis en pièces jointes.

J'ai extrait les lignes de codes du fichier X.xlsm qui auparavant, ouvrait le fichier PARIS.xls (fichier filtré), prenait la 1ère donnée (a2), allant copier la donnée en cellule +13, l'a copiait, puis ouvrait le fichier destination, recherchait la valeur inscrite en a2 (fichier origine) et collait en cellule +13, la donnée mise en copie.
Cela marchait très bien.
Cela ne marche plus avec un fichier quelconque (sans filtre).........

 

[Pascal THIDET]

j'ai oublié de dire, Composition GIFF 03 est le fichier de destination

 

[vgendron]

et moi je vais être on ne peut plus clair
si te ne postes pas ton fichier .xlsm avec la macro complete, je ne pourrai pas t'aider.
en l'état on ne peut strictement rien tester..

 

[Pascal THIDET]

Merci quand même.
Désolé, mais je ne peux poster la macro en entier, c'est un fichier professionnel

 

[vgendron]

bon bah, t'as plus qu'à esperer que quelqu'un utilise sa boule de cristal..
la mienne est cassée

 

[Pascal THIDET]

https://www.amazon.fr/Cristal-Asiatique-Annon%C3%A7ant-Fortune-Gu%C3%A9rison/dp/B0C1XNN93Y/ref=asc_df_B0C1XNN93Y/?tag=googshopfr-21&linkCode=df0&hvadid=694206377640&hvpos=&hvnetw=g&hvrand=15434205315593828250&hvpone=&hvptwo=&hvqmt=&hvdev=c&hvdvcmdl=&hvlocint=&hvlocphy=9111749&hvtargid=pla-2276208377692&psc=1&mcid=85f9595565743db39993c7a13cb02b62&gad_source=1