Microsoft 365 copier les cellules non vide dans un tableau

Mazbla

XLDnaute Nouveau
Bonjour à tous voilà quelques jours que je me casse les dans sur les copie de cellules non vide dans un tableau. je sais que ce sujet a déjà été traité mais je n'arrive a adapter les différents exemples a ma situation. je vous explique ce que je veux faire :
J'ai plusieurs feuil avec des informations diverses et j'arrive a une feuil (traitement_not_s) avec des vides sauf que je dois faire un graphique avec les informations présentes dans ce tableau je souhait donc copier ce tableau mais sans les cellules vides.

Merci d'avance pour votre aide
 

Pièces jointes

  • Classeur1_test.xlsm
    194.6 KB · Affichages: 10

job75

XLDnaute Barbatruc
Voyez le fichier joint et le code de la feuille traitement_not_s :
VB:
Private Sub Worksheet_Activate()
Application.ScreenUpdating = False
If FilterMode Then ShowAllData 'si la feuille est filtrée
[A:C].ClearContents 'RAZ
With Sheets("copie").[A1].CurrentRegion
    .AutoFilter 5, "Not Started"
    .Columns("A").Copy [A1]
    .Columns("E:F").Copy [B1]
    .AutoFilter
End With
End Sub
Le filtrage de la feuille copie élimine bien sûr les lignes vides.
 

Pièces jointes

  • Classeur1_test(1).xlsm
    202.3 KB · Affichages: 8
Dernière édition:

job75

XLDnaute Barbatruc
Bonjour Mazbla, Calvus, le forum,
La copie se fait depuis la feuille traitement_not_s vers feuil2.
Alors voyez ce fichier (2) et le code de Feuil2 :
VB:
Private Sub Worksheet_Activate()
Application.ScreenUpdating = False
If FilterMode Then ShowAllData 'si la feuill estfiltrée
UsedRange.ClearContents 'RAZ
With Sheets("traitement_not_s").UsedRange
    [A1].Resize(.Rows.Count, .Columns.Count) = .Value
End With
On Error Resume Next 'si aucune SpecialCell
[D:D].SpecialCells(xlCellTypeBlanks).EntireRow.Delete
Columns.AutoFit 'ajustement largeurs
With UsedRange: End With 'actualise les barres de défilement
End Sub
Pour obtenir de vraies dates en colonne K j'ai modifié les formules en colonne K de la feuille traitement_not_s.

A+
 

Pièces jointes

  • Classeur1_test(2).xlsm
    198.7 KB · Affichages: 7

Discussions similaires

Membres actuellement en ligne

Statistiques des forums

Discussions
311 725
Messages
2 081 943
Membres
101 849
dernier inscrit
florentMIG