XL 2019 Remplissage automatique cellule excel

[Tsimbina]

Bonjour à tous,

Quelqu'un peut m'aider pour ce ficher?

Un VBA pour mettre une chiffre 2000 dans le feuil2 soit défini par le mois début à mois fin les cellules que l'ont inscrit ce chiffre et par rapport au non choisi dan le feuil1

Merci pour ce qui répondent

 

[Lolote83]

Bonjour,

Avec cette petite macro

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

 

[sylvanu]

Bonjour Tsimbina, Lolote,
Un essai en PJ avec :

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.

 

[Tsimbina]

Bonjour,

Avec cette petite macro

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

Merci pour ton aide

 

[Tsimbina]

Bonjour Tsimbina, Lolote,
Un essai en PJ avec :

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.

Merci,
ce la réponse plus adéquate à mon projet.