Help macro

[choupi_nette]

Bonjour tout le monde...
Dans le fichier joint, j'ai une macro... mais n'en tenez pas compte.
Je souhaite avoir une macro qui va agir avant celle qui sont presentes dans les modules.

Ici le sujet est le tableau G22:R29 de l'onglet 1. Ce qui est important c'est que ce tableau peut etre rempli mais pas forcement dés le debut (G22)

Ce que je souhaite c'est que dans ce tableau recuperer les valeurs et les coller dans l'ordre de A2 à Ax

Une fois ceci terminé coller a la suite et sans espace (Colonne A:A) les donnees qui sont dans le tableau M14:R17
Et c'est tout
Apres tout le reste est deja fait et fonctionne bien

Meri pour votre aide

Choupi

 

[dra72]

Re : Help macro

Bonsoir choupi-nette,

Fatigué ce soir et pas sûr d'avoir tout compris.

Je te propose néanmoins ceci:

Private Sub Transfert()

Dim R As Range
Dim R1 As Range
Dim L As Long

L = 1
Set R1 = Range("G22:R29")
For Each R In R1
  If R.Value <> "" Then
    L = L + 1
    Cells(L, 1).Value = R
  End If
Next

Set R1 = Range("M14:R17")
For Each R In R1
  If R.Value <> "" Then
    L = L + 1
    Cells(L, 1).Value = R
  End If
Next

End Sub

Bonne soirée.

 

[choupi_nette]

Re : Help macro

Pour quelqu'un de fatigué c'est plutot tres tres bien
Merci beaucoup
Bonne soiree
Choupi