COPIER SI

[René du var]

BONSOIR LE FORUM

VOIR FICHIER JOINT

LE BUT EST DE COPIER DES VALEURS DANS UNE FEUILLE SOUS CONDITIONS

MERCI

René du var

 

[Hervé]

bonsoir

J'ai ouvert ton fichier, mais je n'ai pas bien compris ce que tu voulais.

Qu'entend tu par TRESORERIE c'est une feuille, si oui elle est manquante.

Et c'est génant pour voir la structure de ton listing.

TOUTES LES LIGNES QUI NE FIGURE PAS DANS LA TRESORERIE DOIVENT ETRE COPIER DANS LA FEUILLE ANALYSE

Salut
Hervé

 

[René du var]

salut merci d'avoir ouvert mon fichier

la trésorerie ce sont les colonnes E F G H


comme tu as pu le voir les données de la ligne en jaune ne sont pas dans la parti trésorerie

merci

René du var

 

[Hervé]

Bonjour

Je te prie de m'excuser pour le retard de la réponse, mais j'étais bien déborder.

essaye ce code :

Public Sub copier()
Dim c As Range
For Each c In Range("c2:c" & Range("c50000").End(xlUp).Row)
l = Sheets("Analyse").Range("c50000").End(xlUp).Row + 1
If c.Offset(0, 2).Value = "" And _
c.Offset(0, 3).Value = "" And _
c.Offset(0, 4).Value = "" And _
c.Offset(0, 5).Value = "" Then
c.EntireRow.Copy Destination:=Sheets("Analyse").Range("a" & l)
End If
Next c
End Sub

Cette macro copie les lignes à la suite sur la feuille analyse si les colonnes E,F,G et H sont vides.

Salut
Hervé

 

[René du var]

merci pour la macro

en fait si tu regardes le fichier joint

il faut comparer le colonne C=G

exemple : si C = G alors rien sinon copie les colonne ABCD dans ANALYSE

merci

René du var

 

[Hervé]

Bonjour

alors ceci :

Public Sub copier()
Dim c As Range
Dim l As Integer
For Each c In Range("c2:c" & Range("c50000").End(xlUp).Row)
l = Sheets("Analyse").Range("c50000").End(xlUp).Row + 1
If c.Value <> c.Offset(0, 4).Value Then
Range((c.Offset(0, -2).Address) & ":" & (c.Offset(0, 1).Address)).Copy _
Destination:=Sheets("Analyse").Range("a" & l)
End If
Next c
End Sub

Salut
Hervé