Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

certaine colonnes d'un classeur ne se rajoute pas de façon automatique dans un autre

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion sniper
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
S

sniper

Guest
Bonjour,

J'ai un problème, je voudrais de l'aide j'aimerais que dans le classeur "prog" les colonne de M à U ne se rajoutent pas automatiquement dans le classeur "cotations" lorsque j'appuie dans le bouton 1 .
Merci bcp de toutes aide que vous pouvez m'apportez 😉
 

Pièces jointes

Trier par date Trier par votes
Re : certaine colonnes d'un classeur ne se rajoute pas de façon automatique dans un a

Salut sniper,

je ne vois pas trop où tes colonnes M à U sont copiées.. et comme ta macro ouvre des fichiers que nous n'avons pas. pas facile
cependant,

Code: 
Sub copier()                                                                                                               'déclarations des variables'
    Dim wbkc As Workbook, adr$, fin&, x$, wbks As Workbook, fin1&, i&, n$          'récupération du chemin du classeur en cours'
    adr = ThisWorkbook.Path                                                                                     'récupération de l'année en cours'
    Application.ScreenUpdating = 0
    Set wbks = ThisWorkbook
    x = Year(Date)
    Set wbkc = Workbooks.Open(adr & ":Cotations.xlsx") 'mac                                  'ouvre le fichier Cotations.xlsx'
    'Set wbkc = Workbooks.Open(adr & "\Cotations.xlsx")
    wbkc.Sheets(x).Select
    With wbkc.Sheets(x)
        fin = .Cells.Find("*", , xlValues, , 1, 2, 0).Row + 1
    End With
    With wbks.Sheets("Final")
        fin1 = .Cells.Find("*", , xlValues, , 1, 2, 0).Row + 1
    End With
    For i = fin1 To 2 Step -1
        If wbks.Sheets("Final").Cells(i, 2) <> "" Then
            wbks.Sheets("Final").Rows(i).Copy wbkc.Sheets(x).Rows(fin)
            fin = fin + 1
        End If
    Next i
    With wbks.Sheets("Final")
        fin1 = .Cells.Find("*", , xlValues, , 1, 2, 0).Row
    End With
    wbkc.Close 1                                                                                                      'ferme le classeur'
    'Set wbkc = Workbooks.Open(adr & "\Vsatech.xlsx")                                         'ouvre le fichier Vsatech.xlsx'
    Set wbkc = Workbooks.Open(adr & ":Vsatech.xlsx") 'mac
    wbkc.Sheets("Feuil1").Cells(4, 1) = CDate(wbks.Sheets("Final").Cells(fin1, 1))
    wbkc.Sheets("Feuil1").Cells(4, 3) = wbks.Sheets("Final").Cells(fin1, 2)
    wbkc.Sheets("Feuil1").Cells(3, 9) = wbks.Sheets("Final").Cells(fin1, 4)
    wbkc.Sheets("Feuil1").Cells(14, 3) = wbks.Sheets("Final").Cells(fin1, 9)
    'wbkc.Sheets("Feuil1").Cells(14, 1) = wbks.Sheets("Final").Cells(fin1, 15) 'colonne O
    wbkc.Sheets("Feuil1").Cells(14, 12) = "135 days" 'wbks.Sheets("Final").Cells(fin1, 4)
    'wbkc.Sheets("Feuil1").Cells(14, 14) = wbks.Sheets("Final").Cells(fin1, 16) 'colonne P
    n = wbks.Sheets("Final").Cells(fin1, 6) & " " & wbks.Sheets("Final").Cells(fin1, 7) & " " & wbks.Sheets("Final").Cells(fin1, 8)
    wbkc.Sheets("Feuil1").Cells(14, 5) = n
    wbkc.Close 1                                                                                                      'ferme le classeur'
    MsgBox "C'est Copié dans Vsatech et dans Cotations", , "Copie Terminée"                ' Affichage du message "copié dans Vsatech et dans Cotations" '
End Sub

Si tu lances la macro pas à pas (avec touche F8), tu devrais pouvoir détecter à quel moment tes colonnes sont copiées. ainsi, tu n'as plus qu'à les désactiver en les mettant en commentaire.
comme j'ai fait avec les colonnes O et P ci dessus
 
Vote positif 0 Vote négatif
Re : certaine colonnes d'un classeur ne se rajoute pas de façon automatique dans un a

salut vgendron,
j'ai mis le dernier document que ma macro utilise comme çà tu peut voir . J'ai essayé de mettre les colonnes O et P en commentaires mais çà me les rajoutent toujours dans le classeur "cotations" . Alors que moi j veux que çà rajoutent les colonnes A à L dans le classeur "cotations" .
merci bcp 😉
 

