retrouver une correspondance et placer un commentaire
4 réponses
JP
Bonjour,
Feuil1 de A1 =E0 A8 j'ai des noms de B1 =E0 B8 des dates de naissances.
Feuil2 j'ai de D5 =E0 J5 les m=EAmes noms (ceux de la plage A1 =E0 A8 feuil=
1)
Je voudrais mettre en commentaire les dates de naissance en feuil2.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
MichD
Bonjour,
Copie ceci dans un module :
'------------------------------------------------------- Sub test() Dim X As Variant, C As Range With Worksheets("Feuil1") For Each C In .Range("A1:A8") With Worksheets("Feuil2") X = Application.Match(C, .Range("D5:J5"), 0) If Not IsError(X) Then With .Range("D5:H5")(1, X) .ClearComments .AddComment CStr(C.Offset(, 1).Value) End With Else Err.Clear End If End With Next End With End Sub '-------------------------------------------------------
'-------------------------------------------------------
Sub test()
Dim X As Variant, C As Range
With Worksheets("Feuil1")
For Each C In .Range("A1:A8")
With Worksheets("Feuil2")
X = Application.Match(C, .Range("D5:J5"), 0)
If Not IsError(X) Then
With .Range("D5:H5")(1, X)
.ClearComments
.AddComment CStr(C.Offset(, 1).Value)
End With
Else
Err.Clear
End If
End With
Next
End With
End Sub
'-------------------------------------------------------
'------------------------------------------------------- Sub test() Dim X As Variant, C As Range With Worksheets("Feuil1") For Each C In .Range("A1:A8") With Worksheets("Feuil2") X = Application.Match(C, .Range("D5:J5"), 0) If Not IsError(X) Then With .Range("D5:H5")(1, X) .ClearComments .AddComment CStr(C.Offset(, 1).Value) End With Else Err.Clear End If End With Next End With End Sub '-------------------------------------------------------