Bonjour, je suis debutant en Visual Basic et j'ai quelques difficultés ...
J'explique mon problème :
Je veux comparer le texte contenu dans chaque cellule de deux colonnes passées en paramètre d'une subroutine et, dans le cas ou le contenu est identique, marquer "Publié" dans la colonne I a la ligne de la cellule de la première colonne dont le contenu existe dans la deuxieme colonne (j'espere que j'arrive a me faire comprendre ...)
En gros je veux ca :
___A____B________________________I
1 toto__tutu_____________________Publié
2 tata__tata_____________________Publié
3 titi___toto
Voila ce a quoi j'ai pensé :
Public Sub NbTotalRapportsPublies(ByVal target1 As Range, ByVal target2 As Range)
Dim Cellule1 As Range
Dim Cellule2 As Range
Dim i As Integer
For Each Cellule1 In target1
i = 0
For Each Cellule2 In target2
i = i + 1
If StrComp(Cellule1.Value, Cellule2.Value) = 0 Then
Range("Ji").Value = "Publié"
End If
Next
Next
End Sub
Mais ca ne fait rien ...
Merci de votre aide !
J'explique mon problème :
Je veux comparer le texte contenu dans chaque cellule de deux colonnes passées en paramètre d'une subroutine et, dans le cas ou le contenu est identique, marquer "Publié" dans la colonne I a la ligne de la cellule de la première colonne dont le contenu existe dans la deuxieme colonne (j'espere que j'arrive a me faire comprendre ...)
En gros je veux ca :
___A____B________________________I
1 toto__tutu_____________________Publié
2 tata__tata_____________________Publié
3 titi___toto
Voila ce a quoi j'ai pensé :
Public Sub NbTotalRapportsPublies(ByVal target1 As Range, ByVal target2 As Range)
Dim Cellule1 As Range
Dim Cellule2 As Range
Dim i As Integer
For Each Cellule1 In target1
i = 0
For Each Cellule2 In target2
i = i + 1
If StrComp(Cellule1.Value, Cellule2.Value) = 0 Then
Range("Ji").Value = "Publié"
End If
Next
Next
End Sub
Mais ca ne fait rien ...
Merci de votre aide !