Discussion :

[makila64]

Bonjour à toutes et à tous,
Je suis à nouveaux confronter à un problème. En faite j'ai un tableau dans une feuille "chiffre d'affaires" (A2100) que j'alimente chaque mois et je veux créer une macro qui va me copier et m'insérer les lignes de ce tableau dans une feuille "Recap" qui va comprendre toutes les données de tous les mois. Seuleument il y a les dernieres lignes qui ne sont pas remplies pour certains mois.
Le code que j'ai crée m'insere c'est lignes vides dans ma feuille "Recap" et je dois manuellement effacer ces lignes vides...

[Daniel.C]

Bonjour,

Tu veux dire que, suivant le nombre de jours du mois, il y a des lignes vides genre jour 31 pour février ?

[makila64]

non en faite, dans les lignes il y a vélo, motos, voitures... et la lignes voitures n'est pas remplis pour le mois de décembre par exemple. Et dans la macro que j'ai faite, je prend toutes lignes donc de A2 à P100. Dans les colones j'ai prix HT, TVA ... Je ne sais pas si c'est clair ?

[Daniel.C]

Ca serait bien de publier ta macro et ce serait encore mieux de mettre un classeur exemple en pièce jointe.

[makila64]

ok alors voici la macro :

Code :

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

1
2
3
4
5
6
7
8
Sub insert()
Dim Ftransfo As Worksheet, Fexport As Worksheet
Set Ftransfo = Sheets("transfo_valeurs")
Set Fexport = Sheets("turnover_export")
With Ftransfo
    .Range("A2: P" & .Cells(Rows.Count).End(xlUp).Row).Copy Fexport.Cells(Rows.Count, 1).End(xlUp)(2)
End With
End Sub

[mapeh]

Bonjour, ou plutôt Re-,

Très ressemblant

tu aurais pu rester sur le même fil...

Dans ton problème, remplace :

Code :

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

1
2
.Range("A2: P" & .Cells(Rows.Count).End(xlUp).Row).Copy Fexport.Cells(Rows.Count, 1).End(xlUp)(2)
End With

Par :

Code :

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

1
2
.Range("A2: P" & .Cells(Rows.Count, 2).End(xlUp).Row).Copy Fexport.Cells(Rows.Count, 1).End(xlUp)(2)
End With

Bonne journée