comment remplacer une feuille excel par le contenu d'une autre excel qui se trouRésolu

Question

bonjour,


j'aimerai que vous m'aider pour deux choses si cela est possible :


- que signifie ce code :


For K = 1 To Sheets("calcul").Cells(3, 2)
    Sheets("transimprim").Cells(1, Sheets("calcul").Cells(2, 2) + K) = Sheets("Qualité").Cells(1, K)
Next

- comment remplacer une feuille excel par le contenu d'une autre excel qui se trouve dans un autre classeur en vba ?

merci d'avance

drikce06 · Accepted Answer

salut
 
pour le code je sais pas sinon pour récupérer une autre feuille tu peux faire comme ça

Supprime la feuille que tu veux remplacer
Workbooks("Classeur2").Sheets(3).delete

copies la feuille de ton autre classeur dans celui ou tu as supprimer la feuille
Workbooks("Classeur1").Sheets("Feuil3").Copy Before(ou after):=Workbooks("Classeur2").Sheets(3)

Petite astuce: si il t a un code que tu ne connait pas enregistre une macro dans excel et va dans vba pour voir le code qui correspond à l'enregistrement que tu as fait.

 Drikce 06

valtrase · Answer

Salut,
Pour le code :
For K = 1 To Sheets("calcul").Cells(3, 2)
    Sheets("transimprim").Cells(1, Sheets("calcul").Cells(2, 2) + K) = Sheets("Qualité").Cells(1, K)
Next
La syntaxe de For 1 to 10 par exemple, ici le dix et remplacer par la valeur de la cellule "B3" de la feuille "Calcul"
Pour le reste c'est pareil on prend une valeur de colonne qui setrouve dans la cellule "B2" de la feuille "Calcul" on y rajoute K. 
NB si tu as Sheets("calcul").Cells(3, 2) en VBA par défaut le code te renverra la propriété.Value donc Sheets("calcul").Cells(3, 2).Value

Cordialement, Jean-Paul  
______________________________________________________________________

Le Savoir n'a de valeur que s'il est partagé

Comment remplacer une feuille excel par le contenu d'une autre excel qui se trou

2 réponses

Votre réponse

Discussions similaires