Microsoft 365 Fusionner cellules sous conditions

spike29

XLDnaute Occasionnel
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"
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 e


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.
 

Pièces jointes

  • TEST1.xlsx
    16.6 KB · Affichages: 10

spike29

XLDnaute Occasionnel
Merci beaucoup Soan,

Moi et la syntaxe…^^ ton code marche parfaitement.

Le format xlsx du fichier que j'ai envoyé était bien volontaire, pour des raisons de sécurité j'évite d'envoyer des fichiers xlsm. Le mien est tout naturellement en xlsm.
 

Discussions similaires

Réponses
22
Affichages
690
Réponses
12
Affichages
537

Statistiques des forums

Discussions
311 725
Messages
2 081 940
Membres
101 845
dernier inscrit
annesof