pourriez vous m'aider s'il vous plait
je voudrais agrémenter des cellules en colonnes de 1 à.... en commençant par la cellule n°2
tant que ces cellules contiennent une valeur supérieure à 499
svp
exemple que j'ai réalisé et qui fonctionne à moitié
quelqu'un aurait un peu de temps à me consacrer pour résoudre mon problème
svp merci
Sub Test_BG()
Dim x As Integer
Dim i As Integer
Dim valeur As Integer
Range("h2").Select
Do While Sheets("Feuil2").Cells(2, 8).Text <> ""
If ActiveCell < 499 Then
For i = 1 To 499
ActiveCell.Value = i
ActiveCell.Offset(1, 0).Select
Next i
Else
End If
Loop
End Sub
je voudrais agrémenter des cellules en colonnes de 1 à.... en commençant par la cellule n°2
tant que ces cellules contiennent une valeur supérieure à 499
svp
exemple que j'ai réalisé et qui fonctionne à moitié
quelqu'un aurait un peu de temps à me consacrer pour résoudre mon problème
svp merci
Sub Test_BG()
Dim x As Integer
Dim i As Integer
Dim valeur As Integer
Range("h2").Select
Do While Sheets("Feuil2").Cells(2, 8).Text <> ""
If ActiveCell < 499 Then
For i = 1 To 499
ActiveCell.Value = i
ActiveCell.Offset(1, 0).Select
Next i
Else
End If
Loop
End Sub