VBA: copier une sélection d'une feuille vers d'autres

Bonjour à tous!

J'écume tous les forums mais malheureusement ne réussis pas à trouver la réponse à mon problème...

Sur mon fichier, les datas sont rentrées dans la feuille PROGRAM et je souhaite créer un bouton qui reporte la sélection actuelle (colonne A à L toujours mais parfois 4 lignes, parfois les 5 suivantes, etc) dans les feuilles Accommodation et Restaurant. Jusqu'ici, tout va bien. Maintenant, je souhaite pouvoir, à l'occasion, rajouter une ligne dans Accommodation ou Restaurant qui elle ne sera pas copiée dans les autres feuilles. Il faudrait donc que les données de 'Program' soient reportées en dessous de la dernière ligne de chaque page. Petit plot twist:en colonne R des autres feuilles, il y a une formule. Mes tests précédents échouent principalement car VBA lit cette colonne de formule comme la dernière ligne.

Je vous joint le fichier vierge, please sauvez ma vie (ou au moins mon après-midi)

Merci d'avance pour votre aide et bonne journée!

Salut stefinet,

pas trop compris tes explications mais rien d'insurmontable pour toi.

Pour copier des valeurs d'une feuille à l'autre:

Feuille2.Range("E6:P6").Value = Feuille1.Range("A" & iRow & ":L" & iRow).Value

Pour calculer la première ligne libre, base-toi sur une colonne de référence certaine.

iRowA = Feuille2.Range("A" & Rows.Count).End(xlUp).Row + 1

• où End(xlUp) repère la dernière ligne encodée de la colonne [A] en remontant du bas (End) vers le haut (xlUp)
• et +1 pour accéder à la ligne suivante, libre donc.

A+