Code VBA pour inserer 4 lignes sous une condi
Fermé
lazvb
Messages postés
4
Date d'inscription
jeudi 9 juin 2011
Statut
Membre
Dernière intervention
10 juin 2011
-
9 juin 2011 à 17:50
lazvb Messages postés 4 Date d'inscription jeudi 9 juin 2011 Statut Membre Dernière intervention 10 juin 2011 - 10 juin 2011 à 16:18
lazvb Messages postés 4 Date d'inscription jeudi 9 juin 2011 Statut Membre Dernière intervention 10 juin 2011 - 10 juin 2011 à 16:18
A voir également:
- Code VBA pour inserer 4 lignes sous une condi
- Insérer une vidéo dans powerpoint - Guide
- Code gta 4 ps4 - Guide
- Insérer signature word - Guide
- Insérer liste déroulante excel - Guide
- Code asci - Guide
4 réponses
melanie1324
Messages postés
1504
Date d'inscription
vendredi 25 mai 2007
Statut
Membre
Dernière intervention
31 janvier 2018
154
10 juin 2011 à 08:47
10 juin 2011 à 08:47
Bonjour,
sub inerserlignes ()
sheets("feuilleoutuveuxagor").select 'remplaces feuilleoutuveuxagir par ton nom de feuille
i = 1 'va commencer la recherche en 1ère ligne de la colonne F
do while cells(i,6) <> "" ' va rechercher à la ligne i dans la colonne F. Attention, il ne doit pas y avoir de trou dans ta colonne. Si tel est le cas remplace 6 par le chiffre d'une colonne qui est toujours remplie
if cells(i,6) = "5BU"
rows(i).copy
range(rows(i+1),rows(i+4)).select
Selection.Insert Shift:=xlDown
cells(i,6) = 1
cells(i+1,6) = 2
cells(i+2,6) = 3
cells(i+3,6) = 4
cells(i+4,6) = 5
range(cells(i,3),cells(i+2,3)) = "25%"
range(cells(i+3,3),cells(i+4,3)) = "12,5%"
i=i+4
end if
i=i+1
loop
end sub
sub inerserlignes ()
sheets("feuilleoutuveuxagor").select 'remplaces feuilleoutuveuxagir par ton nom de feuille
i = 1 'va commencer la recherche en 1ère ligne de la colonne F
do while cells(i,6) <> "" ' va rechercher à la ligne i dans la colonne F. Attention, il ne doit pas y avoir de trou dans ta colonne. Si tel est le cas remplace 6 par le chiffre d'une colonne qui est toujours remplie
if cells(i,6) = "5BU"
rows(i).copy
range(rows(i+1),rows(i+4)).select
Selection.Insert Shift:=xlDown
cells(i,6) = 1
cells(i+1,6) = 2
cells(i+2,6) = 3
cells(i+3,6) = 4
cells(i+4,6) = 5
range(cells(i,3),cells(i+2,3)) = "25%"
range(cells(i+3,3),cells(i+4,3)) = "12,5%"
i=i+4
end if
i=i+1
loop
end sub
lazvb
Messages postés
4
Date d'inscription
jeudi 9 juin 2011
Statut
Membre
Dernière intervention
10 juin 2011
10 juin 2011 à 11:42
10 juin 2011 à 11:42
Bonjour Mélanie 1324
Je te remercie pour ta réponse
effectivement dans la colonne f il y a des trou, et je l'ai remplacé par la col M, et j'ai remplacé ds le code le 6 par 13, (nom de ma feuille est Trait Integ )
mais il me sort erreur de syntaxe, STP si tu peux jeter un coup d'oeil
Sub inerserlignes() ici selectionner en jaune
Sheets("Trait Integ").Select 'remplaces feuilleoutuveuxagir par ton nom de feuille
i = 1 'va commencer la recherche en 1ère ligne de la colonne F
Do While Cells(i, 13) <> "" ' va rechercher à la ligne i dans la colonne M. Attention, il ne doit pas y avoir de trou dans ta colonne. Si tel est le cas remplace 6 par le chiffre d'une colonne qui est toujours remplie
if cells(i,13) = "5BU" ici la couleur de la police en rouge
Rows(i).Copy
Range(Rows(i + 1), Rows(i + 4)).Select
Selection.Insert Shift:=xlDown
Cells(i, 13) = 1
Cells(i + 1, 13) = 2
Cells(i + 2, 13) = 3
Cells(i + 3, 13) = 4
Cells(i + 4, 13) = 5
Range(Cells(i, 3), Cells(i + 2, 3)) = "25%"
Range(Cells(i + 3, 3), Cells(i + 4, 3)) = "12,5%"
i = i + 4
End If
i = i + 1
Loop
End Sub
je te remercie
Je te remercie pour ta réponse
effectivement dans la colonne f il y a des trou, et je l'ai remplacé par la col M, et j'ai remplacé ds le code le 6 par 13, (nom de ma feuille est Trait Integ )
mais il me sort erreur de syntaxe, STP si tu peux jeter un coup d'oeil
Sub inerserlignes() ici selectionner en jaune
Sheets("Trait Integ").Select 'remplaces feuilleoutuveuxagir par ton nom de feuille
i = 1 'va commencer la recherche en 1ère ligne de la colonne F
Do While Cells(i, 13) <> "" ' va rechercher à la ligne i dans la colonne M. Attention, il ne doit pas y avoir de trou dans ta colonne. Si tel est le cas remplace 6 par le chiffre d'une colonne qui est toujours remplie
if cells(i,13) = "5BU" ici la couleur de la police en rouge
Rows(i).Copy
Range(Rows(i + 1), Rows(i + 4)).Select
Selection.Insert Shift:=xlDown
Cells(i, 13) = 1
Cells(i + 1, 13) = 2
Cells(i + 2, 13) = 3
Cells(i + 3, 13) = 4
Cells(i + 4, 13) = 5
Range(Cells(i, 3), Cells(i + 2, 3)) = "25%"
Range(Cells(i + 3, 3), Cells(i + 4, 3)) = "12,5%"
i = i + 4
End If
i = i + 1
Loop
End Sub
je te remercie
melanie1324
Messages postés
1504
Date d'inscription
vendredi 25 mai 2007
Statut
Membre
Dernière intervention
31 janvier 2018
154
10 juin 2011 à 14:14
10 juin 2011 à 14:14
Sub inerserlignes() ici selectionner en jaune
Sheets("Trait Integ").Select 'remplaces feuilleoutuveuxagir par ton nom de feuille
i = 1 'va commencer la recherche en 1ère ligne de la colonne F
Do While Cells(i, 13) <> "" ' va rechercher à la ligne i dans la colonne M. Attention, il ne doit pas y avoir de trou dans ta colonne. Si tel est le cas remplace 6 par le chiffre d'une colonne qui est toujours remplie
if cells(i,13) = "5BU" then 'ici la couleur de la police en rouge
Rows(i).Copy
Range(Rows(i + 1), Rows(i + 4)).Select
Selection.Insert Shift:=xlDown
Cells(i, 13) = 1
Cells(i + 1, 13) = 2
Cells(i + 2, 13) = 3
Cells(i + 3, 13) = 4
Cells(i + 4, 13) = 5
Range(Cells(i, 3), Cells(i + 2, 3)) = "25%"
Range(Cells(i + 3, 3), Cells(i + 4, 3)) = "12,5%"
i = i + 4
End If
i = i + 1
Loop
End Sub
Sheets("Trait Integ").Select 'remplaces feuilleoutuveuxagir par ton nom de feuille
i = 1 'va commencer la recherche en 1ère ligne de la colonne F
Do While Cells(i, 13) <> "" ' va rechercher à la ligne i dans la colonne M. Attention, il ne doit pas y avoir de trou dans ta colonne. Si tel est le cas remplace 6 par le chiffre d'une colonne qui est toujours remplie
if cells(i,13) = "5BU" then 'ici la couleur de la police en rouge
Rows(i).Copy
Range(Rows(i + 1), Rows(i + 4)).Select
Selection.Insert Shift:=xlDown
Cells(i, 13) = 1
Cells(i + 1, 13) = 2
Cells(i + 2, 13) = 3
Cells(i + 3, 13) = 4
Cells(i + 4, 13) = 5
Range(Cells(i, 3), Cells(i + 2, 3)) = "25%"
Range(Cells(i + 3, 3), Cells(i + 4, 3)) = "12,5%"
i = i + 4
End If
i = i + 1
Loop
End Sub
lazvb
Messages postés
4
Date d'inscription
jeudi 9 juin 2011
Statut
Membre
Dernière intervention
10 juin 2011
10 juin 2011 à 16:18
10 juin 2011 à 16:18
JE TE REMERCIE DE TON AIDE
BONNE CONTINUATION
BONNE CONTINUATION