Vba : copier sans formule

Résolu/Fermé

guismo33 Messages postés 351 Date d'inscription samedi 7 décembre 2013 Statut Membre Dernière intervention 21 mars 2021 - 3 août 2018 à 13:39
guismo33 Messages postés 351 Date d'inscription samedi 7 décembre 2013 Statut Membre Dernière intervention 21 mars 2021 - 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

A voir également:

Vba : copier sans formule
Incompatibilité de type vba ✓ - Forum Programmation
Vba attendre 1 seconde ✓ - Forum VB / VBA
Vba dernière colonne non vide ✓ - Forum VB / VBA
Vba récupérer valeur cellule ✓ - Forum VB / VBA
Mkdir vba ✓ - Forum VB / VBA

1 réponse

Réponse 1 / 1

Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 775
3 août 2018 à 14:38

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

guismo33 Messages postés 351 Date d'inscription samedi 7 décembre 2013 Statut Membre Dernière intervention 21 mars 2021 2
3 août 2018 à 15:43

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

Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 775
3 août 2018 à 16:24

désolé, c'est

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

guismo33 Messages postés 351 Date d'inscription samedi 7 décembre 2013 Statut Membre Dernière intervention 21 mars 2021 2
3 août 2018 à 17:44

re,
merci cela fonctionne encore mieux que ma macro.

bien à vous

Discussions similaires

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

VBA : Range avec références variables..

VBA erreur 1004

Méthode find dans VBA - Recherche de données sous Excel

ouverture d'un fichier excel à partir d'un code VBA

Discussions similaires

Newsletters