Discussion :

[anouar2012]

Bonjour,

toujours un peu de mal avec le vba
je désir que si F1=1 alors on affiche la colonne H2 de la feuille "base" dans la feuille "virement" et la feuille "espéce"
et si F2=2 alors afficher I2 dans la feuille virement et espéceet si F2=2+3 alors afficher I2 et J2 etc en tenant compte tout les condition possible.
le classeur ci-joint explique bien le probléme
merci d'avance

[Daniel.C]

Bonjour,

Mets cette macro dans le module de la feuille :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Ligne As Long, Col As Integer
    If Target.Address = "$F$1" Or Target.Address = "$F$2" Then
        Ligne = Cells(Rows.Count, 1).End(xlUp).Row
        If Target.Count > 1 Then Exit Sub
        [virement!E:G].Clear
        [espéce!E:G].Clear
        If [F1] = 1 Then
            [H1].Resize(Ligne).Copy [virement!E1]
            [H1].Resize(Ligne).Copy [espéce!E1]
        End If
        If [F2] = 2 Then
            Col = [virement!IV1].End(xlToLeft).Column + 1
            [I1].Resize(Ligne).Copy Sheets("virement").Cells(1, Col)
            [I1].Resize(Ligne).Copy Sheets("espéce").Cells(1, Col)
        ElseIf [F2] = 5 Then
            Col = [virement!IV1].End(xlToLeft).Column + 1
            [I1:J1].Resize(Ligne).Copy Sheets("virement").Cells(1, Col)
            [I1:J1].Resize(Ligne).Copy Sheets("espéce").Cells(1, Col)
        End If
    End If
End Sub