XL 2013 suppression point - fusion cellule et copie cellule

[jcpat]

Bonjour,
voilà je reviens vers vous concernant une problématique excel.
Je travail sur la mise en forme d'un fichier que j'extrait d'une base et derniérement une mise à jour à rajouter une problématique à mon extraction.
dans le fichier ci joint j'ai des cellules fusionnées auquel la mise à jour à rajouté un point dans une cellule et l'horaire dans l'autre.
Ce que je voudrais c'est la suppression du point et la copie de la cellule horaire à la place.
Dans mon fichier j'ai mis en avant l'original et ce que je désire avoir.
Je sais pas si je suis assez clair mais je suis tout dispo pour vous 🙂

 

[sylvanu]

Bonjour Jcpat,
C'est pas très clair.
Si je trouve un point je recopie la cellule de droite. ok . Mais pourquoi en colonnes JK ce n'est pas le cas, pourquoi y mettre Repos ? sur quelle règle ?
La structure sera t-elle toujours la même ? ( Col B à P ) fusion en col LM ?

 

[jcpat]

:-( oui c'est vrai Sylvanu, j'ai pas été trés clair.
J'ai remis le fichier en mettant des infos plus génériques.
Du coup l'idée est que les chiffres ou texte dans mon exemple (1-2-3-4-5-6) soit copié dans la cellule adjacente.
effectivement pas obligé que cela fasse un doublon du type 1-1 , 2-2 etc..

Oui la structure reste la même avec la fusion de L et M (l'info étant dans la cellule N)
j'ai besoin de l'info en final dans les cellules
B - D - F - H - J - L

Merci encore pour la réponse 😎

 

[sylvanu]

Bonsoir,
En PJ un essai avec cette petite macro :

Sub Transforme()
Application.ScreenUpdating = False                                      ' figer écran
NbLignes = Application.CountIf(Range("B:B"), "*")                       ' comptage nombre de lignes
For i = 1 To NbLignes                                                   ' pour toutes les lignes
    Cells(i, 12).UnMerge                                                ' défusionnage L:M
    Cells(i, 13) = Cells(i, 14): Cells(i, 14) = ""                      ' transfert cellule et effacement N
    Range(Cells(i, 2), Cells(i, 11)).Interior.Color = RGB(180, 230, 250) ' toute ligne en bleu
    For j = 2 To 12 Step 2                                              ' une colonne sur deux
        Cells(i, j) = Cells(i, j + 1): Cells(i, j + 1) = ""             ' transfert cellule et effacement Col+1
        Cells(i, j).Interior.Color = RGB(255, 0, 0)                     ' cellule en rouge
        Cells(i, j).Font.Color = RGB(0, 0, 0)                           ' police en noir
    Next j
Next i
End Sub

Bonne soirée.

 

[sylvanu]

Ou encore plus rapide si le nombre de lignes était élevée.

 

[jcpat]

Bonjour Sylvanu,

merci pour ce fichier, c'est top . Du coup je l'ai intégré dans mon fichier final mais j'ai pas fait attention que dans celui ci j'ai des lignes qui elle ne sont pas au même format , j'ai remis un excel en exemple. j'ai toujours ma ligne avec le point et le chiffre mais j'ai aussi des lignes sans point et fusionné et j'essaie d'obtenir un format final , j'ai mis avant et après.
La difficulté c'est d'arriver à faire cohabiter les 2 dans la même macro, séparément j'y arrive mais dans la même macro c'est galére :-( et la j'avoue c'est chaud..

 

[sylvanu]

Bonjour,
Il eût été plus simple de s'en apercevoir avant car ça change toute la macro.
En fait il faut deux macros suivant la valeur présente en col B, un point ou pas de point.
a noter qu'il devient difficile de compter le nombre de lignes avec ces cellules fusionnées, donc j'utilise la colonne A. Cela signifie que toutes les lignes doivent avoir un intitulé en colonne A.
On peut simplifier le code si on supprime toutes ces mises en forme, fusionnage de cellules et autres couleurs.

 

[jcpat]

hello, désolé pour les modifs de dernière minute et merci pour ta réactivité c'est top.
J'ai testé la macro en l'adaptant à mon fichier, c'est exactement ce que je voulais.

Afin d'anticiper une modif future, si j'ai bien compris la macro fonctionne avec toutes les cellules pleines, est il possible de la faire fonctionner si certaines cellules sont vides ?

j'ai remis le fichier avec un marqueur rouge sur les cellules qui ne bascule pas si celle en amont sont vide ..

Merci encore pour ton super Job 😎

 

[sylvanu]

Bonjour,
Il suffit de changer la ligne de détection :

If Application.CountIf(Rows(L), Chr(63)) > 0 Then

de regarder si dans la ligne il y a un point;