Discussion :

[vis896]

Bonjour à tous,

Je souhaiterais demander l'aide de la communauté pour la finalisation d'un document Excel.

En piece jointe, j'ai mis un fichier dans lequel on voit un premier tab "Situation Depart" et un second tab "Situation souhaitée".
Il me faudrais une macro qui puisse copier la ligne 4 et l'insérer (coller) a chaques fois que le mot "insert" apparait dans la colonne A.
Je l'ai fait manuellement dans le tab "Situation souhaitée" pour illustrer mon propos.


Pourriez vous m'aider, je suis autodidacte débutant en matiére de macro excel et je butte sur ce probléme.

Merci d'avance pour vos conseils :-)

[Pierre Fauconnier]

Salut.

Tu pourrais t'inspirer de ceci

Code vb :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub rowsCopy()
  Dim Source As Range ' Cellule de départ
  Dim Target As Range ' Celluel d'arrivée
 
  Set Source = Worksheets("Source").Range("a2") ' A adapter à ton cas
  Set Target = Worksheets("Target").Range("a2") ' A adapter à ton cas
 
  Do While Not IsEmpty(Source) ' Tant que la cellule en A n'est pas vide
    If Source.Value Like "*insert*" Then ' Si Source contient "insert"
      Source.Resize(1, 2).Copy Target ' on copie 2 cellules de la ligne (remplace 2 par le nombre de colonns à copier)
      Set Target = Target(2) ' On déplace Target d'une ligne vers le bas
    End If
    Set Source = Source(2) ' On déplace Source d'une ligne vers le bas
  Loop
End Sub

[vis896]

Pierre,

D'abord merci pour ta réponse.

J'ai essayé d'utilisé la macro que tu m'as proposé, mais elle ne semble pas fonctionnée.
En effet j'ai modifier mon fichier test en renomant la "Page situation" départ par "source" et en ajoutant une nouvelle page (copie de "source") que j'ai appeler "target".

J'ai aussi changer ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 Set Source = Worksheets("Source").Range("D4")
  Set Target = Worksheets("Target").Range("D4")

Quand je lance la macro il ne se passe rien...

Pourrais tu me dire si tu comprend pourquoi cette macro ne donne aucun changement sur ma page "target" ?

Merci pour ton aide

[Pierre Fauconnier]

Il faudrait que tu donnes le code utilisé

[vis896]

Voici ce que j'ai utilisé:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub rowsCopy()
  Dim Source As Range ' Cellule de départ
  Dim Target As Range ' Celluel d'arrivée
 
  Set Source = Worksheets("Source").Range("A2") ' A adapter à ton cas
  Set Target = Worksheets("Target").Range("A2") ' A adapter à ton cas
 
  Do While Not IsEmpty(Source) ' Tant que la cellule en A n'est pas vide
    If Source.Value Like "*insert*" Then ' Si Source contient "insert"
      Source.Resize(1, 2).Copy Target ' on copie 2 cellules de la ligne (remplace 2 par le nombre de colonns à copier)
      Set Target = Target(2) ' On déplace Target d'une ligne vers le bas
    End If
    Set Source = Source(2) ' On déplace Source d'une ligne vers le bas
  Loop
End Sub

[Pierre Fauconnier]

Il me semble que tu as mis pile poil mon code

Essaie en mode pas à pas (F8) pour voir ce qui passe sur chaque ligne. Essaie de bien comprendre le code que je t'ai donné, j'y ai mis des commentaires pour plus de facilité.

[vis896]

Pierre,

En effet le code que j'ai utlisé est le meme que celui que tu m'as envoyé. Cependant j'ai modifier mon fichier pour qu'il colle à ton code...mais ca ne focntionne pas.
Je pensais trouver une solution facile mais ca ne semble pas être aussi simple que je le pensais...

Tant pis je vais continuer a effectuer cette tache manuellement :-(

Merci en tout cas d'avoir proposer ton aide :-)

[Pierre Fauconnier]

Il pourrait être plus profitable que nous modifiions ensemble le code pour qu'il colle à ton classeur.