Copie formules et mise en page

Bonjour à tous,

Ultra amateur en VBA, je souhaite copier / coller avec l'option "Mise en forme des formules et nombres (O)" des données qui se trouvent dans les 3 dernières colonnes pleines de mon tableau vers les 3 premières colonnes vides de la même feuille.

En gros, ça donnerait ça :
Premier fichier :
A B C D E F G H I J
1 2 3

2ème fichier
A B C D E F G H I J
1 2 3 4 5 6

3ème fichier
A B C D E F G H I J
1 2 3 4 5 6 7 8 9
Etc.

Le nombre de lignes peut varier également. L'idéal serait donc de prendre également jusqu'à la dernière ligne non vide.

Quelqu'un aurait une solution à l'esprit ?

Merci d'avance pour votre aide.

Citation:

---

Envoyé par Sqeezo

je souhaite copier / coller avec l'option "Mise en forme des formules et nombres (O)" des données

---

Pour la copie, méthode Copy de Range : https://msdn.microsoft.com/fr-fr/lib...0(v=office.15)
Pour le collage, méthode PasteSpecial de Range avec l'option xlPasteFormulasAndNumberFormats : https://msdn.microsoft.com/fr-fr/lib...6(v=office.15)

Citation:

---

qui se trouvent dans les 3 dernières colonnes pleines de mon tableau vers les 3 premières colonnes vides de la même feuille.

---

Pour trouver la dernière colonne pleine, propriété End(xlToRight) de Range : https://msdn.microsoft.com/fr-fr/lib...9(v=office.15)
Les trois dernières colonnes pleines commencent à cette valeur moins 2.
Les trois premières colonnes vides commencent à cette valeur plus 1.

Citation:

---

Le nombre de lignes peut varier également. L'idéal serait donc de prendre également jusqu'à la dernière ligne non vide.

---

Pour le dernière ligne pleine, propriété End(xlDown).

Bonjour Menhir,

Merci pour cette aide.

Je ne comprends pas comment écrire "cette valeur moins 2" et "cette valeur plus 1".
Dans l'exemple de MSDN, je vois que pour sélectionner toutes les colonnes depuis B4 jusqu'à la fin, l'écriture est la suivante :

Code:

---

Range("B4", Range("B4").End(xlToRight)).Select

---

Cependant, je ne sais pas comment faire pour lui dire de prendre à la place de B4 "Ligne 3, Dernière colonne -2"

J'essaye :

Code:

---

1 2	Range("B3").End(xlToRight).Select Range("B3").End (xlToRight), Range("B3").End(xlToRight).End(xlToRight).Select

---

Il me donne un message d'erreur :

Citation:

---

Erreur de compilation - Utilisation incorrecte de la propriété.

---

