Faire un Tri sur une colonne selon la valeur de la Cellule
Bonjour, je viens sur ce forum psq je débute avec Excel, j'ai une macro qui permet de copier à partir d'une Feuil les valeur d'un tableau dans une autre feuil mais selon la valeur de la colonne H, j'explique si la valeur de H est "chom" copier dans la colonne G, si lla valeur de H est "imm" copier dans F, sinon copier dans autre,
quand je faisais le test selon deux valeur "Imm" et "chom" le tri fonctionnais mais quand j'ai rajouté une troisième valeur ça ne marche plus
je vous met en pièce jointe un fichier test
voilà ma macro
Sub Report()
Dim k As Integer
'supprime les doublons et additionne les point pour les doublons
Dim c As Range, i&, derln&, Col$
For i = 2 To Range("B" & Rows.Count).End(xlUp).Row
If Range("H" & i) = "Immo" Then
Range("N" & i).Copy Sheets("Ressources Net").Range("F" & i)
ElseIf Range("H" & i) = "Charge" Then
Range("N" & i).Copy Sheets("Ressources Net").Range("G" & i)
'Else: Range("H" & i) = "(vide)"
'Range("N" & i).Copy Sheets("Ressources Net").Range("G" & i)
'Sheets("Temps Interne - Ressources Brut").Range("H" & i).Value <> "Charge" And Sheets("Temps Interne - Ressources Brut").Range("H" & i).Value <> "Immo" Then
End If
Range("B" & i & ":D" & i).Copy Sheets("Ressources Net").Range("A" & i)
Range("I" & i & ":J" & i).Copy Sheets("Ressources Net").Range("D" & i)
Range("N" & i).Copy Sheets("Ressources Net").Range("H" & i)
Next i
Sheets("Ressources Net").Activate
End Sub
Bonsoir,
première chose :
vous faites un test sur la valeur d'une cellule qui est égale à "Charge" alors que sur la feuille c'est "Chom"
vous faites un test sur la valeur d'une cellule qui est égale à "Immo" alors que sur la feuille c'est "Imm"
En fait il n'y que (Vide) qui soit bon en test...
deuxième chose :
votre tableau s'arrête à la ligne 16, mais avec cette instruction :
Range("B" & Rows.Count).End(xlUp).Rowi "tournera" dans sa boucle jusqu'à 116 car vous avez des données jusqu'à la ligne 116.
Est-ce voulu ?
à bientôt
LouReeD
Bonjour LouReeD,
Merci pour votre réponse
En fait j'ai plus de 1000 ligne dans mon fichier d'origine, c'est juste un fichier pour tester, même si je change le nom de mes variable mon problème réside encore, il m'affiche des 0 quand il fait le tri
Je te rend le fichier
Bonjour LouReeD
c'est génial
Merci
Bonjour,
désolé du retard, mais je tiens à vous dire merci de votre "génial" !
@ bientôt
LouReeD
Bonjour LouReeD
Merci encore