Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

PB si cellule vide alors copier ...

  • Initiateur de la discussion Initiateur de la discussion fr33m4n
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

fr33m4n

XLDnaute Nouveau
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!
 

Pièces jointes

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...
Code:
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é :

 

Pièces jointes

Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
4
Affichages
149
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…