Concernant les autres fonctions (copy et mise en forme, j'ai réussi, merci :))

Citation:

---

Envoyé par Sqeezo

Je ne comprends pas comment écrire "cette valeur moins 2" et "cette valeur plus 1".

---

Le plus simple est de stocker le numéro de colonne dans une variable en ajoutant à End la propriété Column qui renvoie le numéro de colonne.
Ensuite, pour avoir les colonnes d'avant ou d'après, c'est juste des opérations arithmétiques.

Si tu veux pointer directement sur les références de cellules, tu peux utiliser la propriété Offset.
https://msdn.microsoft.com/fr-fr/lib...0(v=office.15)
Mais l'écriture du code sera plus compliquée.

Dernier détail : l'usage des Select est vraisemblablement inutile : on peut ajouter directement une méthode comme Copy ou PasteSpecial directement à une référence de cellule sans avoir besoin de passer par l'intermédiaire de Select/Selection.

Merci beaucoup Menhir pour l'aide, j'ai réussi déjà le plus gros.

Maintenant je bloque sur l'en tête de mon tableau.

Voilà mon code jusqu'à maintenant :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30

Sub Macro1() 'Sélection Synthèse géographique Worksheets("Synthèse géographique").Activate   Dim maPlage As Range Dim DernLigne As Long, DernColonne As Integer Dim PremColonne As Integer Dim AprPremColonne As Integer Dim AvantDernColonne As Integer     'dernière ligne colonne A DernLigne = Range("A" & Rows.Count).End(xlUp).Row 'dernière colonne ligne 2 PremColonne = Range("B2").End(xlToRight).Column + 1 AprPremColonne = Range("B2").End(xlToRight).Column + 3 AvantDernColonne = Range("B2").End(xlToRight).Column - 2 DernColonne = Range("B2").End(xlToRight).Column Set maPlage = Range(Cells(1, AvantDernColonne), Cells(DernLigne, DernColonne)) Set maPlageDestination = Range(Cells(1, PremColonne), Cells(1, AprPremColonne))   'Copier coller des données numériques dans la suite de la feuille   maPlage.Select Selection.Copy maPlageDestination.Activate Selection.PasteSpecial Paste:=xlPasteFormulasAndNumberFormats, Operation:= _ xlNone, SkipBlanks:=False, Transpose:=False   'Copier coller de l'en-tête

---

Malgré B2 dans mes sélections, Excel ne copie que les données numériques de mon tableau, qui comporte 2 lignes d'en-tête sur 3 colonnes.
septembre-18 (3 cellules fusionnées)
N&B Couleur TT ( chaque cellule est séparée)

Si je change mon code en mettant B1, il ne prend pas les dernières colonnes mais la première.
Je bloque sur cette finition :(

Bonjour et bienvenu, Bonjour au Forum,

3 remarques:
- Pas de Select (voir l'indication de Menhir)
- Attacher les objets Range à la feuille. Pour cela, utiliser la méthode With
- Libérer les variables affectées aux objets peut être utile
- Dans le collage spécial, il est inutile de coder les occurrences par défaut (SkipBlanks...)

Pour répondre à ta question, tu peux essayer d'autres occurrences au collage spécial (value, format).
Pour ma part, il m'arrive d'utiliser 2 fois le collage spécial.

Par souci d'efficacité, en dernier lieu, retourne ta feuille en la joignant à la discussion

Bonjour MarcelG,

Je ne sais pas comment purifier le code sans créer de problème.
Pour info j'utilise d'habitude VBA grâce à l'outil d'enregistrement, dont je vide les scroll etc (je n'ai aucune formation ou expérience avec VBA).

J'ai mis le fichier en PJ.

Je n'arrive vraiment pas à recopier les 2 premières lignes du tableau.
Est-ce à cause de la cellule fusionnée que ça ne fonctionne pas ?

j'ai essayé en mettant :

Code:

---

1 2 3 4 5

'dernière colonne ligne 1 PremColonne = Range("A1").End(xlToRight).Column + 1 AprPremColonne = Range("A1").End(xlToRight).Column + 3 AvantDernColonne = Range("A1").End(xlToRight).Column - 2 DernColonne = Range("A1").End(xlToRight).Column

---

Le soucis dans le code au dessus est qu'au lancement de la macro, il ne prend pas les dernières colonnes mais les 3 premières qu'il colle dans les 3 suivantes.

Salut,
Essaie au moins
- d'adapter le processus que le forum t'indique (voir mes remarques)
- de comprendre le code que tu développes

La méthode Cells a pour 1er argument la ligne, pour 2ème la colonne

Or, ici, tu choisis la 1ere ligne et ta zone de collage n'est pas la bonne.

En cours d'exécution, tu peux contrôler la valeur des variables
soit par la fenêtre exécution
soit par la fenêtre des variables locales

S'il te plaît, étudie le code ci-dessous en contrôlant, comme indiqué plus haut, la valeur de tes variables,
et surtout en t'arrêtant à la moindre méthode ou propriété qui t'interroge ou te pose problème.

Fondamental : s'obliger à déclarer toutes les variables
Nota : une fois la dernière colonne définie, ici, il n'est plus nécessaire de repartir de ta cellule A2

Tu comprends ce qui précède
Tu compares ton code et celui qui suit
Tu reviens pour toutes les questions.
D'accord?

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32

Option Explicit   Sub copie_plage()   Dim maPlage As Range Dim maPlageDestination As Range Dim DernLigne As Long, DernColonne As Integer Dim PremColonne As Integer Dim AprPremColonne As Integer Dim AvantDernColonne As Integer   With Worksheets("Synthèse géographique") 'dernière ligne colonne A DernLigne = .Range("A" & .Rows.Count).End(xlUp).Row 'dernière colonne ligne 2 PremColonne = .Cells(2, .Columns.Count).End(xlToLeft).Column + 1 AprPremColonne = PremColonne + 2 AvantDernColonne = PremColonne - 3 DernColonne = PremColonne - 1 Set maPlage = .Range(.Cells(1, AvantDernColonne), .Cells(DernLigne, DernColonne)) Debug.Print maPlage.Address Set maPlageDestination = .Range(.Cells(1, PremColonne), .Cells(DernLigne, AprPremColonne)) Debug.Print maPlageDestination.Address maPlage.Copy maPlageDestination.PasteSpecial Paste:=xlPasteFormulasAndNumberFormats maPlageDestination.PasteSpecial Paste:=xlFormats Application.CutCopyMode = False Set maPlageDestination = Nothing Set maPlage = Nothing End With   End Sub

---

Merci beaucoup MarcelG, ton code fonctionne parfaitement !

J'ai compris que :
- Debug.Print servait à montrer les données dans la fenêtre d'exécution en bas de Visual Basic.
- Il fallait sélectionner une Cellule et non une range pour la première colonne. J'ai vu qu'après tu avais pu tout définir par rapport à cette variable, ce qui est plus simple.
- J'avais mal renseigné la plage de destination, avec 2 fois la première ligne et non la 1 ère et la dernière.

Voilà mes quelques questions :
- le "." devant Range ou Cells est là parce qu'il y a au début "With" ?
- pourquoi faut-il écrire en 2 lignes le morceau suivant

Code:

---

1 2	maPlageDestination.PasteSpecial Paste:=xlPasteFormulasAndNumberFormats maPlageDestination.PasteSpecial Paste:=xlFormats

---

étant donné que c'est la même chose que l'on copie 2 fois ? Pourquoi ça ne copie pas du premier coup ?
- Quelle est la différence dans ce cas entre xlToLeft et xlToRight ? Quand j'avais essayé avant ça démarrait à la première colonne il me semble, pas à la dernière.

Encore une fois, merci beaucoup pour le temps pris pour m'aider.
J'essaye à chaque fois de comprendre, mais c'est parfois compliqué avec les sites d'aides qui ont des situations générales que je n'arrive pas à appliquer à mon cas précis. M'enfin dans ce cas, j'espère avoir compris ce que tu as écris.

Salut Speezo,

Oui, le "." rattache l'élément "de rang 2" à l'élément "de rang 1" précédé de With. D'où l'importance d'une bonne indentation du code.

Les 2 lignes servent aux différents collages spéciaux (généralement Values et Formats pour des cellules contenant des formules)
Ici, la 1ère ligne sert à copier les valeurs et les formats de nombres
Voir l'aide Microsoft
collage special Microsoft

Mieux vaut partir de la dernière ligne ou colonne de la feuille de travail. En effet, si des cellules vides sont présentes dans ton Objet Range, alors les résultats ne seront pas les mêmes.
Essaie, par exemple, sur une ligne du tableur, en laissant une cellule vide entourées de cellules informées et en utilisant "Fin + flèche droite" de ton clavier
Si tu pars de la dernière cellule à droite de ta feuille (colonne XFD pour Excel 2016), et "FIN + flèche gauche" de ton clavier alors ta dernière cellule de ton champ utilisé sera bien retournée.

Si je peux me permettre, ta démarche est la bonne qui ne consiste pas à se contenter de copier/coller des codes proposés.
Il faut continuer en ne laissant RIEN passer

Reviens si ces indications ne sont pas claires et/ou si tu as d'autres questions.
Dans le cas contraire, place cette discussion en mode "Résolue", et à bientôt.