J
jean paul
Guest
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
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