Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

insérer lignes si critères [Résolu]

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion fenec
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire

fenec

XLDnaute Impliqué
Bonjour le forum,

Comme le dis le titre je voudrais insérer une ligne si les critères sont remplie.
Je ne sais si tout est clair alors vous joint un fichier

Cordialement

Philippe
 

Pièces jointes

Dernière édition:
Trier par date Trier par votes
Re : insérer lignes si critères

Bonjour fenec,

Fichier (4) avec cette macro :

Code: 
Sub Insereligne()
Dim code, c, cel As Range
code = Array("D712", "D727") 'les codes à traiter
Application.ScreenUpdating = False
For Each c In code
  Set cel = [B:B].Find(c, , xlValues, xlWhole, , xlPrevious)
  If Not cel Is Nothing Then
    cel(2).Resize(, 4).Insert xlDown
    cel(2) = c
    cel(2, 2) = DateSerial(Year(cel(1, 2)) + 1, Month(cel(1, 2)), Day(cel(1, 2)))
    cel(2, 3) = DateSerial(Year(cel(1, 3)) + 1, Month(cel(1, 3)), Day(cel(1, 3)))
    cel(2, 4) = cel(1, 4) + 1
  End If
Next
End Sub
Effectivement il n'y a pas besoin de formules en colonne E.

A+
 

Pièces jointes

Vote positif 0 Vote négatif
Re : insérer lignes si critères

Re, le forum, Job75

Venant de tester, j'ai d'abord cherché à comprendre ton code pour l'ajuster à mon tableau mais je pense m'avoir mal exprimé.

En effet avec l'insertion tu remplaces les formules par leurs valeurs.
Dans la 1er partie du tableau cela me convient "Colonne (B:G)", pour la mise à jour des dates.
Dans la 2ème j'aurais souhaité l'inverse, garder les formules et n'avoir que les valeurs dans les lignes précédentes.

Je pense qu'il faudrait un mix des deux:
J'essaie en vain depuis tout à l'heure mais n'y parviens pas.

Te joint un fichier comme je vois les choses.
J'ai essayé d'être le plus précis possible.

D'avance merci et pardonne moi si j'abuse.

Cordialement.

Philippe
 

Pièces jointes

Vote positif 0 Vote négatif
Re : insérer lignes si critères

Bonsoir Job75,

Pardonnez moi d'avoir laisser passer le week end avant de revenir,j e sais que chacun à une vie de famille et je respecte les week-end de chacun bien que moi je travaillais.
Néanmoins merci de votre aide je vais essayer de m'en sortir seul.
Excusez moi pour avoir abuser de votre temps la prochaine fois que je fais une demande j'essaierais d'être précis dès le départ
A+
 
Dernière édition:
Vote positif 0 Vote négatif
Re : insérer lignes si critères

Bonsoir le forum

Petit up à qui voudrais bien m'aider vu que Job75 ne désire plus poursuivre

Dans ma derniere demande à Job, je suis parvenue à résoudre le 1er point, reste le deuxième.

Vous joint mon fichier avec mon avancé

Cordialement à qui veux bien me venir en aide

Philippe

PS: Encore un grand merci à Job75 pour l'aide et le temps qu'il m'a accordé.
 

Pièces jointes

Vote positif 0 Vote négatif
Re : insérer lignes si critères

Bonjour fenec, le forum,

Malgré vos formules tordues je ne vais pas vous laisser mariner plus longtemps, voyez ceci :

Code: 
Sub Insereligne()
Dim code, c, cel As Range
code = Array("D712", "D727") 'les codes à traiter
Application.ScreenUpdating = False
Application.DisplayAlerts = False 'à cause des formules de liaison tordues...
For Each c In code
  Set cel = [B:B].Find(c, , xlValues, xlWhole, , xlPrevious)
  If Not cel Is Nothing Then
    cel(2).Resize(, 12).Insert xlDown
    cel.Resize(, 12).Copy cel(2)
    cel.Resize(, 12) = cel.Resize(, 12).Value 'supprime les formules
    cel(2, 4) = DateSerial(Year(cel(2, 4)) + 1, Month(cel(2, 4)), Day(cel(2, 4)))
    cel(2, 5) = DateSerial(Year(cel(2, 5)) + 1, Month(cel(2, 5)), Day(cel(2, 5)))
  End If
Next
End Sub
Fichier (5).

A+
 

Pièces jointes

Vote positif 0 Vote négatif
Re : insérer lignes si critères

Re,

Avec DateAdd c'est plus simple pour incrémenter les dates :

