Vba : copier sans formule

Résolu
guismo33 Messages postés 403 Statut Membre -  
guismo33 Messages postés 403 Statut Membre -
Bonjour a tous,
j'ai une macro qui fonctionne bien ,mais voila je n'arrive pas a obtenir le résultat que je souhaite.
je voudrais copier une colonne et la coller dans une autre mais sans les formules .

Sub REUNION2()
Dim i As Integer, lig As Long, lig2 As Long
With Sheets("R2")

col = .Cells(3, Columns.Count).End(xlToLeft).Column + 1

.Range("Selection2").Copy Destination:=.Cells(3, col)
.Cells(3, col) = .Range("a1").Value

End With

Range("Tiercé").ClearContents
Range("compteur") = Range("compteur") + 1
MsgBox "Terminée"
End Sub

merci à vous

bien à vous

1 réponse

Réponse 1 / 1
Patrice33740 Messages postés 8930 Statut Membre 1 781
 
Bonjour,

essaies : 
Sub REUNION2()
Dim r As Range
  With Sheets("R2")
    Set r = .Range("Selection2")
    With .Cells(3, Columns.Count).End(xlToLeft).Offset(0, 1)
      .Resize(r.Rows.Count, r.Columns.Count).Value = rng.Value
    End With
  End With
End Sub
0
guismo33 Messages postés 403 Statut Membre 2
 
Bonjour patrice,
si ton code postal est vrai nous somme pas loin de l'autre, mais revenons a nos mouton.
il y a un problème sur cette ligne :

.Resize(r.Rows.Count, r.Columns.Count).Value = Rng.Value

"erreur d'exécution 424"
"objet requis"

merci à toi


bien à vous
0
Patrice33740 Messages postés 8930 Statut Membre 1 781
 
désolé, c'est 
.Resize(r.Rows.Count, r.Columns.Count).Value = r.Value
0
guismo33 Messages postés 403 Statut Membre 2
 
re,
merci cela fonctionne encore mieux que ma macro.

bien à vous
0

Discussions similaires

Erreur d'exécution 13 Incompatibilité de type
grace -
pijaku -

5 réponses
"L'indice n'appartient à la sélection" + VBA
fleur.31 -
geosevda -

2 réponses
Méthode find dans VBA - Recherche de données sous Excel
baissaoui -
baissaoui -

0 réponse
appliquer une pause dans une macro vba excel
ch'duj -
lerif25 -

10 réponses
ouverture d'un fichier excel à partir d'un code VBA
TraderAS -
pijaku -

3 réponses