Microsoft 365 copier les cellules non vide dans un tableau

[Mazbla]

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

 

[Calvus]

Bonjour,

La copie se fait depuis quelles feuilles ?

 

[job75]

Bonjour Mazbla, Calvus,

La copie se fait depuis quelles feuilles ?

Si l'on s'en tient aux formules de liaison c'est la feuille copie qui est copiée.

A+

 

[Calvus]

Bonsoir Job,

Ravi de te lire ! 🙂

C'est ce que j'avais imaginé, mais j'attendais une réponse de @Mazbla, puisque dans son message il parle de plusieurs feuilles...

A bientôt

 

[job75]

Voyez le fichier joint et le code de la feuille traitement_not_s :

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.

 

[Mazbla]

bonjour merci pour vos réponses 🙂 !

La copie se fait depuis la feuille traitement_not_s vers feuil2.

 

[job75]

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 :

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+

 

[Calvus]

Bonjour Mazbla, Job75, le forum,

bonjour merci pour vos réponses 🙂 !

La copie se fait depuis la feuille traitement_not_s vers feuil2.

@job75 Tu vois, j'avais raison de demander ! 😉