[OK]Macro_comment insérer des lignes

Discussions et dépannage concernant Excel (Toutes versions).

Modérateur : Modérateurs

Répondre
LANNIE
Membre hyperactif
Membre hyperactif
Messages : 1314
Enregistré le : 02 juin 2005, 23:00:00

[OK]Macro_comment insérer des lignes

Message par LANNIE » 03 déc. 2006, 17:50:02

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
Modifié en dernier par LANNIE le 11 déc. 2006, 17:04:17, modifié 1 fois.
Image

nouv
Membre actif
Membre actif
Messages : 277
Enregistré le : 02 juin 2005, 23:00:00
Localisation : Lyon

Message par nouv » 08 déc. 2006, 06:38:16

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
Membre hyperactif
Membre hyperactif
Messages : 1314
Enregistré le : 02 juin 2005, 23:00:00

Message par LANNIE » 09 déc. 2006, 11:52:31

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
Image

nouv
Membre actif
Membre actif
Messages : 277
Enregistré le : 02 juin 2005, 23:00:00
Localisation : Lyon

Message par nouv » 10 déc. 2006, 17:51:56

slt,

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

à+

LANNIE
Membre hyperactif
Membre hyperactif
Messages : 1314
Enregistré le : 02 juin 2005, 23:00:00

Message par LANNIE » 11 déc. 2006, 17:03:53

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

Répondre

Retourner vers « Excel »

Qui est en ligne

Utilisateurs parcourant ce forum : Aucun utilisateur enregistré et 4 invités