Bonjour , j'essaie de mettre des commentaires dans une plage de cellules avec une macro VBA. J'ai réussi a remplir toutes les cellules de commentaires, mais cela n'est possible que quand il y a aucune cellule fusionnées. Avez vous une idée sachant que je veux pas dé-fusionnées les cellules déjà fusionnées dans mon programme ? Ci joint mon programme qui permet de mettre des commentaire dans toutes les cellules de ma plage de cellule ( ça marche s'il y a pas de cellule fusionnées dans la plage ) [code][Sub Commentaire() Sheets("Feuil2").Select Dim tableau As Range Dim Ligne As Range Set tableau = Range(Cells(15, 2), Cells(17, 6)) tableau.Select For Each Ligne In tableau.Rows For j = 1 To 6 Ligne.Range(Cells(1, j), Cells(1, j)).Select Ligne.Range(Cells(1, j), Cells(1, j)).AddComment Ligne.Range(Cells(1, j), Cells(1, j)).Comment.Visible = False Ligne.Range(Cells(1, j), Cells(1, j)).Comment.text text:="Votre Commentaire:" & Chr(10) & "Voilà" & Chr(10) & "" Ligne.Range(Cells(1, j), Cells(1, j)).Select Next Next End Sub/code] Merci pour votre aide...

Commentaire dans cellules Fusionnées

Le 07/01/2016 à 17:00

Bonjour , j'essaie de mettre des commentaires dans une plage de cellules avec une macro VBA.

J'ai réussi a remplir toutes les cellules de commentaires, mais cela n'est possible que quand il y a aucune cellule fusionnées.

Avez vous une idée sachant que je veux pas dé-fusionnées les cellules déjà fusionnées dans mon programme ?

Ci joint mon programme qui permet de mettre des commentaire dans toutes les cellules de ma plage de cellule ( ça marche s'il y a pas de cellule fusionnées dans la plage )

[code][Sub Commentaire()

Sheets("Feuil2").Select

Dim tableau As Range

Dim Ligne As Range

Set tableau = Range(Cells(15, 2), Cells(17, 6))

tableau.Select

For Each Ligne In tableau.Rows

For j = 1 To 6

Ligne.Range(Cells(1, j), Cells(1, j)).Select

Ligne.Range(Cells(1, j), Cells(1, j)).AddComment

Ligne.Range(Cells(1, j), Cells(1, j)).Comment.Visible = False

Ligne.Range(Cells(1, j), Cells(1, j)).Comment.text text:="Votre Commentaire:" & Chr(10) & "Voilà" & Chr(10) & ""

Ligne.Range(Cells(1, j), Cells(1, j)).Select

End Sub/code]

Merci pour votre aide

Le 07/01/2016 à 17:13

Bonjour

A tester (mais le mieux c'est de pas avoir des cellules fusionnées)

Sub Commentaire()
Dim Cel As Range
Dim Tableau As Range
  With Sheets("Feuil2")
    Set Tableau = .Range(.Cells(15, 2), .Cells(17, 6))
    On Error Resume Next
    Tableau.ClearComments
    For Each Cel In Tableau
      Cel.AddComment "Votre Commentaire:" & Chr(10) & "Voilà" & Chr(10) & ""
    Next Cel
  End With
  On Error GoTo 0
End Sub

Le 08/01/2016 à 09:09

Bonjour,

Merci beaucoup pour votre réponse. ça marche !

Le 08/01/2016 à 10:27

Salut,

Je reviens par rapport au code. Au lieu de mettre le même commentaire dans toutes les cellules fusionnées , j'aimerais récupérer des lignes " du texte" d'une autre feuille pour les mettre en commentaire, donc chaque cellule avec sa propre commentaire.

Du coup j'ai fais le code ci-joint , la compilation est trop lente, environs 5 mn, Et j'ai pas le résultat attendu. Au niveau des commentaires , il me mets "Coup de vent " Ce qui n'existe pas sur les lignes que j'ai récupérer pour les insérer en commentaire

J'ai ajouté le boucle for

[code][/Sub commentaire()

Dim Cel As Range

Dim Tableau As Range

Dim commentaire As String

For i = 7 To 526

commentaire = Sheets("feuil1").Cells(i, 3)

With Sheets("Feuil2")

Set Tableau = .Range(.Cells(4, 2), .Cells(12, 260))

On Error Resume Next

Tableau.ClearComments

For Each Cel In Tableau

Cel.AddComment "Votre Commentaire:" & Chr(10) & commentaire & Chr(10) & ""

Next Cel

End With

On Error GoTo 0

Next i

End Subcode]

Pour illustrer , ci joint une image

Comment pourrais je optimiser le temps de calcule ? et Comment faire pour bien récupérer les lignes souhaitées et ne pas avoir ce commentaire "Coup de vent "

Merci de votre aide