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

Collage de cellules non vides dans une plage ciblee

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion FlW95
  • 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
F

FlW95

XLDnaute Nouveau
Bonjour à tous,
Je cherche l'aide à propos de ce souci : j'aimerai récupérer les donnés non vides d'une plage de départ située dans un 1er classeur pour les coller dans une plage précise d'arrivée d'un deuxième classeur . Je pense ne pas en être loin, j'arrive à récupérer les valeurs mais pas moyen de les mettre là où je voudrais. Voici mon code actuellement :
Windows("fichier1. Xlsm"). Activate
Sheets("feuil1").Select

For each Cel in Worksheets("Feuil1"). Range("B20:B44").Cells

Cel. Copy sheets("Feuil2"). Range("D15😀" & Rows. Count). End(xlUp) .offset(1,0)

'Ma plage d'arrivée serait de D15 à D+
Next

De plus, quelle serait la syntaxe afin de changer de classeur pour le collage svp?
Merci par avance
 
Trier par date Trier par votes
Re,

Bon pour gagner du temps voyez les fichier joints et cette macro dans le fichier Source.xlsm :
Code: 
Sub Transfert()
Dim chemin$, fichier$, feuille$, tablo, i&, n&, c As Range
chemin = ThisWorkbook.Path & "\" 'à adapter
fichier = "Destination.xlsx" 'à adapter
feuille = "Feuil1" 'à adapter
If Dir(chemin & fichier) = "" Then MsgBox "'" & fichier & "' est introuvable...": Exit Sub
With [B20:B44]
    tablo = .Value 'matrice plus rapide
    For i = 1 To UBound(tablo)
        If tablo(i, 1) <> "" Then n = n + 1: tablo(n, 1) = tablo(i, 1)
    Next
End With
If n = 0 Then MsgBox "Aucune valeur à transférer...": Exit Sub
Application.ScreenUpdating = False
Application.DisplayAlerts = False 'si le fichier est déjà ouvert
With Workbooks.Open(chemin & fichier).Sheets(feuille)
    If .FilterMode Then .ShowAllData 'si la feuille est filtrée
    Set c = .Range("D" & .Rows.Count).End(xlUp)(2)
    If c.Row < 15 Then Set c = .[D15]
    c.Resize(n) = tablo
    .Activate
    .Parent.Save 'enregistrement (facultatif)
End With
End Sub
Les 2 fichiers sont à télécharger dans le même répertoire (le bureau).

A+
 

Pièces jointes

Vote positif 0 Vote négatif
Merci pour le travail effectué,
Après l'avoir adapté, je réussi bien à ouvrir le fichier destination.
Cependant, les opérations de la macro concernant le fichier destination ne peuvent s'effectuer. Il apparait le bug "Décision ou non méthode n'appartient pas à cet objet"
Je pense que cela est dû au fait que le fichier destination est un fichier protégé, il ne possède d'ailleurs pas d'onglet apparent (onglet Feuil1 par exemple) avec certaines cellules protégées. J'ai d'ailleurs modifié le code sans l'indication de Sheets.(feuille) à la fin d l'instruction afin de pouvoir l'ouvrir correctement.
Il est toutefois bien possible de toucher à certaines cellules dont celles visées pour ce transfert de données.
Ce statut de fichier "protégé" peut il empêcher les actions possibles par une macro d'un fichier extérieur ?
Par ailleurs, ce fichier protégé de destination est un xls, cela ne joue pas sur l'exécution d'une macro extérieure contenue dans un fichier xlsm n'est-ce pas?
Cordialement
 
Vote positif 0 Vote négatif
Re,

Il n'y a aucune protection dans le fichier de destination et son extension n'est pas .xls !

Aucun problème avec les fichiers joints, j'ai juste un peu modifié la macro :
Code: 
Sub Transfert()
Dim chemin$, fichier$, feuille$, tablo, i&, n&
chemin = ThisWorkbook.Path & "\" 'à adapter
fichier = "classeur_arrivee.xlsm" 'à adapter
feuille = "Feuil1" 'à adapter
If Dir(chemin & fichier) = "" Then MsgBox "'" & fichier & "' est introuvable...": Exit Sub
tablo = [B20:C44] 'matrice plus rapide
For i = 1 To UBound(tablo)
    If tablo(i, 1) <> "" Then n = n + 1: tablo(n, 1) = tablo(i, 1): tablo(n, 2) = tablo(i, 2)
