Discussion :

[motivator]

Bonjour à tous!

Je commence le VBA et j'aimerai quelques éclaircies sur un problème que je n'arrive pas à résoudre.

Mon objectif est de synthétiser un fichier excel de chiffrage assez lourd (10 feuilles différentes) en faisant un tableau regroupant seulement les lignes qui ont été rempli et seulement les colonnes qui m'intéressent. Il faudra un collage spécial conservant juste la valeur et le format de la cellule.

J'avais trouver une alternative en faisant une macro avec un copier coller puis en filtrant le tableau mais cette solution ne m'arrange pas pour différentes raisons.

Je suis donc entrain de chercher une autre solution en utilisant un algorithme avec les fonctions "Pour" et "Si".
Seulement après de nombreuses réflexions le résultat n'est toujours pas là..
Pourriez vous m'expliquer pourquoi et me proposer une solution?

Voici les lignes que j'ai écrit:



la feuil1 est la feuille source et la feuil2 celle de destination.
C+1 et C-3 correspond aux colonnes que je souhaite copier.
Je compte ensuite faire ce même programme pour chaque feuille

Jusqu'à maintenant je n'ai pas de message d'erreur lors du lancement de la macro mais rien ne s'affiche dans la feuil2.

Qu'en pensez vous?

Merci d'avance pour vos précieux conseils!

[ARTURO83]

Bonjour,

Votre code modifié

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
Sub Copier_Coller_Trier()
    Dim i As Integer, j As Integer, C As Integer, D As Integer, N As Integer
    Application.ScreenUpdating = False
    Set f1 = Sheets("Feuil1")
    Set f2 = Sheets("Feuil2")
    i = 1 'numéro de ligne sur feuille source
    j = 1 'numéro de ligne sur feuille destination
    C = 5 'numéro de colonne sur feuille source
    D = 3 'numéro de colonne sur feuille destination
    N = 24 'numéro dernière ligne sur feuille source
 
    For i = 1 To N
        If f1.Cells(i, C) > 0 Then
            f2.Cells(j, D) = f1.Cells(i, C + 1)
            f2.Cells(j, D - 1) = f1.Cells(i, C - 3)
        End If
    Next N
 
    Set f1 = Nothing
    Set f2 = Nothing
End Sub

Question: La valeur de N sera-t-elle toujours de 24?, sinon recherchez la dernière ligne de la feuille source avec ceci (par rapport à la colonne A dans cet exemple):

Code :

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

N = f1.Range("A" & Rows.Count).End(xlUp).Row

Cdlt

[motivator]

Un grand merci pour cette réponse rapide et super efficace!!
Vous avez même devancer une bonne prise de tête en donnant le code pour rechercher la dernière ligne.

BRAVO et MERCI!!