Page 1 sur 1
[OK]Macro_comment insérer des lignes
Posté : 03 déc. 2006, 17:50:02
par LANNIE
Bonsoir à tous et à toutes,
J'ai un tableau avec des nombres et je voudrais créer une macro qui insérerait
* * des lignes (1 ligne sur 2)
* * le chiffre 5 dans les colonnes A, B, C, D et le chiffre 20 dans la colonne E
Félicitations à celui comprendra mon charabia, !
En tout cas merci
Posté : 08 déc. 2006, 06:38:16
par nouv
slt lannie,
bon pour l'insertion des lignes :
Code : Tout sélectionner
Sub sautdeligne()
'indication de cellule de depart
boucle:
ActiveCell.Offset(1, 0).Select 'selection de la ligne suivante
If Len(ActiveCell) = 0 Then Exit Sub 'si ligne vide fin programme
ActiveCell.EntireRow.Insert shift:=xlDown ' insertion ligne
ActiveCell.Offset(1, 0).Select 'selection de la ligne suivante
GoTo boucle 'retour au début du programme
End Sub
il suffit alors de te postionner sur l'une des cellules de la première ligne de ton tableau et d'exécuter la macro
heu ! pour les 5 et les 20, tu les veux dans les lignes céées par la macro précédente ?
sinon quelque chose du genre :
Code : Tout sélectionner
Sub valeurdecellule()
ActiveCell.Value = 5 'marque 5 sur cellule active
ActiveCell.Offset(0, 1).Value = 5 'marque 5 sur cellule à droite de cellule active
ActiveCell.Offset(0, 2).Value = 5 ' etc...
ActiveCell.Offset(0, 3).Value = 20
End Sub
il suffit de te positionner sur la 1ère cellule à gauche et de lancer la macro
et donc les deux mélangés :
Code : Tout sélectionner
Sub sautetvaleur()
boucle:
ActiveCell.Offset(1, 0).Select
If Len(ActiveCell) = 0 Then Exit Sub
ActiveCell.EntireRow.Insert shift:=xlDown
ActiveCell.Value = 5
ActiveCell.Offset(0, 1).Value = 5
ActiveCell.Offset(0, 2).Value = 5
ActiveCell.Offset(0, 3).Value = 20
ActiveCell.Offset(1, 0).Select
GoTo boucle
End Sub
Attention a bien sélectionner la 1ère cellule à gauche du tableau avant de lancer la macro
Posté : 09 déc. 2006, 11:52:31
par LANNIE
Merci Nouv pour tes infos mais peux-tu me dire comment je dois faire pour écrire la macro
Outils / Macro / visual basic éditor
Et puis ? Là je suis bloquée
Merci à toi
Posté : 10 déc. 2006, 17:51:56
par nouv
slt,
la ptite chose qui manque après c'est Insertion Module
et là tu peux faire un copier coller
à+
Posté : 11 déc. 2006, 17:03:53
par LANNIE
Super, ça roule !
Un grand merci nouv pour ton aide
Bonne semaine