Copier des cellules et en faire une liste Résolu

Question

Bonjour,

Voila le problème détaillé : est il possible de créer une macro pour que, lorsque que je clique sur un bouton :
- Sur la feuille 1 je copie les cellules : K7, M12, F13, P13, E17, Q17, E20, Q20, E21, Q21, H22, N22, H26, N26, H31 et enfin N31
- C'est cellules sont retranscrites sur la feuille 2 sous forme d'une ligne à partir de B3
- Cette ligne est copiée puis collée en B5
- Les cellule de la feuille 1 redeviennent vierges, je peut ainsi les renseigner une nouvelle fois, puis copier la ligne B3 feuille 2 et la coller en B6, ainsi de suite de manière à obtenir une liste de ligne...

Possible ça ?

J'ai office XP : excel 2002 avec vba 6.3

Merci d'avance pour votre aide !

michel_m · Answer

Salut tiny
cette macro te montre le principe:. complète avec les cellules manquantes de la feuille de saisie
Tu peux mettre le bouton sur n'importe quelle feuille.

Sub compiler()
Dim lig As Long

With Sheets(2)
    'on teste si c'est la 1° opération: B5 est il vide?
    If IsEmpty(.Range("B5")) Then
        lig = 5
    Else
        '1° ligne vide
        lig = .Range("B65536").End(xlUp).Row + 1
    End If
    'on tranfère les valeurs des cellules de la ligne B3 dans la 1° ligne vide
    .Range(.Cells(lig, 2), .Cells(lig, 17)) = .Range("B3:Q3").Value
End With

With Sheets(1)
'on nettoie la feuille de saisie à complèter avec les 13 cellules restantes (ne pas oublier les points devant range)
plage = Union(.Range("K7"), .Range("M12"), .Range("F13")).ClearContents
End With

MsgBox "les données ont été archivées en feuille2"
End Sub

eriiic · Answer

Bonjour tiny, bonjour michel,

Ah, j'arrive avec un metro de retard... :-)
Voilà quand même ma réponse : tiny61.xls
Comme michel, je n'ai fait que qcq cellules...

Bonne journée à tous
eric

Tiny61 · Answer

merci à vous deux pour votre aide, je vais tester tout ça dans la journée et je vous tiens au jus !

C'est bien de savoir qu'il y a encore un peu de solidarité dans ce monde de rise ^^

Tiny61 · Answer

CA A L'AIR DE MARCHER ! il me reste plus qu'à modifier un peu la macro pour que toutes mes cellules soient prises en compte et c'est bon, encore merci !!

Copier des cellules et en faire une liste

4 réponses

Votre réponse

Discussions similaires

Newsletters