Copie d'une cellule dans un commentaire ....

[GRUMLY]

Bonsoir,

J'aimerais savoir comment intégré via un macro le contenu d'une
celulle d'une feuille dans le commentaire d'une celulle ayant la meme
référence en commentaire.

Mon but final est le suivant :

J'ai un fichier avec environ 2500 lignes et j'ai environ 100 lignes
en promotion avec plusieurs conditions différente.

A ce jour je colorie les lignes en promotion afin de me souvenir
que celle ci sont en promotion puis je regarde quelles sont les conditions que j'ai le droit. puis je passe ma commande en fonction
de la meilleure offre qui m'est offerte.

Bien entendu je fait ce petit jeu deux a trois fois par mois.

Moralité je voudrais créer un fichier modele dans lequel j'aurait dans une feuille (la feuille 2) mes seules référence en promo.

et en feuille 1 j'importe mon stock et je lancerait une macro qui me mettrait comme précité le contenu d'un concatenage de plusieur celullule de la feuille2 dans le commentaire des refs en promo en feuille 1.

Et si possible j'aimerais mettre les lignes avec un commentaire en
couleur.

Merci d'avance de l'aide que vous pourre m'apporté.

Je vous joint un petit fichier exemple.(pas top top mais c'est deja bien)

Cordialement,

Grumly [file name=exemple_20051128184720.zip size=2491]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/exemple_20051128184720.zip[/file]

 

[Hervé]

Bonsoir grumly

En pièce jointe ton fichier avec une macro, pour 2500 lignes ca risques d'etre un peu long, si ca l'est, dis le moi, on fera autrement.

tu n'a plus besoin de ta formule de concaténation, la macro s'en charge.

salut [file name=exemple_20051128205450.zip size=9463]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/exemple_20051128205450.zip[/file]

 

[grumly]

Je te remercie de ta rapidité de réponse.

Je n'ai pas encore essayer sur les 2500 lignes mais lorsque je
clique sur le bouton cela me prend bien les valeur de la ligne
de promo mais pas les entité des colonnes c'est a dire Clt1,
clt2.

De plus pense tu que cela soit possible de mettre en
couleur la celulule ayant un commentaire intégré???

Merci d'avance

 

[Hervé]

salut grumly


Teste cette macro sur les 2500 lignes, pour voir la rapidité d'execution et tiens moi au courant, ca m'evitera de devoir refaire 2 fois le code (1 pour les couleurs, et 1 autre pour la vitesse).

salut

 

[GRUMLY]

Hervé,

Pour la rapidité no problemo j'ai fait un test avec
une feuille 'CDE' de 13419 Lignes et une feuille
'promo' de 166 lignes.

Il a fallut que 35 secondes à excel pour tous lire.

Moralité pas de code à refaire c'est glop...

Il me manque plus que mes intitulé de colonne de
la feuille promo avec la valeur des cellules et la mise
en couleur.

Merci beaucoup...

 

[Hervé]

Bonsoir grumly

désolé pour cette réponse tardive.

essaye ce code, et tiens moi au courant.

Sub Bouton4_QuandClic()
Dim c As Range
Dim cell As Range
Dim promo As Range
Dim i As Byte
Dim texte As String
Dim premier As Byte


With Sheets('promo')
        Set promo = .Range('a5:a' & .Range('a65536').End(xlUp).Row)
End With

With Sheets('cde')
        'boucle sur chaque cellule de la colonne 1 de la feuille cde
        For Each c In .Range('a7:a' & .Range('a65536').End(xlUp).Row)
                'efface le commentaire
                If Not c.Comment Is Nothing Then c.Comment.Delete
                'boucle sur chaque cellule de la colonne 1 de la feuille promo
                For Each cel In promo
                        If c = cel Then
                                c.Interior.ColorIndex = 6 'couleur de la cellule 6 = jaune
                                'boucle sur chaque cellule de la ligne
                                For i = 1 To Sheets('promo').Cells(cel.Row, 256).End(xlToLeft).Column
                                        'cree le texte du commentaire
                                        If premier = 0 Then
                                                'attention : le 4 est à adapter suivant le numéro de ligne de tes entetes
                                                texte = Sheets('promo').Cells(4, i + 1) & ' : ' & cel.Offset(0, i)
                                                premier = 1
                                        Else
                                                texte = texte & Chr(10) & Sheets('promo').Cells(4, i + 1) & ' : ' & cel.Offset(0, i)
                                        End If
                                Next i
                                'renvoi le texte en commentaire
                                c.AddComment.Text texte
                                texte = ''
                                premier = 0
                        End If
                Next cel
        Next c
End With
                                       
       

End Sub

salut

 

[GRUMLY]

Hervé c'est parfait ...


Duree pour les 13419 Lignes et les 166 article en promo.

Le delai passe de 35 Secondes à 40 Secondes.

Merci beaucoup de ton aide.

Grand Bravo.

Cordialement,

Grumly