Discussion :

[Bleue]

Bonjour les gens,

En modifiant une programmation de macro existante j'ai partiellement réussi à faire ce que je souhaite.
C'est à dire copier les lignes vides d'un onglet « Relevé » sur un autre onglet « Synthèse » :

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
Sub Copier_lignes_non_vides() 
Dim wsReleve As Worksheet, rgReleve As Range 
Dim wsSynthese As Worksheet, rgSynthese As Range 
Dim c As Range, i As Long 
Application.ScreenUpdating = False 
Set wsReleve = ThisWorkbook.Sheets("Releve") 
Set rgReleve = wsReleve.Range("D7:H280") 
Set wsSynthese = ThisWorkbook.Sheets("Synthese") 
Set rgSynthese = wsSynthese.Range("A2") 
 
For i = rgReleve.Row To rgReleve.Row + rgReleve.Rows.Count - 1 
Set c = wsReleve.Range("D" & i & ":H" & i) 
If Application.WorksheetFunction.Count(c) > 0 Then 
c.Copy 
rgSynthese.PasteSpecial xlPasteValues 
Set rgSynthese = rgSynthese.Offset(1) 
End If 
Next i 
 
wsSynthese.Range("D" & rgSynthese.Row & ":H" & Rows.Count).ClearContents 
Application.ScreenUpdating = True 
 
End Sub

J'ai donc les données nécessaires sur l'onglet « Synthèse » mais par contre elles ne sont pas disposées dans l'ordre que je veux.
C'est-à-dire que j'ai des données dans 5 colonnes qui s'affichent dans le même ordre que dans l'onglet « Relevé » or je voudrais que les informations disponibles sur la ligne se répartissent dans un autre ordre: que les données disponibles en colonne D de l'onglet « Relevé » se retrouvent en colonne E dans l'onglet « Synthèse » par exemple ; la F en A ; la E en B ; la G en D et la H en C. Sachant que les intitulés de colonne sont les mêmes.

Je vous remercie d'avance pour votre aide,

a+

Bleue

[Patrice740]

Bonjour,

Vous écrivez :

C'est à dire copier les lignes vides d'un onglet « Relevé » sur un autre onglet « Synthèse » :

Mais la macro qui suit n'a aucun rapport avec les lignes vides,
Pouvez-vous être plus explicite ???

Patrice

[Bleue]

Bonjour Patrice,

C'est à dire que j'ai un onglet "Releve" sur lequel se trouvent des colonnes de A à T dont certaines lignes sont remplies et d'autre non. Je souhaite que les cellules de C à H soient reprises quand elles sont non vides dans un onglet "Synthese" et qu'elles s'affichent les unes après les autres dans ce 2ème onglet (avec suppression des lignes vides).
Vous pouvez laisser tomber le second point de ma question avec l'apparition des colonnes dans un ordre différent car j'ai refait le tableau dans l'onglet "Releve" afin que les colonnes apparaissent dans le même ordre que celui attendu dans l'onglet "Synthese".

Merci d'avance

Bleue

[Invité]

Salut,

Pour Patrice740 la ligne concernée est la suivante:

Code :

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

If Application.WorksheetFunction.Count(c) > 0 Then

Pour ton problème n'est-il pas plus judicieux de mettre les données dans un tableau avec l'ordre de l'onglet 'Synthèse' et ensuite de coller ce tableau dans l'onglet 'Synthèse' ?

[Bleue]

Merci VCottineau,

et en fait cela règle quoi cette partie du code ?

Code :

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

If Application.WorksheetFunction.Count(c) > 0 Then

Quelles peuvent être les conséquences sur la récupération des données dans l'onglet "Synthese" ?

Sinon, nos messages se sont croisés et j'ai finalement modifié le 1er onglet pour l'ordre des colonnes. Merci.

Bleue

[Patrice740]

Bonjour, Bleue

et en fait cela règle quoi cette partie du code ?
If Application.WorksheetFunction.Count(c) > 0 Then

Cette ligne de code permet d'éliminer, non pas les lignes vides, mais les lignes qui ne contiennent pas de nombre !

Pour éliminer les lignes vides il faut utiliser CountA au lieu de Count :

Code :

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

If Application.WorksheetFunction.CountA(c) > 0 Then

Cordialement
Patrice

[Bleue]

Merci Patrice pour cette précision