XL 2019 Remplissage automatique cellule excel

Lolote83 à dit:

Bonjour,

Avec cette petite macro

VB:

Sub Test()
    With Sheets("Feuil2")
        xNom = .[C3]
        xDeb = .[C5]
        xFin = .[C7]
    End With
    With Sheets("Feuil1")
        xLigNom = Application.Match(xNom, .Range("A2:A7"), 0) + 1
        xColDeb = Application.Match(xDeb, .Range("B1:M1"), 0) + 1
        xColFin = Application.Match(xFin, .Range("B1:M1"), 0) + 1
        For F = xColDeb To xColFin
            .Cells(xLigNom, F) = "2000"
        Next F
    End With
End Sub

@+ Lolote83

Cliquez pour agrandir...

sylvanu à dit:

Bonjour Tsimbina, Lolote,
Un essai en PJ avec :

VB:

Sub Transfert()
Dim Ligne%, Col1%, Col2%, C%
With Sheets("Feuil1")
    If Application.CountIf(.[A:A], [C3]) > 0 Then
        Ligne = Application.Match([C3], .[A:A], 0)
        Col1 = Application.Match([C5], .[1:1], 0)
        Col2 = Application.Match([C7], .[1:1], 0)
        For C = Col1 To Col2
            .Cells(Ligne, C) = 2000
        Next C
    End If
End With
End Sub

J'ai ajouté des listes déroulantes pour les mois, c'est plus simple.

Cliquez pour agrandir...