Contenu récent par Galad

Sub RegroupeLigneS() .... For ligne = 4 To nlig crit = f1.Cells(ligne, 1) d1(crit) = "" ligT = Application.Match(crit, d1.keys, 0) For col = 1 To ncol If f1.Cells(ligne, col) <> "" And (f2.Cells(ligT, col) = "FER" Or f2.Cells(ligT, col) = "CP" Or f2.Cells(ligT, col) =...

merci! Le problème en fait vient plus du fait que certaines personnes peuvent avoir été taggué par exemple comme en RTT sur un site (Site1) mais envoyé en urgence sur le Site2 et taggué donc comme présent (Site2) le même jour. Selon l'ordre d'arrivée des infos, au final, il peut être donc validé...

Sub RegroupeLigneS() .... If f1.Cells(ligne, col) <> "" Then f2.Cells(ligT, col) = f1.Cells(ligne, col).Text Next col If f1.Cells(ligne, ncol) <> "" Then f1.Cells(ligne, ncol).Copy f2.Cells(ligT, ncol) Next ligne End Sub Si ce n'est en insérant des conditions supplémentaires...

Merci de la réponse rapide et fonctionnelle ! 👍 Il ne me reste plus qu'à explorer le code... EDIT: Cependant: il reste le problème de priorité à donner aux SITES par rapport aux cellules vides, Abs, RTT, CP, FER (fermé/ Férié) etc... Et ça, je ne sais vraiment pas faire. Galad

Bonjour, je me suis proposé d'aider un collègue dans la gestion du planning de ses multiples équipes sur différents sites. j'ai réussi à faire quelque chose qui tient la route sans passer par du VBA mais il s'agit d'une usine à gaz. Est-il possible en VBA (n'ayant pas les connaissances...

Bonjour et merci de m'accueillir chez vous. Galad