do while, boucle et conditions particuliéres

bertgrav · 24 Octobre 2008

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 · 24 Octobre 2008

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 · 24 Octobre 2008

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 · 24 Octobre 2008

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 :

Code:

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 · 24 Octobre 2008

Re : do while, boucle et conditions particuliéres

excellent

merci pierrot

bonne journée
chantal

do while, boucle et conditions particuliéres

bertgrav

XLDnaute Occasionnel

Pièces jointes

fanfan38

XLDnaute Barbatruc

bertgrav

XLDnaute Occasionnel

Pierrot93

XLDnaute Barbatruc

bertgrav

XLDnaute Occasionnel

Discussions similaires