Louiseleclerc
XLDnaute Nouveau
À l'aide j'avance plus,
Bonjour j'ai besoin de transférer le résultat de la feuille Bte Fax amendes et courriel dans la feuille Stat du mois voir fichier voila ce que j'ai essayer
With Sheets("btes Fax, Amende, corresp.")
colonne = .Columns(1).Find(Range("f2"), , , , xlByRows, xlPrevious).Column 'colonne du mois
ligne = .Columns(1).Find(Range("a25"), , , xlWhole, xlByColumns, xlPrevious).Row 'ligne du libellé
.Cells(ligne, colonne) = Range("J10") 'inscrit la somme
'MsgBox "Transfert effectué"
End With
Merci beaucoup
Louise
Bonjour j'ai besoin de transférer le résultat de la feuille Bte Fax amendes et courriel dans la feuille Stat du mois voir fichier voila ce que j'ai essayer
With Sheets("btes Fax, Amende, corresp.")
colonne = .Columns(1).Find(Range("f2"), , , , xlByRows, xlPrevious).Column 'colonne du mois
ligne = .Columns(1).Find(Range("a25"), , , xlWhole, xlByColumns, xlPrevious).Row 'ligne du libellé
.Cells(ligne, colonne) = Range("J10") 'inscrit la somme
'MsgBox "Transfert effectué"
End With
Merci beaucoup
Louise