XL 2010 Problème de transfert de données

Louiseleclerc · 25 Août 2020

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 · 25 Août 2020

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

dg62 · 25 Août 2020

Bonjour,
en simplifiant le code

VB:

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.

VB:

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 · 25 Août 2020

st007 à dit:
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 · 25 Août 2020

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

Louiseleclerc · 26 Août 2020

Louiseleclerc à dit:
Je comprends rien je suis vraiment débutante

merci j'ai compris c'étais simple super

XL 2010 Problème de transfert de données

Louiseleclerc

XLDnaute Nouveau

Pièces jointes

st007

XLDnaute Barbatruc

dg62

XLDnaute Barbatruc

Louiseleclerc

XLDnaute Nouveau

dg62

XLDnaute Barbatruc

Louiseleclerc

XLDnaute Nouveau

Discussions similaires

XL 2010 Problème de transfert de données

Louiseleclerc

XLDnaute Nouveau

Pièces jointes

st007

XLDnaute Barbatruc

dg62

XLDnaute Barbatruc

Louiseleclerc

XLDnaute Nouveau

dg62

XLDnaute Barbatruc

Louiseleclerc

XLDnaute Nouveau

Discussions similaires

Privacy & Transparency

Privacy & Transparency