Vba : copier sans formule

Résolu

guismo33 Messages postés 403 Statut Membre -
guismo33 Messages postés 403 Statut Membre - 3 août 2018 à 17:44

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

Afficher la suite

1 réponse

Réponse 1 / 1
Patrice33740 Messages postés 8400 Date d'inscription Statut Membre Dernière intervention 1 784
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
1. 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
2. Patrice33740 Messages postés 8400 Date d'inscription Statut Membre Dernière intervention 1 784
  
  désolé, c'est
  .Resize(r.Rows.Count, r.Columns.Count).Value = r.Value
  
  0
3. guismo33 Messages postés 403 Statut Membre 2
  
  re,
  merci cela fonctionne encore mieux que ma macro.
  
  bien à vous
  
  0

Vba : copier sans formule

1 réponse

Discussions similaires

Newsletters