• Initiateur de la discussion Initiateur de la discussion olivier
  • Date de début Date de début

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 !

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

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
 
- 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.

Discussions similaires

  • Question Question
Microsoft 365 probleme d heure
Réponses
11
Affichages
259
  • Question Question
XL 2021 Macro
Réponses
6
Affichages
313
Réponses
1
Affichages
198
Retour