Bonjour à tous,
Je dispose de deux colonnes de données, chacune sur une feuille différente mais sur le même classeur.
Dans la première colonne, ne m'intéressent que les données répondant à un critère (>= 500).
Si ce critère est vérifié, et uniquement dans ce cas (mettons 1250), tester dans la seconde colonne si la valeur existe déjà.
Si elle existe dans la seconde colonne, alors je reprends la donnée suivante de la première colonne sous les mêmes critères (>= 500) car je ne souhaite pas avoir de doublon.
Si elle n'existe pas, alors j'insère la donnée dans cette seconde colonne.
Pour le moment, mon code n'est pas au point. Je pense m'y être mal pris car, même si le premier test de condition s'effectue (>500), le deuxième tourne sans s'arrêter.
Donc je m'en remets à vous pour une piste éventuelle ?
En vous remerciant d'avance
Le voici :
Je vous remercie d'avance pour votre aide.
Damien
Je dispose de deux colonnes de données, chacune sur une feuille différente mais sur le même classeur.
Dans la première colonne, ne m'intéressent que les données répondant à un critère (>= 500).
Si ce critère est vérifié, et uniquement dans ce cas (mettons 1250), tester dans la seconde colonne si la valeur existe déjà.
Si elle existe dans la seconde colonne, alors je reprends la donnée suivante de la première colonne sous les mêmes critères (>= 500) car je ne souhaite pas avoir de doublon.
Si elle n'existe pas, alors j'insère la donnée dans cette seconde colonne.
Pour le moment, mon code n'est pas au point. Je pense m'y être mal pris car, même si le premier test de condition s'effectue (>500), le deuxième tourne sans s'arrêter.
Donc je m'en remets à vous pour une piste éventuelle ?
En vous remerciant d'avance
Le voici :
Code:
Sub synthese_com()
Dim xx, zz As Integer
derligne = Range("I2500").End(xlUp).Row
For xx = 2 To derligne
For zz = 4 To 500
If Sheets("Conso").Range("I" & xx).Value < 500 Then
xx = xx + 1
Else
If Sheets("Conso").Range("I" & xx).Value = Sheets("Resultat").Range("D" & zz) Then
xx = xx + 1
Else
Sheets("Resultat").Range("A4").EntireRow.Insert
Sheets("Resultat").Range("A4").Value = Sheets("Conso").Range("B" & xx).Value
Sheets("Resultat").Range("B4").Value = Sheets("Conso").Range("E" & xx).Value
Sheets("Resultat").Range("D4").Value = Sheets("Conso").Range("I" & xx).Value
Sheets("Resultat").Range("E4").Value = Sheets("Conso").Range("U" & xx).Value
End If
End If
Next zz
Next xx
End Sub
Je vous remercie d'avance pour votre aide.
Damien
Pièces jointes
Dernière édition: