atlonia
XLDnaute Occasionnel
Bonsoir tout le forum,
J'ai trouvé cette macro que j'ai modifier a mon projet, mais comme je ne suis encore qu'aux debut du VBA, j'avoue que n'y comprend pas grand chose...!
Sub comparer()
Dim i, j
Dim val
Dim row4, row5
[A1].End(xlDown).Select
row4 = ActiveCell.Row
[B1].End(xlDown).Select
row5 = ActiveCell.Row
For i = 2 To row4
Cells(i, 1).Select
val = Right(ActiveCell, 7)
For j = 2 To row5
Cells(j, 2).Select
If Right(ActiveCell, 7) = val Then
Selection.Font.Bold = True
Selection.Font.ColorIndex = 3
End If
Next j
Next i
End Sub
Voila mon problème: j'ai les affectations de "raw" en fonction de ma feuille, mais je ne sais pas ce qu'il modifier pour que cette macro me donne le résultat en "Raw4" et non pas en "row2" comme c'est le cas actuellement.
quelqu'un peut-il m'aider SVP?
j'ai pris cette macro comme base départ, mais en fait, ce que je voudrais faire: c'est remplacer les valeurs de "raw4" qui ne sont que de simples texes par celles de "raw5" qui sont des Hyperliens.
Si une âme charitable voulais bien abréger mes heures de recherche...!
Ci-joint mon classeur.
J'ai trouvé cette macro que j'ai modifier a mon projet, mais comme je ne suis encore qu'aux debut du VBA, j'avoue que n'y comprend pas grand chose...!
Sub comparer()
Dim i, j
Dim val
Dim row4, row5
[A1].End(xlDown).Select
row4 = ActiveCell.Row
[B1].End(xlDown).Select
row5 = ActiveCell.Row
For i = 2 To row4
Cells(i, 1).Select
val = Right(ActiveCell, 7)
For j = 2 To row5
Cells(j, 2).Select
If Right(ActiveCell, 7) = val Then
Selection.Font.Bold = True
Selection.Font.ColorIndex = 3
End If
Next j
Next i
End Sub
Voila mon problème: j'ai les affectations de "raw" en fonction de ma feuille, mais je ne sais pas ce qu'il modifier pour que cette macro me donne le résultat en "Raw4" et non pas en "row2" comme c'est le cas actuellement.
quelqu'un peut-il m'aider SVP?
j'ai pris cette macro comme base départ, mais en fait, ce que je voudrais faire: c'est remplacer les valeurs de "raw4" qui ne sont que de simples texes par celles de "raw5" qui sont des Hyperliens.
Si une âme charitable voulais bien abréger mes heures de recherche...!
Ci-joint mon classeur.