XL 2013 [RESOLU] Détection valeur + copie colle

[BENAM69]

Bonjour,

Je m'en remets à vous car je ne suis pas capable de faire ce début de macro.

J'ai 2 colonnes, A et B avec des valeurs identiques sur la même colonne :

A B C
1 10 dsd
1 12 dasd
1 9 axc
1 4 dycx
1 4 q<c
1 4 q<x
2 2 d<x
2 1 a<c
3 6 f< <
3 7 dx
3 7 d<

J'aimerai qu'il me copie colle les données de la colonnes C ligne par ligne selon les critères.

Il copie colle les valeurs de la colonne C sur un autre onglet à la suite si en colonne A c'est toujours la même valeur et que B soit différente
Si colonne A la valeur est la même et Colonne B la valeur est identique, il saute une ligne et colle a la suite les données de la colonne C (ceux avec les données colonnes A et B identiques)
Si valeur en colonne A est différente (on passe de 1 à 2 par exemple), il saute 2 lignes et ainsi de suite

Si c'est possible d'avoir une boucle.

Merci de votre retour

Benam69

 

[fanfan38]

Bonjour,
Si j'ai tout compris
Dim i As Integer, derlig As Long, lig As Integer
lig = 2
derlig = Range("A" & Rows.Count).End(xlUp).Row
For i = 2 To derlig
If Range("A" & i).Value = Range("A" & i - 1).Value And Range("B" & i).Value = Range("B" & i - 1).Value Then
lig = lig + 1
ElseIf Range("A" & i).Value <> Range("A" & i - 1).Value Then
lig = lig + 2
End If
Sheets("Feuil2").Cells(lig, 1).Value = Range("C" & i).Value
lig = lig + 1
Next

A+ François

 

[BENAM69]

Salut fanfan38

Je te remercie beaucoup c'est bien cela que je cherchais. Parfait

A+

Benam