creation boucle

[laudomax]

Bonjour à tous et merci de mettre a dispo vos compétences qui m ont permis de trouver des solutions .
Cependant je n arrive pas à adapter une boucle à mon application.
en fait dans une feuille (essai) dans laquelle je récupère des variables je dois mettre à jour les colonnes de la feuille (recap) afin de faire un traitement ultérieur. la variable de référence étant dans la colonne A.
Merci si vous avez un petit moment pour un coup de pouce !

 

[laurent950]

Re : creation boucle

Bonsoir,

peut être comme cela :

Sub test()

Dim F1 As Worksheet
Set F1 = Worksheets("essai")

Dim F2 As Worksheet
Set F2 = Worksheets("recap")

fin = F1.Range("A65536").End(xlUp).Row

' Nettoyage recap
finreacp = F2.Range("A65536").End(xlUp).Row
F2.Range(F2.Cells(2, 2), F2.Cells(finreacp, 3)).Clear

For i = 2 To fin
    For j = 2 To 3
        If F1.Cells(i, j) <> Empty Then
            F2.Cells(i, j) = F1.Cells(i, j)
        End If
    Next j
Next i

End Sub

Laurent

 

[Efgé]

Re : creation boucle

Bonjour laudomax , laurent950
Une proposition en B2 de la feuille recap, a tirer vers le bas et vers la droite.

=SOMMEPROD((essai!$A$2:$A$11=$A2)*(essai!$B$1:$C$1=B$1)*(essai!$B$2:$C$11))

Cordialement

EDIT
Si non , toujours en partant de la même cellule

=SI(NB.SI(essai!$A$2:$A$11;$A2);INDEX(essai!$B$2:$D$11;EQUIV($A2;essai!$A$2:$A$11;0);COLONNES($A:A));"")

EDIT_2

=SI(ET(NB.SI(essai!$B$1:$C$1;B$1);NB.SI(essai!$A$2:$A$11;$A2));INDEX(essai!$B$2:$D$11;EQUIV($A2;essai!$A$2:$A$11;0);COLONNES($A:A));"")