LIASON SANS LES CELLULES VIDE

[BRES]

Bonjour,

Quelqu'un peut-il à cette question ; je voudrais savoir si il est possible de faire une liason entre les 2 feuilles sans prendre les blancs sur la 2 eme

A et B representent les colonnes
1 2 3 4 ... représentent les lignes

J’ai 2 feuilles
Sur la 1ere une liste
A B
1 Référence Prix
2 24 3.12
3 28 2.15
4
5
6 34 5.15
7 38 6.15

Sur la 2 eme voci le résultat que je veux obtenir

A B
1 Référence Prix
2 24 3.12
3 28 2.15
4 34 5.15
5 38 6.15


Merci d’avance

 

[Law]

Bonjour BRES, bonjour le forum,

Un exemple qui fonctionne (il doit très surement y avoir mieux mais j'apprends ! lol !)

Commence par aller saisir, sur ta feuille n° 2, en A1 et B1, respectivement 'Référence' et 'Prix'.

Ensuite, voici le code :

Option Explicit
Sub Liaisons()
Dim c As Range

Application.ScreenUpdating = False

Sheets(1).Activate
Range('A2').Activate

For Each c In Sheets(1).Range('A2:A' & Range('A65000').End(xlUp).Rows)

If c.Value = '' Then
c.Offset(1, 0).Select
Else
If Sheets(2).Range('A2').Value = '' Then
With Sheets(2)
.Range('A2').Value = c.Value
.Range('B2').Value = c.Offset(0, 1).Value
End With
c.Offset(1, 0).Select
Else
With Sheets(2)
.Range('A65000').End(xlUp).Offset(1, 0).Value = c.Value
.Range('B65000').End(xlUp).Offset(1, 0).Value = c.Offset(0, 1).Value
End With
c.Offset(1, 0).Select
End If
End If
Next c

Application.ScreenUpdating = True

End Sub

@+

 

[BRES]

Merci Law, pour ta réponse rapide, mais à l'époque ou je suis né l'ordinateur n'existait pas
comment lancer cette procédure: Option Explicit
J'espère que j'ai été assez claire dans ma demande d'explication
@++