Bonjour,

Je ne connais pas VBA et ses boucles. Aussi j'ai simplement cette petite macro à transformer sous forme de boucle avec une condition au niveau de la colonne B.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
 
Sub Macro3()
'
' Macro3 Macro
'
 
'
    Range("A3:A9").Select
    Selection.Copy
    Range("C2").Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True
End Sub
Cette macro doit tourner en boucle avec une condition sur la valeur de B2. Du coup ca donnerait:
SI Bi pas égal à 0
transposer en Ci les cellules de Ai+1 à Ai+7

Quelqu'un peut il me faire la macro?

Cordialement,

Emmanuel