[OK]Macro_comment insérer des lignes

[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

[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

[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

[nouv]

slt,

la ptite chose qui manque après c'est Insertion Module
et là tu peux faire un copier coller

à+

[LANNIE]

Super, ça roule !
Un grand merci nouv pour ton aide
Bonne semaine