Problème boucle et condition
Bonjour,
J'ai un petit soucis que j'arrive à comprendre néanmoins je n'arrive pas à trouver de solutions pour y remédier.
Voici mon soucis:
[quote][/ Dim WsB As Worksheet, WsC As Worksheet
Dim g&
Dim Y4&, Y4b&, Y4c&, Y4d&
Set WsB = Sheets("DispoConnecté")
Set WsC = Sheets("Fette1")
iB = WsB.Cells(Rows.Count, 1).End(xlUp).Row
iC = WsC.Cells(Rows.Count, 1).End(xlUp).Row
For g = iC To 2 Step -1
Y4 = WsC.Cells(g, 3).Value = WsC.Cells(g - 1, 3)
Y4b = WsC.Cells(g, 3).Value = WsC.Cells(g - 2, 3).Value
Y4c = WsC.Cells(g, 3).Value = WsC.Cells(g - 3, 3).Value
Y4d = WsC.Cells(g, 3).Value = WsC.Cells(g - 4, 3).Value
If Y4 Then
WsC.Activate
WsC.Cells(g, 3).Select
WsC.Cells(g - 1, 3).Select
WsC.Range("A" & g - 1 & ":" & "F" & g).Select
Selection.Cut
WsC1.Activate
Range("A" & iC1).Select
ActiveSheet.Paste
WsC.Activate
WsC.Range("A" & g - 1 & ":" & "F" & g).Delete
iC1 = iC1 + 2
Else
If Y4b Then
WsC.Activate
WsC.Cells(g, 3).Select
WsC.Cells(g - 1, 3).Select
WsC.Cells(g - 2, 3).Select
WsC.Range("A" & g - 2 & ":" & "F" & g).Select
Selection.Cut
WsC1.Activate
Range("A" & iC1).Select
ActiveSheet.Paste
WsC.Activate
WsC.Range("A" & g - 2 & ":" & "F" & g).Delete
iC1 = iC1 + 3
Else
If Y4c Then
WsC.Activate
WsC.Cells(g, 3).Select
WsC.Cells(g - 1, 3).Select
WsC.Cells(g - 2, 3).Select
WsC.Cells(g - 3, 3).Select
WsC.Range("A" & g - 3 & ":" & "F" & g).Select
Selection.Cut
WsC1.Activate
Range("A" & iC1).Select
ActiveSheet.Paste
WsC.Activate
WsC.Range("A" & g - 3 & ":" & "F" & g).Delete
iC1 = iC1 + 4
Else
If Y4c Then
WsC.Cells(g, 3).Select
WsC.Cells(g - 1, 3).Select
WsC.Cells(g - 2, 3).Select
WsC.Cells(g - 3, 3).Select
WsC.Cells(g - 4, 3).Select
WsC.Range("A" & g - 4 & ":" & "F" & g).Select
Selection.Cut
WsC1.Activate
Range("A" & iC1).Select
ActiveSheet.Paste
WsC.Activate
WsC.Range("A" & g - 4 & ":" & "F" & g).Delete
iC1 = iC1 + 5
End If
End If
End If
End If
Next gquote]
Dans cette boucle, je viens chercher une valeur dans ma troisième colonne, et ma condition, serait que si Y4 ou Y4b ou Y4c ou Y4d sont juste alors ....
Néanmoins, mes conditions Y4c et Y4d ne peuvent pas marcher si g =3 ou g=4 car :
Y4c = WsC.Cells(g, 3).Value = WsC.Cells(g - 3, 3).Value 'serait Cells(0,3)
Y4d = WsC.Cells(g, 3).Value = WsC.Cells(g - 4, 3).Value 'serait Cells(0,3)
L'idée serait donc que si dans ma colonne j'ai plusieurs lignes dans lesquels la valeur de la colonne 3 est identique, alors on sélectionne et on coupe pour aller coller dans une autre feuille.
Je vous joint mon fichier.
Merci d'avance de l'attention porté à mon message
Cordialement,
U_goffu
Bonjour,
Je planche toujours dessus, mais je n'arrive pas à trouver.
Mesdames, messieurs avez vous des suggestions ou propositions à me faire, svp?
Cdlt,
U_goffu