Microsoft 365 Fusionner cellules sous conditions

[spike29]

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"

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.

 

[soan]

Bonjour spike,

je réponds qu'à ta 1ère question :

Range(Cells(e, 1), Cells(e, 10)).Merge

ou mieux :

Cells(e, 1).Resize(, 10).Merge

soan

 

[soan]

@spike29

ton fichier joint .xlsx ne peut pas contenir de macros ;
tu aurais dû joindre un fichier .xlsm ! 🙄​

soan

 

[spike29]

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.