Copier/Coller des valeurs dans des cellules vides

Bonjour à tous,

J'ai chercher dans le forum et des posts précédent mais je n'arrive pas à trouver mon bonheur.

J'ia pourtant essayer pas mal des codes qui ont été fournis mais en essayant de les adapter à mon besoin, cela ne semble pas convenir.

J'explique mon probleme.

J'ai un tableau (ligne 3 à 193) avec une ligne sur 2 (en commençant par la ligne 4)les cases B et C qui sont vides (donc la première est la ligne 5).

Et je voudrais que sur l'ensemble du tableau, une macro me fasse un copier coller des cellules de la ligne supérieure.

J'essaye d'etre plus claire.

Ma ligne 4 a toute les cases désirées de remplis

Ma ligne 5 a les cases B et C de vide donc je voudrai copier la valeur des cases B4 et C4 en B5 et C5, la valeur de ces cases (ce sont soit des chiffres soit des lettres soit les 2).

Ma ligne 6 a toute les cases désirées de remplis (mais les données ne sont pas les mêmes que la ligne 4)

Ma ligne 7 a les cases B et C de vide donc je voudrai copier la valeur des cases B6 et C6 en B7 et C7, la valeur de ces cases (ce sont soit des chiffres soit des lettres soit les 2).

Et ainsi de suite.

Et cela jusqu'a ma derniere ligne (193).

J'ai pensé faire:

Sub fich()

Dim i As Integer, j As Integer

For i = 3 To 193

If Cells(i, 2) = "" Then

j = i - 1

Cells(i, 2).Value = Cells(j, 2).Value

Else

End If

i = i + 1

Next

End Sub

J'ai essayé pas mal d'autre choses aussi mais la je craque completement!

Merci d'avance de votre aide

Bonjour,

Proposition de code basique :

Sub fich()
       Dim i As Integer
       For i = 5 To 193 Step 2
              Cells(i, 2) = Cells(i - 1, 2)
              Cells(i, 3) = Cells(i - 1, 3)
       Next i
End Sub