copier-coller a l'aide d'une boucle...

  • Initiateur de la discussion Initiateur de la discussion amel
  • 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 !

A

amel

Guest
salut a toi qui me lis!!
bon, ecoute j'ai 36 colonnes et 10 lignes, je voudrais copier la 10eme ligne mais uniquement les cellules des colonnes 10 à 23 et 25 à 30 et les coller dans une autre feuille dans la 2eme ligne, colonnes 11 à 24 et 27 à 32...
je pensais faire une boucle avec un select case mais je ne vois pas trop comment la 'synthaxer'?... merci de ton aide!!
 
Salut B)
Essaie ce code :

Sub Macro1()

For i = 10 To 23
Sheets('feuil1').Activate
Cells(10, i).Select
Selection.Cut
Sheets('Feuil2').Activate
Cells(2, i + 1).Select
ActiveSheet.Paste
Next i

For j = 25 To 30
Sheets('feuil1').Activate
Cells(10, j).Select
Selection.Cut
Sheets('Feuil2').Activate
Cells(2, j + 2).Select
ActiveSheet.Paste
Next j

End Sub


C un peu du bricolage 😉 , mais ca marche plutôt bien
Bon courage
Arnaud
 
Bonjour amel, arnaud, le forum


🙂

Une autre synthaxe possible :

Sub Bouton1_QuandClic()
Dim i As Integer, j As Integer

j = 11
For i = 1 To 30
   
Select Case i
       
Case 10 To 23, 25 To 30
            Sheets('feuil2').Cells(2, j) = Cells(10, i)
            j = j + 1
           
If j = 25 Then j = 27
   
End Select
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

Réponses
2
Affichages
500
Retour