Repport des cellules sous condition

[nak]

Bonjour,
Je voudrais repporter le texte des cellules supperieures des colonnes A et B lorsque ma cellule C contient une valeur.
Voici la macro qui ne fonctionne pas 🙁

Sub Macro2()
Dim i As Integer, derligne As Long
derligne = Range("C65536").End(xlUp).Row
Application.ScreenUpdating = False
For i = 1 To derligne
If i > 1 Then Cells(i, 2).Value = Cells(i - 1, 2).Value
Next i
Application.ScreenUpdating = True
End Sub

Celle ci ne fonctionne pas est me rapporte la valeur 0 en colonne A...

Exemple tableau:
NICOLAS ;LAVAGE ;F563
; ;F213
; ;F51
; ;F65
YOAN ;EMBALLE;F123F
; ;F84
; ;F96
; ;F1231
; ;F23
DAMIEN ;TEST ;F98
; ;F621
ALAIN ;ESSAI ;F65
ELISA ;EMBALLE;F65456
; ;F54F
; ;F563
; ;F5689
FLEURE ;LAVAGE ;F24
; ;F15
; ;F98
; ;F65

Après traitemant :
NICOLAS LAVAGE F563
NICOLAS LAVAGE F213
NICOLAS LAVAGE F51
NICOLAS LAVAGE F65
YOAN EMBALLE F123F
YOAN EMBALLE F84
YOAN EMBALLE F96
YOAN EMBALLE F1231
YOAN EMBALLE F23
DAMIEN TEST F98
DAMIEN TEST F621
ALAIN ESSAI F65
ELISA EMBALLE F65456
ELISA EMBALLE F54F
ELISA EMBALLE F563
ELISA EMBALLE F5689
FLEURE LAVAGE F24
FLEURE LAVAGE F15
FLEURE LAVAGE F98
FLEURE LAVAGE F65

Merci par avance

 

[pierrejean]

Re : Repport des cellules sous condition

bonjour nak

On serait plus a l'aise avec le fichier (et tu n'aurais pas eu a taper cette tartine !)
A 1ere vue ta macro fait un report dans la colonne B:

If i > 1 Then Cells(i, [COLOR=red]2[/COLOR]).Value = Cells(i - 1, 2).Value

 

[nak]

Re : Repport des cellules sous condition

Je suis désolé mais j'ai quelques problèmes réseau pour joindre les fichiers. J'arrive quand même à contourner le problème...
Oui ma colonne B est changé mais pas une seule valeur...
Merci

 

[pierrejean]

Re : Repport des cellules sous condition

Re

Teste ceci

Sub Macro2()
Dim i As Integer, derligne As Long
derligne = Range("C65536").End(xlUp).Row
Application.ScreenUpdating = False
For i = 1 To derligne
 If Cells(i, 2).Value = "" Then Cells(i, 2).Value = Cells(i - 1, 2).Value
 If Cells(i, 1).Value = "" Then Cells(i, 1).Value = Cells(i - 1, 1).Value
Next i
Application.ScreenUpdating = True
End Sub

 

[nak]

Re : Repport des cellules sous condition

Merci bien Pierrejean cela fonctionne très bien 😉

A+