VBA Insérer un nombre de lignes d'après une variable

Version imprimable

25/07/2017, 19h04
Sianne

1 pièce(s) jointe(s)

VBA Insérer un nombre de lignes d'après une variable

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

Bonjour,

Essaie ceci pour voir

Code:

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

26/07/2017, 14h41
Sianne

Waouh, c'est trop top:)
Un grand MERCI