Renvoi d'une valeur après une comparaison Fermé

Question

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 : 


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

michel_m · Answer

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 ceci
Option ExplicitSub ccccc()Dim Lig As Integer, Prlign As Byte, Drlign As IntegerDim Calquea As Worksheet, Calqueb As WorksheetApplication.ScreenUpdating = False
 
 Michel

NateBarca · Answer

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

michel_m · Answer

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

Renvoi d'une valeur après une comparaison

3 réponses

Discussions similaires