insertion lignes avec condition

Paritec

XLDnaute Barbatruc

• 24 Novembre 2010

• #2

Re : insertion lignes avec condition

re mexcellent le forum
a+
Papou 🙂

 

Pièces jointes

• Insert lignes.zip

  30 KB · Affichages: 31
• Insert lignes.zip

  30 KB · Affichages: 31
• Insert lignes.zip

  30 KB · Affichages: 30

Vote positif 0 Vote négatif

B

ballmaster

XLDnaute Occasionnel

• 24 Novembre 2010

• #3

Re : insertion lignes avec condition

Slt paritec,

toute petite modification de ton code :

il souhaitait l'insertion sous le critère et non au -dessus

Code:

Option Explicit

Sub traiter()
    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([B]i + 1[/B], 1), Cells([B]i + 1[/B], 8)).Insert shift:=xlDown
    Next i
End Sub

a plouche

 

Vote positif 0 Vote négatif

B

ballmaster

XLDnaute Occasionnel

• 24 Novembre 2010

• #4

Re : insertion lignes avec condition

Paritec !, STP

Question de débutant,

je serais ainsi moins ignare ce soir que ce matin.

Pourquoi mettre le sigle & à la fin de chaque variable, quand tu les déclare ?? 😕

Merci

 

Vote positif 0 Vote négatif

Paritec

XLDnaute Barbatruc

• 24 Novembre 2010

• #5

Re : insertion lignes avec condition

Bonsoir ballmaster mexcellent
alors c'est tout simple je déclare mes variables en long
et au lieu d'écrire dim i as long dim i& veut dire la même chose
de même dim i as integer s'écrit aussi dim i%
en sachant que notre tableur chéri aujourd'hui ne considère plus les integer donc % et passe systématiquement en Long donc pour gagner du temps je passe tout de suite en long
de même dim i # = dim i as double dim i$ = dim i as string
bonne soirée
papou 🙂

PS: pour ballmaster , oui pour l'ajout de ligne au dessus ou au dessous moi je n'avais rien vu de précis à ce sujet enfin j'ai pas relu dix fois non plus!!

 

Vote positif 0 Vote négatif

P

pattie1505

XLDnaute Junior

• 25 Novembre 2010

• #6

Re : insertion lignes avec condition

Bonjour Paritec,

Merci pour ta réponse mais je suis tellement nul que je n'arrive pas l'appliquer dans le fichier original d'une part et peut-on supprimer le bouton macro "traiter" pour passer par la fenêtre macro avec le bouton executer.

 

Vote positif 0 Vote négatif

Paritec

XLDnaute Barbatruc

• 25 Novembre 2010

• #7

Re : insertion lignes avec condition

Bonsoir mexcellent,
bon alors pas simple, car tu dis ne pas être capable d'utiliser la macro dans ton classeur et là ou j'ai automatisé, tu souhaites le rendre manuel!!!!
que te dire est-ce que l'on peut retirer le bouton, réponse OUI
est-ce que tu peux lancer la macro Traiter avec la fenêtre des macro exécuter réponse OUI
et j'ajoute que tu peux le faire même s'il y a encore le bouton
a+
papou 🙂

 

Vote positif 0 Vote négatif