Dupliquer une valeur Fixe tout les X ligne

Bonjour a tous ,

J'utilise cette fonction pour répéter toujours la même valeur toutes les X lignes , en fonction du nombre de ligne cela est assez un long

existerait il un code permettant d'acceler cela SVP?

For k = 2 To N_b_lignes Step N_b_couleurs + 1
Cells(k, 3) = "58540"
Next

Bonjour

Vous avez des formules dans votre feuille ?

Cordialement

Oui formule et code VBA

---> Merci d'utiliser les balises de code (icone </> dans la barre de menu) lorsque vous postez un code dans votre demande

Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual

For k = 2 To N_b_lignes Step N_b_couleurs + 1
Cells(k, 3) = "58540"
Next K

Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True

Essayez ceci déjà

Si ok

Bonjour à tous,

Trop tard...

Sub Test()

Dim K As Long, N_b_lignes As Long
Dim N_b_couleurs As Integer
Dim HeureDebut, HeureFin, TempsTotal

    HeureDebut = Timer    ' Définit l'heure de début.
    N_b_couleurs = 2
    N_b_lignes = 10000 ' A adapter

    With Application
         .ScreenUpdating = False
         .Calculation = xlCalculationManual
    End With

    For K = 2 To N_b_lignes Step N_b_couleurs + 1
        Cells(K, 3) = "58540"
    Next

    With Application
         .ScreenUpdating = True
         .Calculation = xlCalculationAutomatic
    End With

    HeureFin = Timer                        ' Définit l'heure de fin.
    TempsTotal = HeureFin - HeureDebut    ' Calcule la durée totale.
    Debug.Print "Temps total : " & Round(TempsTotal, 0) & " seconde(s)"

End Sub

Ah Oui ... rien a voir ..

MErci BCP