Remplir commentaires avec opérations de recherche

Bonjour a tous,

J'ai de nouveau besoin de votre aide.

je souhaite a l'aide d'un code vba (lancement d'une macro par bouton) créer des commentaires de manière automatique dans toutes les cellules d'un tableau (en jaune dans le fichier) Les champs de recherche pour remplir les commentaires sont différents en fonction de la colonne dans le tableau.

Comme un exemple vaux mieux que deux pages d'explication, je vous laisse découvrir et répondre aux questions de ceux que ca intéresse de m'aider

Les tableaux sont tous de hauteur différentes, je ne souhaite pas utiliser de zones mais uniquement du code vba pour améliorer un code déjà existant.

Bonjour,

tu parcour toutes les cellules de ton tableau...

et tu adapte ....

    With Range("C3")
        .AddComment "A la claire fontaine je me suis promené...."
        With .Comment
            .Shape.Select True
            .Shape.Height = 150 'hauteur
            .Shape.Width = 200 ' largeur
            .ShapeRange.LockAspectRatio = msoFalse
        'y mettre une image
        '    .ShapeRange.Fill.UserPicture Image
        'le fermer
        '    .Visible = False
        'l'ouvrir
            .Visible = True
        End With
    End With

Aux circonstances.

A+

Heu, je crois pas que ca puisse m'etre bien utile ce genre de com...

J'ai commencer a débroussailler le terrain avec ce code :

Sub remplissage_code_auto_com()

Application.ScreenUpdating = False

Application.DisplayAlerts = False

fichier = "I:\Efficacité \Database 2 - LAM.xlsm"

fichier_code = "D:\Users\user1\Documents\Codes_OEE_LAM_DEF.xlsx"

'Remplissage 1

i = 1

j = 2

Dim Cible As Variant

Dim dat As Variant

Dim shift As Variant

Dim Source As Variant

Dim codev As String

Dim test As Variant

For i = 246 To 248

Cible = "P" & i

dat = "A" & i

shift = "F" & i

Range(Cible).ClearComments

Range(Cible).AddComment

Range(Cible).Comment.Visible = False

Range(Cible).Comment.Shape.TextFrame.AutoSize = True

Workbooks.Open fichier_code

DerLig = Range("A1000000").End(xlUp).Row

For j = 2 To DerLig

Source = "A" & j

code = Range(Source).Value

codev = "code" & code

Workbooks.Open fichier

Database = Range("A:F")

colonne_dat = Range("B:B")

colonne_shift = Range("C:C")

colonne_code = Range("E:E")

ThisWorkbook.Activate

test = Worksheet.FormulaArray("=IFERROR(INDEX(database,MATCH(dat&shift&code,colonne_date&colonne_shift&colonne_code,0),6),"""")")

MsgBox test

Next j

ThisWorkbook.Activate

Range(Cible).Comment.Text Text:="2467 : " + codev + " min" & vbCrLf & "2424 : " + codev + " min" & vbCrLf

Next i

End Sub

Mais la formule matricielle de recherche multicritere ne semble pas fonctionner, je ne sais pas si je peux l'utiliser dans un code VBA....

Sujet clos.