XL 2010 Plusieurs écritures dans une même cellule ( Résolu )

[Kael_88]

Bonsoir le Forum,

Je me tourne vers vous pour un problème dont je ne trouve pas de solution correct si cela est possible,
je cherche dans une cellule lors de la validation par "entrer" que :
1- le texte soit copié sur deux lignes
2- sur la deuxième ligne, ajouter un "*" et une lettre, devant le texte copié et un "*" à la fin du texte
3- laisser la première ligne dans l’écriture et la taille ou elle se trouve, par contre, la deuxième ligne doit être en écriture "Monotype Corsiva" de taille "24".

Ps: le tout en VBA.

Merci à vous

Cordialement

 

[pierrejean]

Bonjour Kael-88

A tester

 

[Kael_88]

Le forum, @pierrejean ,

Merci, cela fonctionne bien,
Par contre, j'ai un soucis, le format de la deuxième ligne disparaît après un tri qui est fait en Colonne F(ce sont des dates),

1- est il possible de garder le format même après ce tri sur les colonnes A & B ?
2- si on peut pas, peut on appliquer ce format après le tri sur les colonnes A & B seulement ?

Cordialement

 

[job75]

Bonjour Kael_88, Pierre,

Par contre, j'ai un soucis, le format de la deuxième ligne disparaît après un tri qui est fait en Colonne F(ce sont des dates)

Normalement lors d'un tri les formats suivent, il faudrait nous montrer ce tri mal fichu.

A+

 

[pierrejean]

Bonjour à tous
Salut Gerard

En attendant le fichier exemple:
Version limitée aux colonnes A et B

 

[Kael_88]

Le Forum,@pierrejean, @job75,

Merci pour cette remarque, après vérification,
il est vrai qu'il y a une nouvelle mise en forme lors du tri.

ci joint le fichier tel qu'il est conçu, donnée à part bien sur.
le fait de faire le changement après "entrée" me pose le soucis de la recherche de donnée qui vient à l"appui du bouton " MàJ Données ",
donc je peux plus faire le changement au début (désolé et merci @pierrejean ).

Par contre, serait il possible de mettre un bouton "CB" afin de :
1- si on clic dessus, mettre la deuxieme ligne comme prèvu, dans les cellules de la colonne A & B.
2- si on re-clic dessus, cela supprime la deuxieme ligne, afin de pouvoir refaire une recherche.

cordialement

 

[job75]

Je ne comprends pas, pourquoi disiez-vous que le tri pose problème ? Tout va très bien...

Quant aux autres questions ce n'est plus le problème initial.

 

[Kael_88]

@job75

En effet, je le conçois, avant que vous m'en parliez, je n'avais pas remarqué cette autre format venant écraser le premier.

Pour les autres questions, qui reviennent à la première différemment, dois je refaire un post ?

Cordialement

 

[job75]

Re,

Non pas besoin d'ouvrir une nouvelle discussion car c'est assez simple :

Sub MAJ()
Dim c As Range
If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData
If Application.CountIf([A:B], "*" & vbLf & "*") Then
    [A:B].Replace vbLf & "*", "", xlPart
Else
    Application.ScreenUpdating = False
    On Error Resume Next 'si aucune SpecialCell
    For Each c In Intersect(Range("A3:B" & Rows.Count), ActiveSheet.UsedRange).SpecialCells(xlCellTypeConstants)
        c = c & vbLf & "*P" & c & "*"
        With c.Characters(InStr(c, "*P")).Font
            .Name = "Monotype Corsiva"
            .Size = 24
        End With
    Next
End If
Rows("2:" & Rows.Count).AutoFit
End Sub

Bonne nuit.

 

[Kael_88]

@job75,

Merci, cela fonctionne très bien, sauf :
qu'il écrase toutes les dates de la colonne F.

y a t il moyen que le format ne s'applique que sur les lignes visible après le tri (couleur) en colonne F et pas dans tout le tableau (lignes cachées)?

Cordialement

 

[job75]

Bonjour Kael_88, Pierre, le forum,

Fichier (2), il suffit de mémoriser les lignes visibles :

Sub MAJ()
Dim vis As Range, c As Range
Application.ScreenUpdating = False
On Error Resume Next 'si aucune SpecialCell
Set vis = [F:F].SpecialCells(xlCellTypeVisible).EntireRow 'mémorise les lignes visibles
If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData 'si la feuille est filtrée
If Application.CountIf([A:B], "*" & vbLf & "*") Then
    [A:B].Replace vbLf & "*", "", xlPart
Else
    For Each c In Intersect(Range("A3:B" & Rows.Count), ActiveSheet.UsedRange).SpecialCells(xlCellTypeConstants)
        c = c & vbLf & "*P" & c & "*"
        With c.Characters(InStr(c, "*P")).Font
            .Name = "Monotype Corsiva"
            .Size = 24
        End With
    Next
End If
Rows("2:" & Rows.Count).AutoFit
Rows("2:" & Rows.Count).Hidden = True 'masque tout
vis.Hidden = False 'affiche les lignes mémorisées
End Sub

Bonne journée.

 

[Kael_88]

@job75,

Merci, mais cela ne change rien, toutes les dates, même cachées par le tri,se retrouvent modifié et misent en couleurs,
cela vient de l'action dans "Worksheet_change" de la "feuil1(Range)".

Peut on contourner ce problème ?

Cordialement

 

[job75]

C'est à vous de créer une Worksheet_Change qui tienne la route, moi je l'ai virée.

 

[Kael_88]

@job75,

Merci, existe il une fonction ou code qui puisse désactiver "Worksheet_Change" le temps de l’exécution du dernier code ?

cordialement

 

[Kael_88]

@job75,

merci, en cherchent un peu plus j'ai trouvé ceci :

Application.EnableEvents = False
' Code de format
Application.EnableEvents = True

ce qui resout le probleme

merci pour le reste

cordialement