PB si cellule vide alors copier ...

[fr33m4n]

Bonjour

Je suis débutant en macro excel. J'essaie de me débrouillé en consultant les forums mais là je bloque ...

Je rencontre quelques difficultés avec ma macro concernant un test qui est fait sur chaque cellule d'une colonne.

Si la valeur de la cellule est différente de vide alors la macro doit copie/coller la ligne compléte de l'onglet d'origine vers l'onglet destination (selon la valeur il la colle dans l'onglet portant le même nom que la valeur de la cellule). Cela focntionne correctement.
Mon problème vient de si la valeur est vide, la ligne doit être collée dans l'onglet "NonAffecté"
Je ne retrouve aucune ligne sur mes tests et je tourne en rond.
J'ai essayé avec la valeur valeur cellule <> "" ou if not isemptyt ça marche pour la cellule si elle contient une valeur. Par contre impossible de trouver la solution pour une cellule sans valeur ou vide.

voir fichier complet en pj
La macro import ne fonctionne pas.
Pour résumer le focntionnement du fichier :
1/ la macro récupérera un onglet avec une liste d'incident récupéré sur un autre classeur générée par une appli interne.
2 / la macro crée un onglet par technicien (ceux defini dans l'onglet ListeTech).
3/ Un premier tri est fait sur les dossiers "ouverts" ou "fermés". Le dispatch est fait sur un onglet du mêùme nom (ouvert ou fermé).
4/ Sur les dossiers ouverts dans l'onglet ouvert, un tri est fait pour copier/coller chaque ligne dans l'onglet du tech qui l'a pris en charge. S'il n'a pas été pris en charge (cellule vide) , il doit aller dans l'onglet "NOnAffecté".
...
Si vous aviez par la même occasion une optimisation de mon fichier (en cours de dev) ou des propositions , je suis preneur.
Je suis aussi preneur d'une solution qui selon la couleur de fond de la cellule contenant le nom du technicien dans l'onglet ListeTech, cela colorise l'onglet lui correspondant de la méme couleur.

Merci d'avance

Phi!

 

[Robert]

Re : PB si cellule vide alors copier ...

Bonjour Phil et bienvenu, bonjour le forum,

Ton problème venait que tu définissais la dernière ligne (onglet Ouverts) par rapport à la colonne C. Du coup, les cellules vides n'étaient pas prises en compte dans la boucle...

Col = 3 ' Variable testée sur la colonne C
Application.ScreenUpdating = False
With Sheets("Ouverts")
    NbrLig = .Cells(Rows.Count, Col).End(xlUp).Row
    For Lig = 2 To NbrLig

En version 2, on peut cliquer plusieurs fois sur le bouton, les anciennes données seront effacées à chaque nouveau clic...

En pièces jointes ton fichier modifié et optimisé :

 

[fr33m4n]

Re : PB si cellule vide alors copier ...

Merci beaucoup pour ce travail et toutes les explications. C'est exactement ce que je souhaitais.

Phi!