[Déplacé .Net -- VBA] Aller chercher information dans un onglet sans ouvrir l'oRésolu

Question

Bonjour, je cherhce le moyen d'aller chercher de l'information dans un onglet et d'aller le coller dans un autre onglet sans être obliger d'ouvrir l'onglet de d'estination. J'ai fait un macro pour faire cela. Le tout dans le même fichier. Voici une partie de mon code:

Private Sub Recherche_Click()


    Sheets("Contrats").Select
    Application.Goto Contrats.Cells(2, 1)
    Selection.Copy
    Sheets("Resultat").Select
    Application.Goto Resultat.Cells(16, 2)
    ActiveSheet.Paste



End Sub

Merci de votre aide

GuillaumeUltratec

cs_Jack · Accepted Answer

Salut
Apprends à utiliser les bons termes : Tes onglets sont des feuilles.
Oui, tu dois pouvoir faire de la programmation et pas du copier-coller :
Sheets("Resultat").Cells(16, 2).Formula = Sheets("Contrats").Cells(2, 1).Formula
Formula ou Value, tout dépend ce que tu veux copier

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)

guillaumeultratec · Answer

Merci pour la réponse. Pour le nom, c'est de cette façon que le prof nous indiquait le nom des feuilles lors du cours que j'ai reçu. Pour les prochaine fois je vais les nommées de la bonne façon. Merci de me donner les bonne informations.
GuillaumeUltratec

guillaumeultratec · Answer

Bonjour, j'ai essayer sa solution et cela ne donne pas le résultat souhaité. Je reformule: je voudrais faire activé des filtres sur une autre feuille dans un fichier Excel sans être obliger d'activé la feuille en question. J'ai essayer de le faire de la même façon que les copies d'information. Cela n'a pas fonctionné. Voici mon code: Private Sub HeuresProductions_Click() Vendeur = "Alain Blanchette" OngletPorter = "Alain" Sheets("Contrats").Select Selection.AutoFilter field:=1, Criteria1:=">=10/01/2009", Operator:=xlAnd, Criteria2:="<=10/31/2009" Selection.AutoFilter field:=2, Criteria1:=Vendeur 'Copie les données des extra pour chaqu'un des produits Sheets("Extra").Select Selection.AutoFilter field:=1, Criteria1:=">=10/01/2009", Operator:=xlAnd, Criteria2:="<=10/31/2009" Selection.AutoFilter field:=2, Criteria1:=Vendeur Sheets("Resultat").Cells(8, 8).Formula = "=(SUBTOTAL(3,Extra!C))-1" Sheets("Resultat").Cells(8, 8).Value = Sheets("Resultat").Cells(8, 8).Value Selection.AutoFilter field:=6, Criteria1:="Poutres" Sheets("Resultat").Cells(8, 2).Formula = "=SUBTOTAL(9,Extra!C[5])" Sheets("Resultat").Cells(8, 2).Value = Sheets("Resultat").Cells(8, 2).Value Selection.AutoFilter field:=6, Criteria1:="Poutrelle" Sheets("Resultat").Cells(8, 3).Formula = "=SUBTOTAL(9,Extra!C[4])" Sheets("Resultat").Cells(8, 3).Value = Sheets("Resultat").Cells(8, 3).Value Selection.AutoFilter field:=6, Criteria1:="Mur" Sheets("Resultat").Cells(8, 4).Formula = "=SUBTOTAL(9,Extra!C[3])" Sheets("Resultat").Cells(8, 4).Value = Sheets("Resultat").Cells(8, 4).Value Selection.AutoFilter field:=6, Criteria1:="Ferme" Sheets("Resultat").Cells(8, 5).Formula = "=SUBTOTAL(9,Extra!C[2])" Sheets("Resultat").Cells(8, 5).Value = Sheets("Resultat").Cells(8, 5).Value Selection.AutoFilter field:=6, Criteria1:="Manutention" Sheets("Resultat").Cells(8, 6).Formula = "=SUBTOTAL(9,Extra!C[1])" Sheets("Resultat").Cells(8, 6).Value = Sheets("Resultat").Cells(8, 6).Value 'Copie les informations vers le bon mois du vendeur Sheets(OngletPorter).Cells(5, 5).Value = Sheets("Resultat").Cells(9, 4).Value Sheets(OngletPorter).Cells(5, 11).Value = Sheets("Resultat").Cells(9, 2).Value Sheets(OngletPorter).Cells(5, 7).Value = Sheets("Resultat").Cells(9, 3).Value Sheets(OngletPorter).Cells(5, 5).Value = Sheets("Resultat").Cells(9, 4).Value Sheets(OngletPorter).Cells(5, 9).Value = Sheets("Resultat").Cells(9, 5).Value Selection.AutoFilter field:=6 Selection.AutoFilter field:=1 Sheets("Resultat").Select End Sub Pourriez-vous me donner un coup de main. Merci!

[Déplacé .Net --> VBA] Aller chercher information dans un onglet sans ouvrir l'o

3 réponses

Votre réponse

Discussions similaires