Pièces jointes

Vote positif 0 Vote négatif
Re : certaine colonnes d'un classeur ne se rajoute pas de façon automatique dans un a

bon. en y regardant de plus près.. c'est ici que ca se passe
Code: 
For i = fin1 To 2 Step -1
        If wbks.Sheets("Final").Cells(i, 2) <> "" Then
            wbks.Sheets("Final").Rows(i).Copy wbkc.Sheets(x).Rows(fin)
            fin = fin + 1
        End If
    Next i

et plus particulièrement avec cette ligne
Code: 
wbks.Sheets("Final").Rows(i).Copy wbkc.Sheets(x).Rows(fin)

ici tu copies TOUTE la ligne i

et toi tu ne veux que les colonnes A à L de la ligne i
il suffit donc de remplacer la ligne précédente par celle ci

Code: 
wbks.Sheets("Final").Range("A" & i & ":L" & i).Copy wbkc.Sheets(x).Rows(fin)
 
Vote positif 0 Vote négatif
Re : certaine colonnes d'un classeur ne se rajoute pas de façon automatique dans un a

salut vgendron,
j'aimerai dans mon programme que les cases du classeur "Vsatech" s'ajuste à la longueur des donnée saisie
merci bcp de votre aide 😉
 

Pièces jointes

Dernière modification par un modérateur:
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

M
  • Question Question
Microsoft 365 Mon TCD ne prend pas en compte le filtre de la table auquel il est lié.
Réponses
3
Affichages
316
chris
XLS : Modèle pour ouvrir un classeur sur une nouvelle Session Excel
Réponses
0
Affichages
738
Lu76Fer
N
  • Résolu(e)
Microsoft 365 Transfère de données d'un Userform vers un tableau structuré d'une feuille de calcul
Réponses
4
Affichages
530
NONO14
N
M
  • Résolu(e)
Microsoft 365 Gestion numéros de pages du classeur dans une cellule
2
Réponses
16
Affichages
2 K
sousou
R
  • Résolu(e)
Autres Masquer des lignes et colonnes en fonction d'une valeur d'un menu déroulant
Réponses
1
Affichages
659
Romain77144
R
K
  • Résolu(e)
Microsoft 365 Ouvrir un autre classeur excel (VBA) pour utiliser les données de celui dans le classeur actif
Réponses
5
Affichages
2 K
Dranreb
L
  • Question Question
XL 2016 Données de différentes cellules, de classeur différents vers un classeur maître en macro automatique
2
Réponses
19
Affichages
2 K
Hasco
M
  • Question Question
Microsoft 365 Pb de formules qui se modifient dans des cellules verrouillées
Réponses
14
Affichages
1 K
TooFatBoy
P
  • Résolu(e)
Microsoft 365 Retourner un autre résultat que le premier (mais non prédéfini) via formule de recherche
Réponses
4
Affichages
569
Pedrolitox
P
D
  • Résolu(e)
Microsoft 365 Récupérer des données d'un tableau dans un autre avec structure différente
Réponses
6
Affichages
921
Dam71
D
S
  • Question Question
Microsoft 365 Reporter le contenu de plusieurs cellules dans un autre classeur par VBA
Réponses
8
Affichages
881
fanch55
  • Question Question
XL 2016 Comment utiliser des zones (range) nommées ou définies dans un sous-programme
Réponses
14
Affichages
1 K
Phillip
B
  • Question Question
XL 2016 Créer un 2ème fichier excel en fonction de colonnes prises dans un autre fichier
Réponses
8
Affichages
818
Cousinhub
L
  • Question Question
Microsoft 365 Macro qui rempli automatique une feuille avec les informartions d'une autre sous conditions
2
Réponses
17
Affichages
2 K
chris
N
  • Question Question
XL 2016 =SOMME Pourquoi ca ne marche pas
Réponses
5
Affichages
1 K
job75
P
  • Question Question
XL 2016 Ligne qui se copie automatiquement sur une autre feuille, Transfert de ligne sur une autre page
Réponses
1
Affichages
1 K
PascaleMT
P
P
  • Résolu(e)
Microsoft 365 Transfert de ligne sur une autre feuille du même fichier selon condition.
Réponses
9
Affichages
2 K
Phil69970
X
  • Question Question
XL 2019 Extraire données d'un classeur vers un autre en réorganisant et renommant les colonnes
Réponses
10
Affichages
2 K
XLSM75
X
A
  • Question Question
Microsoft 365 Mise à jour d'un tableau Excel en VBA à partir d'un autre classeur
Réponses
3
Affichages
2 K
AlexiaC
A
  • Question Question
Microsoft 365 Création d'un onglet automatique
Réponses
3
Affichages
1 K
Roseline
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…