do while, boucle et conditions particuliéres

[bertgrav]

bonjour,

je voudrais réaliser une extraction en feuille f2 des données de colonnes A en feuille f1 si:
la cellule en colonne B est renseignée "oui", mais l'extraction doit se faire en colonne de 10 maximum (la feuille f3 donne dans l'exemple le résultat final désiré, l'ordre de sorti sur la colonne n'a pas d'importance, ce qui est important cela doit être des paquets de 10 maximum)


j'ai essayé avec la condition do...while, mais je n'y arrive pas


merci pour votre aide

chantal

 

[fanfan38]

Re : do while, boucle et conditions particuliéres

Bonjour
Je pense que la macro ci dessous convient
Sub boucle()
Dim lig As Integer
Dim col As Integer
Dim y As Integer
lig = 1
col = 1
For y = 1 To Sheets("f1").Range("a65536").End(xlUp).Row
If Sheets("f1").Range("b" & y).Value = "oui" Then
Sheets("f2").Cells(lig, col).Value = Sheets("f1").Range("a" & y).Value
lig = lig + 1
If lig > 10 Then
lig = 1
col = col + 1
End If
End If
Next
End Sub

A+ François

 

[bertgrav]

Re : do while, boucle et conditions particuliéres

impeccable,

par contre si quelqu'un pouvait me donner le code avec l'utilisation de do....while, je prends volontier pour mettre dans mes archives perso.

merci

chantal

 

[Pierrot93]

Re : do while, boucle et conditions particuliéres

Bonjour Chantal, François

avec l'utilisation d'une boucle "do", cela pourrait être codé comme ceci :

Option Explicit
Sub boucle()
Dim i As Integer, j As Integer, k As Integer
i = 1
j = 1
k = 1
With Sheets("f1")
    Do While .Range("A" & i).Value <> ""
         If .Range("A" & i).Offset(0, 1).Value = "oui" Then
            Sheets("f2").Cells(j, k).Value = .Range("A" & i).Value
            j = IIf(j < 10, j + 1, 1)
            k = IIf(j = 1, k + 1, k)
         End If
    i = i + 1
    Loop
End With
End Sub

bonne journée
@+

 

[bertgrav]

Re : do while, boucle et conditions particuliéres

excellent

merci pierrot

bonne journée
chantal