Copier cellule via Macro

[Famu]

Re-bonjour,

Comment avoir la valeur de la cellule se trouvant au-dessus sachant que le nombre de cellules vides changent?

1060201 10026
Cellule vide
Cellule vide
Cellule vide
Cellule vide
1060201 'avoir la val. 10026'
1060203 10027
Cellule vide
Cellule vide
1060204 'avoir la val. 10027'


Merci beaucoup,
Famu.

 

[Famu]

NB: les valeurs sont dans deux colonnes.

 

[Charly2]

Bonsoir Famu, bonsoir à toutes et à tous

Une solution possible :

Sub DerniereValeur()
'
Dim Cell As Range
'
  Application.ScreenUpdating = False
  For Each Cell In Range('A1:A' & Range('A65536').End(xlUp).Row)
    If Not IsEmpty(Cell) And IsEmpty(Cell.Offset(0, 1)) Then
      With Cell.Offset(0, 1)
        .FormulaR1C1 = '=LOOKUP(9^9,R1C2:R[-1]C2)'
        .Formula = .Value
      End With
    End If
  Next Cell
  Application.ScreenUpdating = True
End Sub

En espérant que cela réponde à ta demande.

A+

 

[Famu]

Bonjour Charly,

D'abord, merci pour ton aide.
Voici ce que j'obtiens :

1060201 10027 (valeur qui doit être copiée)

1060202 #N/A

1060203 #N/A

1060204 #N/A
1060201 10052A (valeur qui doit être copiée)
1060202 #N/A
1060203 #N/A

Encore un petit coup de pouce ?

Bien amicalement,
Famu.

 

[Charly2]

Bonjour Famu, bonjour à toutes et à tous

J'avais tablé sur le fait que des cellules en A et B étaient vides. Peut-être que la suppression des espaces entre tes données, due au formatage des posts, m'a trompé :unsure: :silly:

Pourrais-tu envoyer un petit fichier exemple car avec ceux de ton premier post, cela fonctionnait sur mon PC.

A+