insertion lignes avec condition

[pattie1505]

Bonjour à tous,

Je ne sais pas comment ajouter une ligne automatiquement dans un classeur déjà construit. Car il fait un peu plus de 3000 lignes et je risque de passer beaucoup de temps si je suis obligé de le faire manuellement.
Ma demande est plus explicite à l'intérieur du fichier joint.
Je profite de cette occasion pour remercier en particulier à Monique pour son aide de la semaine dernière sur Sommeprod.
Merci à tous par avance.

 

[GeoTrouvePas]

Re : insertion lignes avec condition

Bonjour,

Ton fichier est au format ".xlxs". Si tu veux avoir plus de chance de recevoir de l'aide, tu ferais mieux de le poster au format ".xls" car tout le monde n'est pas équipé des dernières versions d'Office.

 

[gilbert_RGI]

Re : insertion lignes avec condition

Bonjour à tous,

Je ne sais pas comment ajouter une ligne automatiquement dans un classeur déjà construit. Car il fait un peu plus de 3000 lignes et je risque de passer beaucoup de temps si je suis obligé de le faire manuellement.
Ma demande est plus explicite à l'intérieur du fichier joint.
Je profite de cette occasion pour remercier en particulier à Monique pour son aide de la semaine dernière sur Sommeprod.
Merci à tous par avance.

bonjour

selectionner les cellules au dessus desquelles les cellules devront être inserées
clique droit de la souris
dans le déroulant choisir inserer
dans la boite de dialogue suivante choisir décaler les cellules vers le bas
🙄

 

[Paritec]

Re : insertion lignes avec condition

Bonsoir mexcellent le forum
a+
papou 🙂

Sub insérer()
    Dim i&, fin&
    fin = Feuil1.Range("A65536").End(xlUp).Row
    For i = fin To 2 Step -1
        If Cells(i, 3) = "PAR" Then Range(Cells(i, 1), Cells(i, 8)).Insert shift:=xlDown
    Next i
End Sub