Vba coller en mode spécial valeurs

Résolu

AstraLife Messages postés 99 Statut Membre -
AstraLife Messages postés 99 Statut Membre - 7 sept. 2018 à 11:28

Bonjour,

J'ai un code qui me colle toutes mes lignes mais avec la mise en forme, formule...

Je souhaite le type spécial "Valeurs" :

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

mais je n'arrive pas à l'incruster dans la ligne de code ci dessous :

With Sheets("Export")
 .Range("A2:Q" & .Range("A65536").End(xlUp).Row).Copy Sheets("Traitement").Range("A65536").End(xlUp).Offset(1, 0)
End With

Afficher la suite

A voir également:

Collage spécial vba
Caractere special - Guide
Dossier spécial - Guide
Symbole special - Guide
Ecriture special facebook - Guide
Pic collage gratuit - Télécharger - Photo & Graphisme

1 réponse

Réponse 1 / 1

f894009 Messages postés 17413 Statut Membre 1 715

Bonjour,

une facon de faire:

Sub test()
    Dim Table As Range
    
    With Sheets("Export")
        Set Table = .Range("A2:Q" & .Range("A65536").End(xlUp).Row)     'mise en memoire cellules a copier
        With Sheets("Traitement")
            L = .Range("A65536").End(xlUp).Row + 1      'premier cellule vide colonne A
            .Range("A" & L).Resize(Table.Rows.Count, 17) = Table.Value      ' "copie" table memoire dans la feuille
        End With
    End With
End Sub

AstraLife Messages postés 99 Statut Membre

Bonjour,

Merci

Juste un petit problème, j'ai une erreur sur la ligne

L = .Range("A65536").End(xlUp).Row + 1      'premier cellule vide colonne A

Variable non définie

Mon code en entier

Option Explicit 'Oblige la déclaration des Variables

Sub Sup_Lig()
Dim dlig As Long, i As Long ' Declare la variable Dlig


Application.ScreenUpdating = False 'Empeche le rafraichissement de l'écran
dlig = Sheets("Export").Range("R" & Rows.Count).End(xlUp).Row ' Recherche la Dernière LIGne de la Colonne R

For i = dlig To 2 Step -1 ' Boucle sur les lignes de la Dernière trouvée a la ligne n°2
    
    If Cells(i, 20) > 1 Then Rows(i).EntireRow.Delete 'si La cellule est supérieure à 1 alors on supprime la ligne

Next i 'Prochaine Ligne

Sheets("Traitement").Select

Range("A2:T1000").Select
    Selection.ClearContents

Dim Table As Range
With Sheets("Export")
        Set Table = .Range("A2:Q" & .Range("A65536").End(xlUp).Row)     'mise en memoire cellules a copier
        With Sheets("Traitement")
            L = .Range("A65536").End(xlUp).Row + 1      'premier cellule vide colonne A
            .Range("A" & L).Resize(Table.Rows.Count, 17) = Table.Value      ' "copie" table memoire dans la feuille
        End With
    End With

ActiveWorkbook.Save

Application.ScreenUpdating = True 'Remet la rafraichissement de l'écran

End Sub

f894009 Messages postés 17413 Statut Membre 1 715

Re,

Variable non définie
Ben definissez la!!!!!!!!!!!!!!!

AstraLife Messages postés 99 Statut Membre > f894009 Messages postés 17413 Statut Membre

Ok, c'est fait, nickel, merci beaucoup.

[/contents/446-fichier-sub Sub] Sup_Lig()
Dim dlig As Long, i As Long ' Declare la variable Dlig


Application.ScreenUpdating = False 'Empeche le rafraichissement de l'écran
dlig = Sheets("Export").Range("R" & Rows.Count).End(xlUp).Row ' Recherche la Dernière LIGne de la Colonne R

For i = dlig To 2 Step -1 ' Boucle sur les lignes de la Dernière trouvée a la ligne n°2
    
    If Cells(i, 20) > 1 Then Rows(i).EntireRow.Delete 'si La cellule est supérieure à 1 alors on supprime la ligne

Next i 'Prochaine Ligne

Sheets("Traitement").Select

Range("A2:T1000").Select
    Selection.ClearContents

Dim Table As Range, L As Long
With Sheets("Export")
        Set Table = .Range("A2:Q" & .Range("A65536").End(xlUp).Row)     'mise en memoire cellules a copier
        With Sheets("Traitement")
            L = .Range("A65536").End(xlUp).Row + 1      'premier cellule vide colonne A
            .Range("A" & L).Resize(Table.Rows.Count, 17) = Table.Value      ' "copie" table memoire dans la feuille
        End With
    End With

ActiveWorkbook.Save

Application.ScreenUpdating = True 'Remet la rafraichissement de l'écran

End Sub

Discussions similaires

Erreur d'exécution 13 Incompatibilité de type

"L'indice n'appartient à la sélection" + VBA

♡ Coeur vide : Comment le faire ? (Solution !)

Votre réponse

Discussions similaires