Comparaison de texte

[Kekete]

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 !

 

[ChTi160]

Re : Comparaison de texte

Salut Kekete
Bonjour le Fil
Bonjour Le Forum

En pièce jointe une possibilité
je ne sais pas si tu veux une Fonction ou si une macro te convient

Le Fichier : Regarde la pièce jointe PublieV1.xls

Tiens nous au courant
Arfff je viens de voir que la recherche s'effectue sur toute la colonne je modifie
Bonne fin de Journée

 

[ChTi160]

Re : Comparaison de texte

Re

Une version 2 Lol

Le Fichier : Regarde la pièce jointe PublieV2.xls


Bonne fin de Journée

 

[Kekete]

Re : Comparaison de texte

Je suis vraiment debutant dsl mais j'ai le problème suivant :

Lorsque j'essaie d'activer le bouton, il me dit que le niveau de securité est trop élevé, que je dois signer numeriquement la maccro ... je ne sais pas comment le faire !!

J'ai quand meme regardé le code, et je pense qu'il ne convient pas tout a fait ..

En effet, Je veux qu'il soit indiqué publié lorsque le contenu d'une cellule de la premiere colonne et present dans n'importe quelle cellule de la deuxieme collone

Il faut donc faire le test de compraison entre chaque cellule de chaque colonne à chaque fois ...

Merci de ton aide !

 

[Kekete]

Re : Comparaison de texte

OK, je pense que le code est bon avec la deuxieme version, mais je n'arrive toujours pas à passer le probleme de securité !

 

[ChTi160]

Re : Comparaison de texte

Re
effectivement j'ai modifié dans la version 2

pour ce qui est de l'alerte il te faut modifier,je sais ce qui ne va pas mais je ne sais pas l'expliquer Lol
il te faut modifier pour que les macros soient acceptées ,mettre le niveau de sécurité à moyen je crois

arff pas evident Lol ,je vais rechercher pour être plus clair

chez moi avec Office 2007 je vais dans sécurité des macros ,mais je ne sais pas toi ce que tu dois faire

si non tu copies le code et tu le colles dans un module d'un fichier test à toi tu y crées un biouton et tu y attcahe la macro, pour voir ???????

bonne fin de Journée

 

[Kekete]

Re : Comparaison de texte

C'est bon, j'ai trouvé !

J'ai en effet baissé le niveau de securité a "moyen" et quand je relance excel, il me demande si je veux executer les maccros !!


Merci beaucoup pour ton aide, et bonne soirée !!

PS : Moi aussi je suis Ch'ti

Allez, va te quer une biere a ma santé biloute !

 

[ChTi160]

Re : Comparaison de texte

Ok

aller Lens Lol ou le Losc

Bonne fin de journée

n'hésite pas si besoin Biloute