importer commentaires

[jean paul]

Bonsoir à tous

Dans une application j'importe les commentaires des cellules de la base de données sur les cellules de meme valeur d'une feuille de commande par un action de double clic à l'aide de ce code inspiré de mr BOISGONTIER

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Count > 1 Then Exit Sub

If Not Intersect(Target, Range("a3:a100")) Is Nothing Then

Target = ActiveCell

p = Application.Match(Target.Value, Application.Index([matable], , 1), 0)
If Not IsError(p) Then
Application.Index([matable], p, 1).Copy ActiveCell
End If
End If
Range("a1").Select
End Sub

Cela marche sans probleme ,mais j'aurais voulu le faire avec une macro + boucle pour remplir toutes les cellules en meme temps

merci de votre aide

 

[BOISGONTIER]

Re : importer commentaires

Bonsoir,

Sub importJB()
 For Each c In Range("A3:A" & [A65000].End(xlUp).Row)
    p = Application.Match(c.Value, [matable], 0)
    If Not IsError(p) Then Application.Index([matable], p, 1).Copy c
  Next c
End Sub

JB

 

[jean paul]

Re : importer commentaires

M erci beaucoup
c'est impeccable
cordialement jean paul