Code: 
Sub Insereligne()
Dim code, c, cel As Range
code = Array("D712", "D727") 'les codes à traiter
Application.ScreenUpdating = False
Application.DisplayAlerts = False 'à cause des formules de liaison tordues...
For Each c In code
  Set cel = [B:B].Find(c, , xlValues, xlWhole, , xlPrevious)
  If Not cel Is Nothing Then
    cel(2).Resize(, 12).Insert xlDown
    cel.Resize(, 12).Copy cel(2)
    cel.Resize(, 12) = cel.Resize(, 12).Value 'supprime les formules
    cel(2, 4) = DateAdd("yyyy", 1, cel(2, 4))
    cel(2, 5) = DateAdd("yyyy", 1, cel(2, 5))
  End If
Next
End Sub
Fichier (5 bis)

A+
 

Pièces jointes

Vote positif 0 Vote négatif
Re : insérer lignes si critères

Bonjour le forum, Job75

Déjà un grand merci pour avoir décidé de continuer à m’aider.

Ayant pris le temps de tester vos deux solutions dans mon fichier final, je n’ai rien à rajouté si ce n’est bravo.
C’est exactement ce que je souhaitais obtenir.
Il est vrai que mes formules sont tordues comme vous dites, mais je n’ai rien trouvé de plus simple et comme ce n’est qu’un fichier exemple pas facile de comprendre sans voir les liaisons.

Encore merci pour votre temps et votre patience vu mes demandes de plus en plus compliquées après chaque solution que vous n’ayez proposé.

Cordialement

Philippe

PS : Vous joindrais bien mon fichier en PV mais je ne sais comment faire.
 
Vote positif 0 Vote négatif
Re : insérer lignes si critères

Bonjour,

J'ai repris cette discution très intéressante car j'ai un projet similaire qui consiste à chaque donnée identifiée D712; D727 d'insérer une ligne supplémentaire par contre mon nombre de lignes en colonne B est indéfini
Avez vous une idée SVP
Merci, d'avance
A+
 

Pièces jointes

Vote positif 0 Vote négatif
Re : insérer lignes si critères [Résolu]

Bonjour BRUNO62,

Puisqu'il ne s'agit pas du même problème ouvrez une nouvelle discussion.

En joignant votre fichier avec la situation actuelle et le résultat attendu.

A+
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

M
  • Résolu(e)
XL pour MAC insérer un mini calendrier dans une cellule excel avec une liste déroulante
Réponses
11
Affichages
292
patricktoulon
J
  • Question Question
XL 2021 Tableau déroulant
Réponses
5
Affichages
279
job75
C
  • Question Question
Microsoft 365 Fonction si
Réponses
7
Affichages
223
Cathel
C
D
  • Résolu(e)
Microsoft 365 formule SIERREUR qui semble fausse
Réponses
6
Affichages
234
mapomme
N
  • Question Question
XL 2021 Affecter automatiquement une valeur dans une cellule en fonction d'une saisie dans une autre cellule
Réponses
9
Affichages
319
Nico Gre
N
E
  • Résolu(e)
Microsoft 365 Séparer une feuille Excel en deux partie complètement indépendantes ?
2
Réponses
20
Affichages
738
Elnono51
E
G
  • Question Question
Microsoft 365 Filtrer lignes par quart d'heures
2 3
Réponses
42
Affichages
2 K
Guiguidule62
G
G
  • Résolu(e)
Microsoft 365 Recherche avec 2 critères pour non vide et somme
Réponses
5
Affichages
295
gpion
G
C
  • Résolu(e)
XL 2021 Mise en forme MsgBox
2 3
Réponses
43
Affichages
1 K
Constantin
C
A
  • Résolu(e)
XL 2010 Sélectionner listbox selon choix Combobox
Réponses
3
Affichages
299
Appo1985
A
K
  • Résolu(e)
Autres Aide pour 2 formules
Réponses
5
Affichages
365
Kris1775
K
B
  • Résolu(e)
Microsoft 365 Recherche de plusieurs critères dans une cellule
2
Réponses
19
Affichages
808
Bambi35
B
R
  • Question Question
XL pour MAC ajouter une ligne au-dessus
Réponses
2
Affichages
152
rtlv17
R
Y
  • Question Question
XL 2021 Météo Backlogs
Réponses
4
Affichages
224
Yacine
Y
A
  • Résolu(e)
Microsoft 365 VBA_Copier coller selon des critères dans deux menus déroulants
Réponses
6
Affichages
385
Altfkat
A
C
  • Résolu(e)
XL 2021 MsgBox : Je ne sais pas faire...
Réponses
10
Affichages
185
Constantin
C
S
  • Question Question
Microsoft 365 Ventiler des données sur une année (sans TCD)
2
Réponses
25
Affichages
851
cathodique
U
  • Question Question
Autres [RÉSOLU] Comment faire masquer mes plages de cellules vides par macro
2
Réponses
17
Affichages
762
un internaute
U
P
  • Question Question
XL 2010 Calcul Heures Supp Nuit pour chauffeur routier
Réponses
2
Affichages
166
phoenix40
P
  • Résolu(e)
Autres Copier/ Coller plage de données dans une autre cellule d'un même onglet
Réponses
6
Affichages
470
fenec
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…