Aligner 2 colonnes
Bonjour,
Je poste une demande d'aide pour excel avant de devenir fou car je n'arrive pas à résoudre un problème excel et je n'ai pas trouvé la réponse en fouillant sur ce forum...
J'ai un tableau excel avec avec une colonne A qui comporte 451 valeurs, une colonne B 421, et deux colonnes C et D qui sont des valeurs associées à la colonne B. Ce que je souhaiterais faire c'est aligner les valeurs de B en face de la colonne A, et que les valeurs C et D suivent l'alignement de la colonne B. Voici mon exemple:
Num Num Valeur A Valeur B
12-00023 12-00211 10 225,9180254
12-00211 12-00268 10 226,8052806
13-00118 13-00123 0,06 122,5274174
13-00123 13-00145 10 264,121986
13-00145 13-00146 10 159,1094693
Num Num Valeur A Valeur B
12-00023
12-00211 12-00211 10 225,9180254
13-00118
13-00123 13-00123 0,06 122,5274174
13-00145 13-00145 10 264,121986
Si quelqu'un a la solution miracle svp...
Merci beaucoup pour votre aide!
Salut Clems31, Girodo,
ainsi, peut-être?
Question : que faut-il faire des références en colonne 'B' n'existant pas en colonne 'A' ?
Dans ce cas-ci, elles sont zappées!
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'
Dim tTab(), tTab1, tTab2
Dim iRowA%, iRowB%, iIdx%
'
iRowA = Range("A" & Rows.Count).End(xlUp).Row
iRowB = Range("B" & Rows.Count).End(xlUp).Row
tTab1 = Range("A2:A" & iRowA).Value
tTab2 = Range("B2:D" & iRowA).Value
ReDim tTab(iRowA - 1, 4)
'
For x = 1 To iRowA - 1
tTab(x - 1, 0) = tTab1(x, 1)
For y = 1 To iRowB - 1
If tTab1(x, 1) = tTab2(y, 1) Then
tTab(x - 1, 1) = tTab2(y, 1)
tTab(x - 1, 2) = tTab2(y, 2)
tTab(x - 1, 3) = tTab2(y, 3)
End If
Next
Next
Range("F2").Resize(UBound(tTab, 1), 4).Value = tTab
'
End SubUn double-clic en [A1] démarre la macro...
A+