Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
Boostez vos compétences Excel avec notre communauté !
Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force.
Apprenez, échangez, progressez – et tout ça gratuitement !
👉 Inscrivez-vous maintenant !
bonsoir a tous [file name=Classeur1_20060120230051.zip size=2137]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Classeur1_20060120230051.zip[/file]
en attendant les formulistes 🙂 une solution par macro :
Sub Bouton1_QuandClic() Dim i As Byte Dim derligne As Byte
For i = 1 To Val(Range('e8')) With Sheets('tortis')
derligne = .Range('f65536').End(xlUp).Row + 1 If derligne < 8 Then derligne = 8
.Range('f' & derligne) = Range('d8')
.Range('g' & derligne) = Range('e8') End With Next i End Sub
- Navigue sans publicité - Accède à Cléa, notre assistante IA experte Excel... et pas que... - Profite de fonctionnalités exclusives Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel. Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.