copier des données dans un tableau Résolu

Question

Bonjour et merci à qui voudra me venir en aide !
voilà le problème :
je crée des menus déroulants afin de chercher une données (12 menus) et je souhaiterais créer une macro ou une astuce pour que une fois toutes les données sélectionnées, elles se copient dans des colonnes distinctes dans une autre feuille-bilan.
ex données menu 1 dans colonne 1 de la feuille bilan
données menu 2 dans colonne 2 de la feuille bilan 

j'espère être clair dans dans mon explication.
si quelqu'un peut m'aider j'aurais une autre question qui viendra ensuite !

merci d'avance

Le Pingou · Answer

Bonjour,
Eh bien j'ai une première question, quelle est la prochaine question ?

Le Pingou · Answer

Bonjour,
Est-ce que cet exemple vous convient pour la partie 2 : https://www.cjoint.com/?bmrJ3Zqpi0

Note: pour la question 1, comment se présente la feuille avec les divers menus déroulants et où se trouvent les données qui alimentes les menus?

Le Pingou · Answer

Bonjour,
Merci pour les informations.
Avant de poursuivre il me serait agréable de savoir si mon exemple résout la question 2 ?
J'attends.

Le Pingou · Answer

Bonjour,
A défaut de votre réponse sur mon premier exemple voici ma proposition : https://www.cjoint.com/?bmwls8ABUn

Le Pingou · Answer

Bonjour,
Je veux bien vous détailler la procédure mais dans un premier temps je vous propose de faire une copie d’écran de vos 2 feuilles à mettre sur https://www.cjoint.com/ , se qui me permettra d’orienté les explications dans le bon sens.
Merci de votre réponse.

Le Pingou · Answer

Bonjour,
La procédure commentée, j'espère que se sont les rames pour la galère ... :
Sub CopierSurAutreFeuille_LD()
Dim li As Long, nbli As Long, lideb As Long
lideb = 6 'Numéro de la premiére ligne des données (liste déroulante)
nbli = WorksheetFunction.CountA(Range("A" & lideb & ":A100")) 'Calculer le nombre de ligne à copier
If nbli = 0 Then Exit Sub 'Sortir de la procédure si le nombre de ligne est égal à zézo
Range("A" & lideb & ":F" & lideb + nbli - 1).Copy ' Copier la plage de données
Application.ScreenUpdating = False
With Sheets("bilan") 'Appliquer une série d'instructions à l'objet indiqué (feuille [bilan])
li = .Range("a5000").End(xlUp).Offset(1, 0).Row ' Numéro de la première ligne vide
    .Range("A" & li).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
    SkipBlanks:=False, Transpose:=False ' coller que les valeurs de la plage copier.
End With
Application.ScreenUpdating = True
Range("A" & lideb & ":F" & lideb + nbli - 1).ClearContents ' Réinitialiser la plage de données sur vide
MsgBox ("La/les " & (nbli) & " ligne/s est/sont copiée/s sur la feuille [Lignecoller]") ' petit message de confirmation du traitement
End Sub

Le Pingou · Answer

Bonjour,
concernant : 
je vous envoie la copie d'écran de mon travail  c'est introuvable !

tout d'abord, si je comprends bien je dois dans la feuille "mes listes" créer des listes en suivant vos instructions : définir un nom. Oui si vous adoptez le principe de centraliser les listes sur une feuille uniquement dans se but.

Ensuite à quoi correspondent les variables déclarées : li, nbli, livide  Eh bien se sont des variables : voir l'explication à droite de la ligne de code.

Le Pingou · Answer

Bonsoir,
Alors c'est super, merci pour le lien.
Par contre au vu de la disposition de vos données sur votre feuille [données] il faut modifier ma procédure dans se sens.
Merci de remplacer par cette nouvelle procédure; directement dans le document [Maître] :
Sub CopierSurAutreFeuille_LD()
Dim li As Long, nbli As Long, lij1 As Long, lij2 As Long
lij1 = 11 'ligne des données joueur 1
lij2 = 17 'ligne des données joueur 2

