Selectionner et copier colonne somme = 10

Bonjour le forum,

Je reviens à vous pour solliciter à nouveau votre aide.

En effet, j’aimerais réaliser une macro qui sélectionne les colonnes ayant la somme = « 10 » de la feuille (ESPACE_WORK).

1. La macro doit chercher les cellules de la ligne 17 et 33 ayant la somme = « 10 » des colonnes B à IV (B6 à B17) à (IV6 à IV17) et (B22 à B33) à (IV22 à IV33).

2. Exécuter un copier / coller des colonnes ayant la somme = « 10 » vers la cellule (A41).

3. Enfin reproduire cette tâche colonne par colonne : B (B6 à B17) à IV (IV6 à IV17) et B (B22 à B33) à B (IV22 à IV33).

4. Enfin copier / coller les résultats se trouvant en ligne 41 vers la feuille ( 10 ).

Cela à l’air un peu brouillon, mais le fichier joint éclaircira mes propos du moins je l’espère.

Merci d’avance.

A+

ELAB

Bonjour ELAB

à tester,

Sub Macro1()
Dim sh1, sh2, sh2LastCol As Integer, i As Integer
Set sh1 = Sheets("ESPACE_WORK")
Set sh2 = Sheets("10")
sh2LastCol = sh2.Cells(1, Columns.Count).End(xlToLeft).Column + 1

For i = 2 To 256
  If sh1.Cells(17, i) = 10 Then
   sh1.Range(Cells(6, i).Address, Cells(17, i).Address).Copy sh2.Cells(1, sh2LastCol)
   sh2LastCol = sh2.Cells(1, Columns.Count).End(xlToLeft).Column + 1
  End If

  If sh1.Cells(33, i) = 10 Then
   sh1.Range(Cells(22, i).Address, Cells(33, i).Address).Copy sh2.Cells(1, sh2LastCol)
   sh2LastCol = sh2.Cells(1, Columns.Count).End(xlToLeft).Column + 1
  End If
Next
Set sh1 = Nothing
Set sh2 = Nothing
End Sub

Bonjour sabV,

J'ai essayé la macro que vous réalisez pour moi et elle fonctionne à merveille.

Alors merci pour tout ce vous avez déjà fait pour moi.

Je suis très satisfait et surtout je vous suis très reconnaissant.

1000 merciiiiii...is

Bien à vous

ELAB