Renvoi d'une valeur après une comparaison

NateBarca Messages postés 25 Date d'inscription Statut Membre Dernière intervention -
michel_m Messages postés 16602 Date d'inscription Statut Contributeur Dernière intervention - 10 juin 2016 à 10:59

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

A voir également:

Renvoi d'une valeur après une comparaison
Comparaison million milliard - Accueil - Technologies
Faites afficher avec un fond coloré les cellules qui contiennent une valeur comprise entre 250 et 350. quel nombre est dessiné en surbrillance ? ✓ - Forum Excel
Renvoi d'appel ooredoo ✓ - Forum Free mobile
Renvoi ooredoo - Forum Samsung
Recherchev ne renvoie pas la bonne valeur ✓ - Forum Excel

3 réponses

Réponse 1 / 3

michel_m Messages postés 16602 Date d'inscription Statut Contributeur Dernière intervention 3 314

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 Explicit
Sub ccccc()
Dim Lig As Integer, Prlign As Byte, Drlign As Integer
Dim Calquea As Worksheet, Calqueb As Worksheet

Application.ScreenUpdating = False

Michel

Réponse 2 / 3

NateBarca Messages postés 25 Date d'inscription Statut Membre Dernière intervention

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

NateBarca Messages postés 25 Date d'inscription Statut Membre Dernière intervention

J'en profite pour vous demander,

Si je souhaite en sortie X.Cells(Lig, 92).Value = XXX.Cells(Lig, 3).Value et je souhaite conserver la mise en forme (barré, rouge...) de la cellule à copier. Que dois je modifier ou ajouter?

Réponse 3 / 3

michel_m Messages postés 16602 Date d'inscription Statut Contributeur Dernière intervention 3 314

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

Discussions similaires

Code de renvoi d'appel : Ooredo, Mobilis...

Problème de restrictions

Renvoie code ooredoo

Code Pour Renvoi D'appel Et Mesage

Comment affecter une valeur à une cellule contenant du texte

Votre réponse

Discussions similaires