Macro pour coller une plage dans une autre feuil avec conditions...

[Guido]

Bonjour le Forum

Je recherche une macro afin de copier et coller des plages..dans une autre feuil..avec conditions

Voir fichier Merci

Guido

 

[vgendron]

Re : Macro pour coller une plage dans une autre feuil avec conditions...

bonjour

avec cette ligne de code

Sub copiecolle()

    Sheets("Feuil1").Range("AG29:AH37,AJ29:AK37").Copy Destination:=Sheets("Feuil2").Range("C6").End(xlDown).Offset(1, 0)
    
End Sub

 

[Guido]

Re : Macro pour coller une plage dans une autre feuil avec conditions...

Re

vgendron

Je te remercie pour ta formule..macro.Super

Amitiés

Guido

Petite question si ma 1er plage de la page 2 est vide ca colle a la 2em plage..

y a t'il une petite solution...

merci

Guido

 

[vgendron]

Re : Macro pour coller une plage dans une autre feuil avec conditions...

Hello

oui pardon, j'avais vu (et connaissais le problème), mais j'ai oublié de te prévenir et de revenir dessus.. donc voici

Sub copiecolle()

    If [C7] = "" Then
        [C7].Select
        Else
            [C6].End(xlDown).Offset(1, 0).Select
    End If
        
    Sheets("Feuil1").Range("AG29:AH37,AJ29:AK37").Copy Destination:=ActiveCell

End Sub

et comme le "select" est pas très joli..et inutile et lent

Sub copiecolle()

    If [C7] = "" Then
        Sheets("Feuil1").Range("AG29:AH37,AJ29:AK37").Copy Destination:=[C7]
        Else
            Sheets("Feuil1").Range("AG29:AH37,AJ29:AK37").Copy Destination:=[C6].End(xlDown).Offset(1, 0)
    End If
        
End Sub

 

[Guido]

Re : Macro pour coller une plage dans une autre feuil avec conditions...

Bonjour

Re vgendron

Je te remercie pour ta formule..

Il y as un debogage et le texte macro et en rouge...?????


Amitiés

Guido

 

[Bebere]

Re : Macro pour coller une plage dans une autre feuil avec conditions...

bonjour
comme suit

Public Sub CopyPaste()

If Sheets("Feuil2").[C7] = "" Then
Sheets("Feuil1").Range("AG29:AH37,AJ29:AK37").Copy Destination:=Sheets("Feuil2").[C7]
Else
Sheets("Feuil1").Range("AG29:AH37,AJ29:AK37").Copy Destination:=Sheets("Feuil2").[C6].End(xlDown).Offset(1, 0)
End If

End Sub