XL 2016 RÉSOLU -copier une ligne et coller valeurs sur prochaine ligne vide

micie1509 · 6 Février 2023

Bonjour,

Désolée de vous déranger, mais je ne suis pas très bonne avec VBA. J'ai cette macro toute simple qui copie les cellules B1:I1 et les colle sur la prochaine ligne vide. Elle fonctionne très bien, par contre, je voudrais que ce soit les valeurs et non les formules qui soient coller sur la prochaine ligne vide. Je n'ai aucune idée de ce qu'il faut faire.

Merci beaucoup de votre aide

Code:

Sub Test()

'copier_coller ligne


    Range("B1:I1").Copy Range("B65536").End(xlUp).Offset(1, 0)
    
    
    Range("B65536").End(xlUp).Offset(1, 0).Select
    
  
End Sub

micie1509 · 6 Février 2023

Hasco à dit:
Bonsoir

Sans avoir ouvert votre fichier, ceci devrait le faire

Ou version améliorée avec sélection

VB:

With Range("B65536").End(xlUp).Offset(1, 0).Resize(, 8) .Value = Range("B1:I1").Value .Select End With

Cordialement

un GROS merci à vous !

Hasco · 6 Février 2023

Bonsoir

Sans avoir ouvert votre fichier, ceci devrait le faire

Range("B65536").End(xlUp).Offset(1, 0).Resize(,8).Value = Range("B1:I1").Value

Ou version améliorée avec sélection

VB:

    With Range("B65536").End(xlUp).Offset(1, 0).Resize(, 8)
        .Value = Range("B1:I1").Value
        .Select
    End With

Cordialement

micie1509 · 6 Février 2023

Hasco à dit:
Bonsoir

Sans avoir ouvert votre fichier, ceci devrait le faire

Ou version améliorée avec sélection

VB:

With Range("B65536").End(xlUp).Offset(1, 0).Resize(, 8) .Value = Range("B1:I1").Value .Select End With

Cordialement

un GROS merci à vous !

XL 2016 RÉSOLU -copier une ligne et coller valeurs sur prochaine ligne vide

micie1509

XLDnaute Junior

Pièces jointes

micie1509

Hasco

XLDnaute Barbatruc

micie1509

XLDnaute Junior

Discussions similaires