introduction table de reference sur chaques lignes

edes · 17 Octobre 2011

Bonjour,

Je vais essayer d'être compréhensif voila j'aimerai que chaque référence de la sheet 2 soit imputer en 1 colonne de toutes les informations de la sheet1 ainsi de suite et si possible que le résultat soit dans la sheet 3
Afin de mieux comprendre j'ai mis le résultat souhaite dans la sheet 3
Merci d’avance a tous pour votre aide

tototiti2008 · 17 Octobre 2011

Re : introduction table de reference sur chaques lignes

Bonjour edes,

si j'ai compris

Code:

Sub ProduitCartesien()
Dim i As Long, j As Long
Dim Li As Long, Lj As Long, Ci As Long
    With Sheets("Sheet1")
        Li = .Range("A1").CurrentRegion.Rows.Count
        Ci = .Range("A1").CurrentRegion.Columns.Count
    End With
    With Sheets("Sheet2")
        Lj = .Range("A1").CurrentRegion.Rows.Count
    End With
    With Sheets("Sheet3")
        .Cells.ClearContents
        For j = 1 To Lj
            For i = 1 To Li
                .Cells(Li * (j - 1) + i, 1).Value = Sheets("sheet2").Cells(j, 1).Value
                .Cells(Li * (j - 1) + i, 2).Resize(1, Ci).Value = Sheets("sheet1").Cells(i, 1).Resize(1, Ci).Value
            Next i
        Next j
    End With
End Sub

edes · 18 Octobre 2011

Re : introduction table de reference sur chaques lignes

Super c est parfait merci tototiti2008

introduction table de reference sur chaques lignes

edes

XLDnaute Nouveau

Pièces jointes

tototiti2008

XLDnaute Barbatruc

edes

XLDnaute Nouveau

Discussions similaires