Discussion :

[Sqeezo]

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.

[Menhir]

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)

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.

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).

[Sqeezo]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

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

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

[Menhir]

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.

[Sqeezo]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[MarcelG]

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