Renvoi d'une valeur après une comparaison
NateBarca
Messages postés
36
Statut
Membre
-
michel_m Messages postés 18903 Date d'inscription Statut Contributeur Dernière intervention -
michel_m Messages postés 18903 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
Je souhaite comparer deux calques (calquea et calqueb) et lorsque la condition est vérifiée cela implique le renvoi de la cellule vers une autre cellule.
Aucun résultat n'est observé pourtant certaines conditions sont vérifiées, pour quelle raison ?
Merci par avance pour votre aide.
*
Le code écrit est le suivant :
Je souhaite comparer deux calques (calquea et calqueb) et lorsque la condition est vérifiée cela implique le renvoi de la cellule vers une autre cellule.
Aucun résultat n'est observé pourtant certaines conditions sont vérifiées, pour quelle raison ?
Merci par avance pour votre aide.
*
Le code écrit est le suivant :
Dim Lig As Integer
Set Calquea = Worksheets("XX")
Set Calqueb = Worksheets("YY")
prlign = 4
drlign = 2380
For Lig = prlign To drlign
If Calqueb.Cells(Lig, 3).Value = Calquea.Cells(Lig, 13).Value Then
Calquea.Cells(Lig, 92).Value = Calqueb.Cells(Lig, 3).Value
End If
Next Lig
End Sub
3 réponses
-
Bonjour,
je viens d'essayer: ta macro marche...
peut-être nous as tu mal exprimé ce que tu souhaitais (peut les "trous" dans la colonne 92 si valeurs différentes?)
au passage: ne pas omettre ceciOption Explicit
Sub ccccc()
Dim Lig As Integer, Prlign As Byte, Drlign As Integer
Dim Calquea As Worksheet, Calqueb As Worksheet
Application.ScreenUpdating = False
Michel -
Bonjour,
Merci pour votre réponse.
J'ai trouvé l'erreur, elle fonctionne si l'on défini 2 boucles "for" une par calque.
For Lig = prlign To drlign
For LigSout = prlignSout To drlignSout
If X.Cells(Lig, 13).Value = XXX.Cells(LigSout, 2).Value Then
...
End If
Next LigSout
Next Lig
'
End Sub -
Le +simple à mon avis serait de mettre, hors macro, une Mise en forme conditionnelle
sur la plage en colonne 92 reproduisant les conditions de mise en coleuur
