Copier cellules dans un tableau sur autre feuille

Bonjour le Forum,

Je viens vers vous car je suis bloqué sur un copier/coller quelque peu compliqué pour moi!

j'ai beau chercher essayer ce que je peux trouver sur internet et pas possible d'y arriver!

je cherche à copier 3 cellules d'une feuille pour les coller sur une autre feuille mais sur une même ligne!

J'ai même régressé dans mes essais et c'est pour ça que je me tourne vers vous!

Je joins un fichier pour que cela soit plus clair! je cherche une solution en VBA!

Un grand merci par avance pour vos solutions et même pour vos pistes!

infocel

Bonjour,

La meilleure solution en VBA est généralement de ne pas copier ! Si Cel1 à 4 désigne les références des cellules à récupérer :

Sub Test()
    Dim lgn
    With Worksheets("tournée")
        lgn = array(.Range(Cel1), .Range(Cel2), .Range(Cel3), .Range(Cel4))
    End With
    Worksheets("realise").Cells(lignecible, 1).Resize(, 4).Value = lgn
End Sub

lignecible étant la ligne d'affectation qui a été déterminée ailleurs dans le code...

Cordialement.

Bonjour MFerrand, le Forum,

Désolé de revenir que maintenant, ce que tu me propose est ce que je cherche, j'adapterai après pour les autres enregistrements.

Ce que je n'arrive pas à faire c'est de commencer l'enregistrement des données en A2 et les mettre à la suite!

voici le bout de code arrangé:

Dim Drligne As Integer

Drligne = Range("A" & Rows.Count).End(xlUp).Row + 1 'lignecible

Dim lgn

With Worksheets("tournée")

lgn = Array(.Range("F9"), .Range("F8"), .Range("K1")) ', .Range(Cel4))

End With

Worksheets("realise").Cells(Drligne, 1).Resize(, 4).Value = lgn

Je pense que le Rows.Count pose problème mais n'en suis pas sure du tout!!

Merci encore!

bonjour

salut MFerrand

faire plus simple : un unique onglet !

des colonnes toutes simples

en colonne A la date, les autres colonnes sont celles de "tournée"

tu saisis TOUTES les informations dans cet onglet, sans jamais en changer. Tu auras des milliers de lignes dans ans

pas de VBA

ensuite tu feras des TCD pour de analyses et des états, des graphiques

le tout facile et fiable.

note que TOUS les progiciels fonctionnent selon ce principe.

Bonjour jmd,

Je suis entièrement d'accord avec toi, le hic c'est que l'utilisateur principal de ce fichier me supprime des formules voir des onglets, enfin me fait n'importe quoi! je passe presque plus de temps à rattraper le tir qu'autre chose!! je suis pas et de loin le meilleur en vba et en formule mais j'essais de verrouiller un peu tout cela!

il faut le former

enfin quoi ! s'il doit utiliser une voiture il apprend à conduire

sinon c'est du sabotage, passible de licenciement pour faute grave

Bonsoir,

Sub XXXX()
    Dim Drligne As Integer, lgn
    With Worksheets("tournée")
        lgn = Array(.Range("F9"), .Range("F8"), .Range("K1"))
    End With
    With Worksheets("realise")
        Drligne = .Range("A" & .Rows.Count).End(xlUp).Row + 1
        .Cells(Drligne, 1).Resize(, 3).Value = lgn
    End With
End Sub

Cordialement.

Merci MFerrand et jmd,

cela fonctionne très bien!!

(euh pour le licenciement je suis d'accord mais c'est lui le patron!!! oups!!)

Je vous remercie beaucoup ça me débloque pour la suite mais la j'essais d'aller jusqu'au bout!!

Merci aussi d'avoir pris le temps pour mon problème!

infocel