Rajouter plusieurs lignes automatiques vba
katyHan
Messages postés
7
Date d'inscription
Statut
Membre
Dernière intervention
-
Frenchie83 Messages postés 2240 Date d'inscription Statut Membre Dernière intervention -
Frenchie83 Messages postés 2240 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
merci de bien vouloir m'apporter votre aide. Ma formule vba ci-jointe me permets d'ajouter une ligne supplémentaire à un tableau. Comment la modifier pour en ajouter trois ou quatre ?
d = 0
For i = 9 To 39
n = 0 'nbre d'intervention du même agent dans la même journée
For j = 3 To 300 Step 2
If fg.Cells(i, j).Value = Target Then
n = n + 1
If n = 1 Then
lgn = i - 2 + n + d
Else
fi.Range(i + d & ":" & i + d).Insert shift:=xlDown
lgn = i - 2 + n + d
d = d + 1
End If
fi.Range("C" & lgn) = fg.Cells(2, j)
If fg.Cells(2, j) = "" Then
fi.Range("D" & lgn) = fg.Cells(4, j).End(xlToLeft)
merci de bien vouloir m'apporter votre aide. Ma formule vba ci-jointe me permets d'ajouter une ligne supplémentaire à un tableau. Comment la modifier pour en ajouter trois ou quatre ?
d = 0
For i = 9 To 39
n = 0 'nbre d'intervention du même agent dans la même journée
For j = 3 To 300 Step 2
If fg.Cells(i, j).Value = Target Then
n = n + 1
If n = 1 Then
lgn = i - 2 + n + d
Else
fi.Range(i + d & ":" & i + d).Insert shift:=xlDown
lgn = i - 2 + n + d
d = d + 1
End If
fi.Range("C" & lgn) = fg.Cells(2, j)
If fg.Cells(2, j) = "" Then
fi.Range("D" & lgn) = fg.Cells(4, j).End(xlToLeft)
A voir également:
- Rajouter plusieurs lignes automatiques vba
- Écrire plusieurs lignes dans une cellule excel mac - Guide
- Excel compter cellule couleur sans vba - Guide
- Excel trier par ordre alphabétique en gardant les lignes - Guide
- Vba attendre 1 seconde ✓ - Forum VB / VBA
- Find vba - Astuces et Solutions
5 réponses
Bonjour
Pour mettre plusieur ligne on doit mettre Rows
A+
Maurice
Pour mettre plusieur ligne on doit mettre Rows
Sub Macro2()
D = 8
Nlig = 4
Rows(D & ":" & D + Nlig).Insert Shift:=xlDown
End Sub
A+
Maurice
katyHan
Messages postés
7
Date d'inscription
Statut
Membre
Dernière intervention
Merci pour cette contribution mais trop néophyte pour l'appliquer. Pouvez-vous m'éclairer sur l'application de cette formule ?
https://www.cjoint.com/c/EFCtFJKupfw
Ok. voilà l'adresse du lien du fichier. J'ai juste mis quelque colonnes du planning qui en compte plus de 200 avec 20 sites.
Merci de votre aide.
Ok. voilà l'adresse du lien du fichier. J'ai juste mis quelque colonnes du planning qui en compte plus de 200 avec 20 sites.
Merci de votre aide.
Bonjour
je vous ai mis le choix du nombre de ligne à ajouter en cellule D6
https://www.cjoint.com/c/EFDhvfJF3Nw
Dans votre code, il y a un autre problème que, ne connaissant pas la structure du fichier complet, je n'ai pas oser corriger . En effet à chaque insertion de ligne, le total se décale du même nombre de ligne vers le bas. Il vous faut ajouter en début de code, l'action de supprimer toutes les lignes après le dernier jour du mois et recréer les formules "SOMME" sur la ligne suivante.
Cdlt
je vous ai mis le choix du nombre de ligne à ajouter en cellule D6
https://www.cjoint.com/c/EFDhvfJF3Nw
Dans votre code, il y a un autre problème que, ne connaissant pas la structure du fichier complet, je n'ai pas oser corriger . En effet à chaque insertion de ligne, le total se décale du même nombre de ligne vers le bas. Il vous faut ajouter en début de code, l'action de supprimer toutes les lignes après le dernier jour du mois et recréer les formules "SOMME" sur la ligne suivante.
Cdlt
Voici la nouvelle version avec réajustement de la longueur de la feuille
https://www.cjoint.com/c/EFDpdnAWDbw
Cdlt
https://www.cjoint.com/c/EFDpdnAWDbw
Cdlt
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
bonjour
En faisant une boucle, on répète l'action d'insérer autant de fois qu'on le désire
A tester
Cdlt
En faisant une boucle, on répète l'action d'insérer autant de fois qu'on le désire
For l = 1 To 5 'on répète l'insertion de ligne
fi.Range(i + d & ":" & i + d).Insert Shift:=xlDown
Next l
A tester
Cdlt
Merci. ça marche bien mais pas pour ce que je voudrais faire. La formule permet effectivement l'insertion de ligne mais les informations sont répétées alors que je récupérais des informations différentes auparavant.
En fait, ma macro me permet de récupérer des informations dans un planning général que je retranscris dans un planning individuel. Jusque là, je pouvais prendre en compte deux vacations par jour. Je voudrai pouvoir en mettre plus.
En fait, ma macro me permet de récupérer des informations dans un planning général que je retranscris dans un planning individuel. Jusque là, je pouvais prendre en compte deux vacations par jour. Je voudrai pouvoir en mettre plus.
Votre demande initiale:
Ma formule vba ci-jointe me permets d'ajouter une ligne supplémentaire à un tableau. Comment la modifier pour en ajouter trois ou quatre ? ma réponse correspondait à la demande.
Le problème, n'ayant pas votre code en entier (ou sont les next i et next j, il manque un end if), ni la structure du fichier, difficile d'imaginer ce que vous attendez.
Peut-être que votre code n'est pas adapté à ce que vous voulez faire et qu'il faut le revoir.
Pour gagner du temps, pouvez-vous mettre un extrait de votre fichier sans données sensibles (avec la macro complète) sur cjoint.com en expliquant bien ce que vous voulez ?
cdlt
Ma formule vba ci-jointe me permets d'ajouter une ligne supplémentaire à un tableau. Comment la modifier pour en ajouter trois ou quatre ? ma réponse correspondait à la demande.
Le problème, n'ayant pas votre code en entier (ou sont les next i et next j, il manque un end if), ni la structure du fichier, difficile d'imaginer ce que vous attendez.
Peut-être que votre code n'est pas adapté à ce que vous voulez faire et qu'il faut le revoir.
Pour gagner du temps, pouvez-vous mettre un extrait de votre fichier sans données sensibles (avec la macro complète) sur cjoint.com en expliquant bien ce que vous voulez ?
cdlt
https://www.cjoint.com/c/EFCtFJKupfw
Ok. voilà l'adresse du lien du fichier. J'ai juste mis quelque colonnes du planning qui en compte plus de 200 avec 20 sites différents.
Merci de votre aide.
Ok. voilà l'adresse du lien du fichier. J'ai juste mis quelque colonnes du planning qui en compte plus de 200 avec 20 sites différents.
Merci de votre aide.
