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

[amel]

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

 

[adebrux]

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

 

[amel]

Merci de ta reponse Arnaud!
mais il m'affiche un message d'erreur 'erreur definie par l'application ou par l'objet' et me met en jaune cells(2,i+1).select

 

[Hervé]

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