Bonjour,
Débutant en VBA, j'utilise un fichier de suivi d'actions suivi par date et période (JOUR NUIT) pour lequel je souhaite faire quelques statistiques.
1er besoin :
Je souhaite pour chaque lignes ou la cellule située en colonne A contient "Nuit" ou "Journée" fusionner les cellules de la colonne A à J inclus.
Un bout de code ci-dessous non fonctionnel. Problème de syntaxe avec le "To"
2ème besoin :
Dans la colonne J, en fonction de ce qui est contenu dans la dernière cellule fusionnée rencontrée, saisir la valeur "NUIT" si dernière cellule fusionnée contient NUIT ou "JOUR" si dernière cellule fusionnée rencontrée contient Journée.
3ème besoin :
Suivant la même logique que le besoin 2, saisir le numéro de semaine en colonne I correspondant à la valeur contenue dans la dernière cellule fusionnée rencontrée.
Merci d'avance pour votre aide.
En PJ je joint le fichier illustrant ces 3 besoins.
Débutant en VBA, j'utilise un fichier de suivi d'actions suivi par date et période (JOUR NUIT) pour lequel je souhaite faire quelques statistiques.
1er besoin :
Je souhaite pour chaque lignes ou la cellule située en colonne A contient "Nuit" ou "Journée" fusionner les cellules de la colonne A à J inclus.
Un bout de code ci-dessous non fonctionnel. Problème de syntaxe avec le "To"
VB:
For e = 8 To 65000
If Not IsEmpty(Range("A" & e)) And Range("A" & e) Like "Journée*" Then
Range(Cells(e, 1) To Cells(e, 10).Merge
End If
Next e2ème besoin :
Dans la colonne J, en fonction de ce qui est contenu dans la dernière cellule fusionnée rencontrée, saisir la valeur "NUIT" si dernière cellule fusionnée contient NUIT ou "JOUR" si dernière cellule fusionnée rencontrée contient Journée.
3ème besoin :
Suivant la même logique que le besoin 2, saisir le numéro de semaine en colonne I correspondant à la valeur contenue dans la dernière cellule fusionnée rencontrée.
Merci d'avance pour votre aide.
En PJ je joint le fichier illustrant ces 3 besoins.