Discussion :

[Cyclemmanuel]

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

[casefayere]

Bonjour,

à adapter

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub Macro3()
Dim i As Long
For i = 2 To Range("B" & Rows.Count).End(xlUp).Row
  If Range("B" & i) <> 0 Then
    Range("A" & i + 1, "A" & i + 7).Copy
    Range("C" & i).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
      False, Transpose:=True
  End If
Next i
 
End Sub

[Cyclemmanuel]

Super,
C'est ce qu'il me fallait !
Merci...je vais me remettre à programmer, c'est tellement utile et intéressant