Macro dans un Userform qui arrêtte

[bloomby]

IF l'une des cellules de la ligne 2 = 1 Copie coller

Bonjour à tous,

J'essai de créer une macro conditionel
Lorsqu'un des cellules de la lign 2 = 1
on fait un copier coller d'un range de cellules
ex: cellules w2=1 RANGE W1:AA10
copier coller dans la sheet2 A1

c donc dire que je veux le range (10,5) (10lignes 5 colonnes)

merci
Bloomby

 

[soenda]

Re : Macro dans un Userform qui arrêtte

Bonsoir bloomby

ex: cellules W2=1 RANGE W1:AA10

Ca nous fait 10 lignes et 5 colonnes 🙄

copier coller dans la sheet2 A1

Peux-tu préciser STP... 😕

A plus

 

[bloomby]

Re : Macro dans un Userform qui arrêtte

Bonjour Soenda,

En effet j'ai corrigé 10lignes 5colonnes.
bref si W2=1 (on sélectionne W1:AA10) Copie
on le colle dans la sheet2 à partir de la cellule A1

Si la cellule A2=1 (on sélectionne A1:E10) Copie
on le colle dans la sheet2 à partir de la cellule A1

merci
Bloomby

 

[soenda]

Re : Macro dans un Userform qui arrêtte

Bonjour le fil, Bloomby

Par ex:

Sub b()
    Dim l As Long
    Dim c As Range
 
    With Feuil1
        For Each c In Range(.Cells(2, 1), .Cells(2, [B2].End(xlToRight).Column))
            If c = 1 Then
                Range(c.Offset(-1, 0), c.Offset(-1, 9)).Copy Feuil2.[A1]
                Application.CutCopyMode = False
                Exit For
            End If
        Next
    End With
 
    Feuil2.Activate
    [A1].Select
End Sub

- cherche une cellule de la ligne 2 égale à 1 (dans la feuille 1 - à adapter si besoin)
- lorsqu'elle est trouvée
- copie de la cellule du dessus et des 9 suivantes
- et collage à partir de la cellule A1 de la feuille 2
- puis on sort de la boucle For
Ce qui veut dire que seule la première cellule de la ligne 2 égale à 1, provoquera une copie.

A plus

 

[kjin]

Re : Macro dans un Userform qui arrêtte

Bonjour,
Avec si peu d'infos !

Sub CopieDeJeNeSaisOuVersJeNeSaisOu()
    With ActiveSheet
        For i = 1 To [A2].End(xlToRight).Column Step 5 '???
            If .Cells(2, i) = 1 Then
            Set plage = .Range(.Cells(1, i).Address, .Cells(10, i + 4).Address)
                With Sheets(2)
                dl = .Range("A65000").End(xlUp).Row + 1
                    If dl = 2 Then dl = 1
                    .Range("A" & dl & ":E" & dl + 9) = plage.Value
                End With
            End If
        Next
    End With
End Sub

A+
kjin