Discussion :

[Sianne]

Bonjour à tous,

Je viens de m'inscrire sur ce forum, car j'ai besoin de vous, je suis novice en langage VBA

J'aimerais tellement me faciliter la saisie de nombreuses données, que toute aide serait la bienvenue !

Je vous expose mon cas. Pour chaque personne recrutée, je souhaite que la macro insère à partir de la 2ème ligne d'un tableau un nombre de lignes en fonction du nombre de mois entre les dates d'entrée et de sortie.
Ci-joint un fichier pour une meilleure compréhension, par exemple pour Durant Léo qui est recruté du 15/01/17 au 25/08/17 soit s/ 8 mois = 8 lignes. Sur les 8 lignes, avoir les dates incrémentées 28/MM/AA, le nom, prénom, entrée, sortie renseignés, et pour les colonnes H, I et J les formules de calcul. Je n'aurais plus qu'à renseigner les colonnes F et G.
Et pour finir, le top serait que après ces lignes insérées, la macro efface les cellules B2 à E2 pour saisir la nouvelle personne recrutée...

En espérant que ma demande soit entendue

Bonne fin de journée à tous

[parmi]

Bonjour,

Essaie ceci pour voir

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub Insérer()
    Dim I As Long, nMois As Long
    Dim Mois As Integer
 
    nMois = DateDiff("m", Range("D2"), Range("E2"))
    Rows(6 & ":" & 6 + nMois).Insert
    For I = 6 To 6 + nMois
        Range("A" & I) = DateSerial(Year(Range("D2")), Month(Range("D2")) + Mois, 28)
        Range("A" & I).NumberFormat = "m/d/yyyy"
        Range("B" & I) = Range("B2")
        Range("C" & I) = Range("C2")
        Range("D" & I) = Range("D2")
        Range("E" & I) = Range("E2")
 
        Mois = Mois + 1
    Next
End Sub

[Sianne]

Waouh, c'est trop top
Un grand MERCI