VBA - Mise en forme

Bonjour,

Je voudrais mettre en gras une cellule, après y avoir inscrit un texte, mais ça ne passe pas, le texte reste au format normal.

Savez-vous ce que je fais de faux ?

With Sheets("Saisie")
    .Unprotect
    .Range("B" & Range("B65536").End(xlUp).Row + 3) = "Texte quelconque"
    .Range("B" & Range("B65536").End(xlUp).Row + 3).Font.Bold = True
    .Protect
End With

Cordialement

Bonjour yvouille ,

La réponse sur le code:

With Sheets("Saisie")

.Unprotect

.Range("B" & Range("B65536").End(xlUp).Row + 3) = "Texte quelconque" ' admettons te renvoie la ligne 10

.Range("B" & Range("B65536").End(xlUp).Row + 3).Font.Bold = True 'alors te renvoie la ligne 13 puique tu as inscris "texte quelconque sur la ligne 10

.Protect

End With

Amicalement

Bonjour Yvouille

Tel que tu l'écrit, le gras est appliqué 3 lignes sous le "nouveau" texte.

Soit tu passes la cellule en gras avant de mettre le nouveau texte

.Range("B" & Range("B65536").End(xlUp).Row + 3).Font.Bold = True
.Range("B" & Range("B65536").End(xlUp).Row + 3) = "Texte quelconque"

Soit tu sors le +3 dans le code pour rester sur la même ligne que celle du texte ajouté

.Range("B" & Range("B65536").End(xlUp).Row + 3) = "Texte quelconque"
.Range("B" & Range("B65536").End(xlUp).Row).Font.Bold = True

Amicalement

Nad

Bonjour,

en plus court dans un module :

Sub Bold()
    Range("D4").Font.Bold = True
End Sub

Re

divxl, ton code est valable uniquement quand on connait l'adresse de la cellule ; ce qui n'est pas le cas dans l'exemple d'yvouille.

Amicalement

Nad

Re,

oui désolé, j'ai lu trop vite

Merci beaucoup à vous tous pour vos réponses.

Mainteant que je connais la solution, j'ai un peu honte de ne pas l'avoir trouvée moi-même

Bonne journée.