probleme

O

olivier

Guest
bonsoir a tous [file name=Classeur1_20060120230051.zip size=2137]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Classeur1_20060120230051.zip[/file]
 

Pièces jointes

  • Classeur1_20060120230051.zip
    2.1 KB · Affichages: 13

Hervé

XLDnaute Barbatruc
bonsoir olivier, toi

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


salut
 

Discussions similaires

Réponses
2
Affichages
185

Statistiques des forums

Discussions
312 350
Messages
2 087 514
Membres
103 572
dernier inscrit
hamzahaha