Next
Application.ScreenUpdating = False
Application.DisplayAlerts = False 'si le fichier est déjà ouvert
With Workbooks.Open(chemin & fichier).Sheets(feuille)
    If .FilterMode Then .ShowAllData 'si la feuille est filtrée
    .Range("D15:I" & .Rows.Count).Delete xlUp 'RAZ
    If n Then
        .[D15].Resize(n, 2) = tablo
        .[D15].Resize(n, 6).Borders.Weight = xlThin 'bordures sur6 colonnes
    End If
    .Activate
End With
End Sub
A+
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Ok merci,
Etant donné que le fichier de destination originel est un document confidentiel et protégé, je l'ai adapté et mis dans un classeur classique xlsm non protégé.
Je vais essayer avec ce code et voir ce que ça donne avec le fichier original, merci
 
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

Discussions similaires

S
  • Résolu(e)
Microsoft 365 VBA Concaténer contenu de plusieurs cellules dans une seule avec séparateurs / évolutifs
Réponses
3
Affichages
301
spike29
S
Y
  • Question Question
Microsoft 365 récupérer données de tableau structuré sur une plage
Réponses
2
Affichages
586
jpb388
T
  • Résolu(e)
XL 2010 Formule - Si 2 cellules non vides sur une plage de cellules
Réponses
5
Affichages
706
Titi456
T
  • Question Question
Microsoft 365 VBA :trouver une première ligne non vide dans une matrice
Réponses
12
Affichages
2 K
Deadpool_CC
V
  • Résolu(e)
Microsoft 365 VBA effacer plusieurs cellules en fonctionde la valeur d'une dans une boucle for
2 3
Réponses
39
Affichages
3 K
vincent32
V
G
  • Question Question
Microsoft 365 Incompatibilité de type - Array
Réponses
2
Affichages
573
guiyom
G
R
  • Question Question
XL 2013 Sélectionner des cellules vides dans une colonne par rapport à une autre cellule
Réponses
9
Affichages
563
Romain31
R
N
  • Question Question
XL 2016 Recherche dans une macro pour changer la plage de données où importer
Réponses
5
Affichages
630
vgendron
  • Question Question
XL 2016 Aide pour userform (sujet clos)
Réponses
8
Affichages
554
tactic6
V
  • Résolu(e)
Microsoft 365 Macro pour sélectionner une plage de cellules selon une couleur de remplissage donnée
Réponses
2
Affichages
1 K
vash966
V
  • Question Question
XL 2016 Remplacer cellules vides par zéro dans plage variable.
Réponses
2
Affichages
809
job75
M
  • Question Question
XL 2013 VBA-Envoyer par email "Plage de cellules collée dans un nouveau classeur en gardant formules de certaines cellules
Réponses
2
Affichages
934
MONTREAL2020
M
C
  • Résolu(e)
XL 2016 Remplir automatiquement un tableau d'après des conditions et des valeurs
Réponses
11
Affichages
2 K
ERIC S
B
  • Résolu(e)
Microsoft 365 attribuer un nom à une plage de cellules issues d'un collage
Réponses
2
Affichages
692
bzhjenny
B
  • Question Question
Microsoft 365 VBA Boucle 2 critères plage sur autre feuille
Réponses
5
Affichages
1 K
herve62
  • Résolu(e)
Microsoft 365 Ecriture de formules dans VBA sur cellules non vides
2
Réponses
16
Affichages
2 K
danielco
D
  • Question Question
XL 2010 Fonction nb.si sur une plage contenant des formules
Réponses
6
Affichages
1 K
Hasco
B
  • Question Question
Microsoft 365 Macro: Intégrer un plage nommé dans une Formule excel
Réponses
2
Affichages
1 K
eriiic
M
  • Question Question
XL 2010 Copier/coller des cellules non contiguës dans un nouveau classeur
Réponses
4
Affichages
3 K
Staple1600
M
  • Résolu(e)
XL 2019 modifier format police mot seul dans plusieurs cellules EXCEL
3 4 5
Réponses
60
Affichages
8 K
patricktoulon
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…