Copier des cellules et en faire une liste

Résolu/Fermé

Tiny61 Messages postés 17 Date d'inscription mardi 30 juin 2009 Statut Membre Dernière intervention 14 février 2012 - 1 juil. 2009 à 09:07
Tiny61 Messages postés 17 Date d'inscription mardi 30 juin 2009 Statut Membre Dernière intervention 14 février 2012 - 1 juil. 2009 à 13:45

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 !

A voir également:

Copier des cellules et en faire une liste
Liste déroulante excel - Guide
Copier une vidéo youtube - Guide
Excel additionner des cellules - Guide
Verrouiller des cellules excel - Guide
Liste déroulante en cascade - Guide

4 réponses

Réponse 1 / 4

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
1 juil. 2009 à 09:52

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

Réponse 2 / 4

eriiic Messages postés 24570 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 23 avril 2024 7 213
1 juil. 2009 à 10:08

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

Réponse 3 / 4

Tiny61 Messages postés 17 Date d'inscription mardi 30 juin 2009 Statut Membre Dernière intervention 14 février 2012
1 juil. 2009 à 12:30

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 ^^

Réponse 4 / 4

Tiny61 Messages postés 17 Date d'inscription mardi 30 juin 2009 Statut Membre Dernière intervention 14 février 2012
1 juil. 2009 à 13:45

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 !!

Discussions similaires

Dessiner avec son clavier et avec des lettres

liste de noms par ordre alphabétique

avoir la liste de tous les habitants d'une ville

Discussions similaires

Newsletters