demande aide.. insertion de lignes.

[laurent68]

Salut à tous, je suis assez novice au sujet d'excel, voici ma demande:

j'ai une suite de mots listée dans une colonne de 1 à 100.

Est-il possible d'inserer toute les 4 lignes une ligne vierge, ou encore mieux un ligne comprenant un mot défini.

ex:
1mots
2mots
3mots
4xxx
5mots
6mots
7mots
8xxx

etc...


Merci pour votre aide!!

Laurent.

 

[charli]

bonjour
un petit bout de fichier serait pratique!
@+
charli

 

[Philippe]

Salut charli,

utilise ton éditeur de macro, il va te pondre le code d'insertion tout seul....

:woohoo:

A+
Philippe

 

[dg62]

Bonjour laurent 68

Sub insere()

decal = 4
Do While Range('A1').Offset(decal, 0).Value > ''
    Range('A1').Offset(decal, 0).Select
    Selection.EntireRow.Insert
     Range('A1').Offset(decal, 0).Value = '-------'
     decal = decal + 5
Loop
End Sub

Message édité par: dg62, à: 02/04/2005 16:42

Message édité par: dg62, à: 02/04/2005 16:45

 

[ChTi160]

salut'Laurent68,Philippe,dg62'
en pièce jointe une variante adaptée du code de dg62 [file name=Insert_Row.zip size=7209]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Insert_Row.zip[/file]

 

[Philippe]

Ou bien (juste pour le fun...)

J'ai coloré les lignes insérées en rouge (pour qu'on les voies bien 🙂 )

Sub ins()
For c = 1 To 100
Range('A' & c).Value = c
Next
For c = 4 To 125 Step 5
Range('A' & 1 + c).EntireRow.Insert
Range('A' & 1 + c).Interior.ColorIndex = 3
Next
End Sub

C'est simple et efficace, en sachant que seules les lignes de code en bleu suffisent; le reste c'est pour la mise en place de l'exemple et la coloration. 3 lignes de code 😛

A+
Philippe

 

[laurent68]

Merci à tous pour vos réponses.. mais hélas, je suis comme dejà précisé, novice en la matière.. les codes c'est cool mais comment les utiliser??

Merci vraiment pour votre patience!!!

 

[Temjeh]

Bonsoir laurent68

Tu va dans Visualbasic(Alt+F11)
Tu clic à droite sur workbook en haut à gauche
..nouveau module
...copier/coller dans la fenêtre de droite

Et voilà tu as une nouvelle macro!

A++

Temjeh

 

[dg62]

Bonjour TemJeh et toute la troupe de forumeurs


Pour executer la macro : Outils Macro Macros..

Choisir la macro et Executer