Mise en forme et copie en commentaire

Bonjour,

J'ai, dans des cellules des chiffres, et dans d'autres des remarques.

J'ai une macro qui copie, pour chaque ligne, le chiffre et la remarque, et les colle dans un commentaire (note dans une cellule).

Mon souci : Le chiffre copié n'est pas mis en forme. J'ai réussi à mettre l'arrondi mais pas en format séparation de milliers.

Exemple :

Case B1 : 35 000,945

Case B1 : Remarque "Tout est ok"

Résultat de ma macro :

Tout est OK

35001

Résultat souhaité :

Tout est OK

35 001

Merci par avance.

Bonjour,

Essayez ceci:

    Valeur = Round(Range("B1").Value, 0)
    Select Case Len(Valeur)
        Case 4 To 6
            Valeur = Left(Valeur, Len(Valeur) - 3) & " " & Right(Valeur, 3)
    End Select
    ActiveCell.Comment.Text Text:="Tout est OK" & Chr(10) & Chr(10) & Valeur

Cdlt

Merci pour le retour, mais je viens de me rendre compte d'une erreur dans l'énoncé de l'exemple. En effet, le texte et le chiffre ne sont pas dans la meme Case comme je l'ai mis.

Case B1 : 35 000,945

Case C1 : Tout est OK.

Résultat recherché:

Mettre dans la case A1 un commentaire avec

• Tout est ok
• 35 001

Désolé

Ca ne change rien, le principe est toujours le même sauf que la cellule de destination est A1 et non plus la cellule active.

    Range("A1").AddComment
    Valeur = Round(Range("B1").Value, 0)
    Select Case Len(Valeur)
        Case 4 To 6
            Valeur = Left(Valeur, Len(Valeur) - 3) & " " & Right(Valeur, 3)
    End Select
    Range("A1").Comment.Text Text:=Range("C1") & Chr(10) & Chr(10) & Valeur

malheureusement, ça n'a pas fonctionné même si elle me semble totalement pertinente.

Ci-joint un fichier relatif à l'exemple. C'est dans la case A2 que je souhaite obtenir, avec une macro, le commentaire que j'ai mis manuellement.

Vous m'envoyez un fichier "Xlsx". donc sans macro, normal que ça ne marche pas.

Où est le vrai fichier contenant la macro?

En attendant voici le fichier en exemple

Merci beaucoup. Votre exemple marche, en revanche je n'arrive pas à l'intégrer dans mon programme. En effet, ce n'est qu'une partie d'une longue macro que je fais. En l'intégrant, ça ne marche pas encore. Je continue à chercher l'erreur.

Par ailleurs, petit bémol : Votre macro ne sait pas traiter des écarts de l'ordre du million ou plus.

Exemple : Un écart de 1 100 555 sera affiché dans le commentaire 1100 555

Le problème, c'est que je ne sais pas ce que vous devez faire, je n'ai pas, non plus un fichier comme support sur lequel travailler, et enfin vous ne décrivez pas le problème dans son intégralité.

Alors ne vous étonnez pas si les réponses ne collent pas à ce qu vous attendez. On peut considérer qu'un problème bien posé est déjà résolu à 50%.

-Déposez un fichier sans données confidentielles

-Dites bien quelle est la colonne de valeurs à prendre en considération.

En effet, je n'ai pas été très claire. Voici le fichier avec la partie qui m'intéresse.

Le fichier contient la macro (la pa

rtie en question)

Vous aviez mal recopié cette ligne,

Ecart = Left(Cells(i, Col + 2), Len(Ecart) - 3) & " " & Right(Ecart, 3)

au lieu de

Ecart = Left(Ecart, Len(Ecart) - 3) & " " & Right(Ecart, 3)

Voilà le fichier corrigé, je n'ai traité que les nombres avec un maximum de 9 chiffres.

Cdlt

Merci beaucoup.

Top. La macro fonctionne parfaitement.