Insertion et copie macro ExcelRésolu

Question

Bonjour,

Je souhaite par une macro Excel, modifier mon fichier. J'ai très peu de connaissance VB 6, et je n'arrive pas à finaliser ma macro.
Lorsque ma colonne E commence par 6 j'insère une ligne en dessous, ça, j'y arrive  :
  Dim lig As Long
  Range("E2").Select
  reprise:
 ActiveCell.Offset(1, 0).Select
 If Len(ActiveCell) = 0 Then Exit Sub
 If Left(ActiveCell.Value, 1) = "6" Then
 ActiveCell.Rows("2:2").EntireRow.Insert Shift:=xlDown
 ActiveCell.Offset(1, 0).Select
 End If
 GoTo reprise

Mais je veux ensuite que ma ligne où il y a le 6, se copie sur la ligne que je viens d'insérer et qu'il me "saisisse" sur cette même ligne dans la colonne G : "Toto".
Et là je bloque sur la copie de ma ligne !!!

Merci de votre aide

dedenet2 · Accepted Answer

Bonjour ,

Voici pour la copy dela ligne:

  Dim lig As Long
  
  Range("E2").Select
reprise:
 ActiveCell.Offset(1, 0).Select
 If Len(ActiveCell) = 0 Then Exit Sub
 If Left(ActiveCell.Value, 1) = "6" Then
 ActiveCell.Rows("2:2").EntireRow.Insert Shift:=xlDown
 'Copie de toute la ligne
 Range("a" & ActiveCell.Row & ":" & "iv" & ActiveCell.Row).Copy _
 Range("a" & ActiveCell.Row + 1 & ":" & "iv" & ActiveCell.Row + 1)
 
 ActiveCell.Offset(1, 0).Select
 End If
 GoTo reprise
-------------------------------------------------

A++

bigfish_le vrai · Answer

Salut,

en plus simple et plus court :

  Dim lig As Long
  Range("E2").Select
  reprise:
     ActiveCell.Offset(1, 0).Select
     If Len(ActiveCell.Value) = 0 Then Exit Sub
     If Left(ActiveCell.Value, 1) = "6" Then
         Rows(ActiveCell.Row).Copy 'copie de la ligne de la cellule active
         Rows("2").Insert Shift:=xlDown 'insertion et collage simultané
         ActiveCell.Offset(1, 0).Select
     End If
 GoTo reprise

A+

cs_catbou · Answer

Merci, c'est super génial ça marche. Je vais utiliser la seconde réponse qui est plus simple.

cs_catbou · Answer

Merci, c'est super génial ça marche.
J'avais essayé cette solution mais en mettant ma ligne de copie après Activecell.offset et rien ne se passait....

jrivet · Answer

Salut,
>[../auteur/CATBOU/1481804.aspx catbou] : Si tu estimes que ton problème est résolu, penses à appuyer sur réponse acceptée sur le OU les posts qui t'ont aider à avancer.

@+: Ju£i€n
Pensez: Réponse acceptée

Insertion et copie macro Excel

5 réponses

Votre réponse

Discussions similaires