If Cells(lij1, 2) = "" Or Cells(lij2, 2) = "" Then
    MsgBox ("Le nom des 2 joueurs doit être présent" & Chr(13) & "Merci de corriger !")
    Exit Sub 
End If
Application.ScreenUpdating = False
With Sheets("feuilbilan")
    li = .Range("a5000").End(xlUp).Offset(1, 0).Row
    Range("B" & lij1 & ":O" & lij1).Copy 
    .Range("A" & li).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
    SkipBlanks:=False, Transpose:=False 
        Range("B" & lij2 & ":O" & lij2).Copy 
        .Range("A" & li + 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
End With
Range("B" & lij1 & ":O" & lij1).ClearContents
Range("B" & lij2 & ":O" & lij2).ClearContents
MsgBox ("Les 2 lignes sont copiées sur la feuille [FEUILBILAN]")
Application.ScreenUpdating = True
End Sub--

Salutations.
Jean-Pierre

Le Pingou · Answer

Bonjour,
Comme vous avez parlez de copier 2 lignes vers une autre feuille sans plus de précision, on copie les valeurs de ses lignes, sous–entendu que les formules ont remplies leurs fonctions et ne sont plus nécessaires.
Désolé, je ne pouvais pas prévoir les détails que vous exposez.

Le Pingou · Answer

Bonjour,
Merci pour le message.

Aucun problème pour vous aider, mentionné exactement les cellules  que vous voulez sur la feuille [feuilbilan] en prenant comme base la copie d’écran que vous avez mise à disposition (exemple B11, C11 ,….B17, C17 …etc.)

On copie les valeurs et non les formules Oui ou Non ?

Merci de mettre la copie écran de ma feuille bilan.

Le Pingou · Answer

Bonjour,
Directement dans votre classeur [EVA TT TERM] remplacer l’ancienne procédure cette nouvelle version:
Sub CopierSurAutreFeuille_04()
Dim li As Long, lij1 As Long, lij2 As Long, libi As Long
lij1 = 11 'ligne des données joueur 1
lij2 = 17 'ligne des données joueur 2
libi = 6 ' Première ligne après titre de colonne
If Cells(lij1, 2) = "" Or Cells(lij2, 2) = "" Then
    MsgBox ("Le nom des 2 joueurs doit être présent" & Chr(13) & "Merci de corriger !")
    Exit Sub 'Sortir de la procédure
End If
Application.ScreenUpdating = False
With Sheets("bilan") 'Appliquer une série d'instructions à l'objet indiqué
    li = .Range("a5000").End(xlUp).Offset(1, 0).Row ' Numéro de la première ligne vide
    Range("B11:C11,F11:G11,K11:O11").Copy ' Copier la plage de données
    .Range("A" & li).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
    SkipBlanks:=False, Transpose:=False ' coller que les valeurs de la plage copier
        Range("B17:C17,F17:G17,K17:O17").Copy ' Copier la plage de données
        .Range("A" & li + 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False ' coller que les valeurs de la plage copier
End With
Range("B11:C11,K11:N11,B17:C17,K17:N17").ClearContents ' Réinitialiser la plage de données sur vide
Range("AM11:AN11,AM13:AN13") = 0
MsgBox ("Les 2 lignes sont copiées sur la feuille [FEUILBILAN]") ' petit message de confirmation du traitement
Application.ScreenUpdating = True
End Sub

Le Pingou · Answer

Bonjour,
Concerne: postes 23/24
Eh bien pour les listes on les nomme et de cette manière on peut utiliser le nom lors de la validation de liste dans n’importe quelle feuille du classeur.
http://www.cijoint.fr/cjlink.php?file=cj201001/cijg99jbAZ.xls
Je vous ai mis un petit complément d’information voir feuilles [données] et [MesListes] et surtout lisez bien l'encadré jaune de la feuille [MesListes] pour comprendre le pourquoi de cette manière de faire (poste 23).

Le Pingou · Answer

Bonjour,
Merci pour l'information. 
Je suis content que cela marche pour votre fichier.
Concernant le futur, je prêterai une attention particulière en voyant votre pseudo.
Au cas ou un MP est possible pour attirer mon attention.

Copier des données dans un tableau

13 réponses

Discussions similaires

Newsletters