XL 2010 Problème de transfert de données

[Louiseleclerc]

Bonjour,
une autre petite question pour vous (une chance que vous êtes là (je commence) j'ai programmer des transfert de données avec un bouton transfert et c'est avec plein de With. Ça fonctionne mais je suis obligé de peser 20 fois sur transférer les données. Je vous ai mis ma macro mais y a-t-il une façon de simplifier cette macro pour faire une seule fois transférer les données ???

 

[st007]

En éliminant tes msg box
place une ( ' ) apostrophe devant, ces lignes passeront en vert
après, çà représente 20 formules index equiv...

 

[dg62]

Bonjour,
en simplifiant le code

With Sheets("ventilation cumulative")
I=6
colonne = .Rows(2).Find(Range("f2"), , , , xlByRows, xlPrevious).Column 'colonne du mois
ligne = .Columns(1).Find(Range("a"&i), , , xlWhole, xlByColumns, xlPrevious).Row 'ligne du libellé
.Cells(ligne, colonne) = Range("b"&i) 'inscrit la somme
.Cells(ligne, colonne + 1) = Range("c")&i 'inscrit le nombre
I=i+1
ligne = .Columns(1).Find(Range("a"&i), , , xlWhole, xlByColumns, xlPrevious).Row 'ligne du libellé
.Cells(ligne, colonne) = Range("b"&i) 'inscrit la somme
.Cells(ligne, colonne + 1) = Range("c"&i) 'inscrit le nombre
I=i+1
ligne = .Columns(1).Find(Range("a"&i), , , xlWhole, xlByColumns, xlPrevious).Row 'ligne du libellé
.Cells(ligne, colonne) = Range("b"&i) 'inscrit la somme
.Cells(ligne, colonne + 1) = Range("c"&i) 'inscrit le nombre
I=i+1

et ainsi de suite
ou en bouclant c'est encore plus simple.

With Sheets("ventilation cumulative")

colonne = .Rows(2).Find(Range("f2"), , , , xlByRows, xlPrevious).Column 'colonne du mois
for i = 6 to 28
ligne = .Columns(1).Find(Range("a"&i), , , xlWhole, xlByColumns, xlPrevious).Row 'ligne du libellé
.Cells(ligne, colonne) = Range("b"&i) 'inscrit la somme
.Cells(ligne, colonne + 1) = Range("c"&i) 'inscrit le nombre
next i
msgbox "Transfert effectué"
end with

 

[Louiseleclerc]

En éliminant tes msg box
place une ( ' ) apostrophe devant, ces lignes passeront en vert
après, çà représente 20 formules index equiv...

Je comprends rien je suis vraiment débutante

 

[dg62]

Re,
Joignez votre fichier épuré sans données privées. Ce sera plus simple.

 

[Louiseleclerc]

Je comprends rien je suis vraiment débutante

merci j'ai compris c'étais simple super