defusion cellule dans excel Résolu/Fermé

Question

Bonjour
Tous les mois je reçois une extraction de mon SI sur les absences cumulées :
j'ai ainsi des salariés qui peuvent avoir été absents plusieurs fois dans l'année.
je vous explique mon fichier :
colonne 1 : nom/prenom
colonne 2 : date début
colonne 3 : date fin
Un salarié a 5 absences dans l'année, je vais avoir dans chaque colonne le début et la fin de l'absence qui seront ligne 1 1ere abs/ligne 2 2eme abs/ ligne 3 3eme abs ….
colonne 1/ligne 1 nom/prenom mais le nom est fusionné autant qu'il y a de lignes.
Est-ce possible de défusionner sans avoir à c/c le nom/prénom sur toutes les lignes ?
Merci pour votre aide
je peux vous envoyer une tram de fichier excel
Bonne journée
GG

ccm81 · Answer

Bonjour

Envoies ton fichier sur https://cjoint.com et joins le lien obtenu à ton prochain message

Cdlmnt

ghis45 · Answer

Merci pour l'astuce du fchier. 
Voici le lien : https://cjoint.com/c/JFjnyRRnyub
Cordialement
GG

ccm81 · Answer

Avec une petite macro
https://cjoint.com/c/JFjn1efKtjB

Cdlmnt

ccm81 · Answer

De rien

Si c'est fini, peux tu mettre le sujet à résolu (en haut dans ton premier message)

Bonne fin de journée

ccm81 · Answer

Pour l'intégrer à une copie de ton fichier
1. Places toi dans la feuille à traiter
2. Alt-F11 pour accéder à l'éditeur vba
3. Coller tout le code
Option Explicit

Const co1 = 1    ' premiere colonne à traiter
Const co2 = 3    ' dernière colonne à traiter
Const lideb = 2  ' premiere ligne à traiter

Public Sub ok()
Dim li As Long, lifin As Long, co As Long
Dim adr As String, plage As Range, x
Application.ScreenUpdating = False
lifin = Cells(Rows.Count, co1).End(xlUp).Row
For co = co1 To co2
  For li = lideb To lifin
    Set plage = Cells(li, co)
    x = plage.Value
    plage.Select
    adr = Selection.Address
    Selection.MergeCells = False
    Range(adr).Value = x
  Next li
Next co
End Sub
4. Modifier les valeurs des constantes en début de code selon ta configuration
5. Retour à la feuille
6. Enregistrer sous et pour le type prendre .xlsm (prise en compte des macros)
7. Tu peux exécuter
Cdlmnt

ccm81 · Answer

Si c'est fini, peux tu mettre le sujet à résolu (en haut dans ton premier message)

Bonne fin de journée

Defusion cellule dans excel

6 réponses

Discussions similaires