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

Microsoft 365 VBA coller valeur sur la première ligne vide

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

raf26

XLDnaute Occasionnel
Bonjour le forum,

J'ai besoin de votre aide pour une macro

Je souhaite copier / coller les valeurs (seulement les valeurs) d'une sélection dans la première ligne vide d'un tableau MAIS à partir de la colonne B (la colonne A de ce tableau sera complétée manuellement).

Je précise que les valeurs C5:I5 de la feuille Donnees seront supprimées par une autre macro après la copie.

Ci-joint un fichier test (aucune macro)

Merci d'avance et bon week-end de Pâques à vous.

Cordialement
 

Pièces jointes

Dernière édition:
Solution
Bonsoir,
Une table structurée n'a pas vocation a être limitée et comme le dit @job75 (que je salue ) à avoir des lignes vides .
Votre objectif semble de vouloir garder un nombre de lignes fixe, c'est votre choix
mais n'effectuez pas la macro trop de fois, le tableau va être vite rempli .
VB: 
Option Explicit
Sub Importer()
Dim Wsd As Worksheet, Line As Range, Target As Range
Dim Lr As Long, Dt As Long
    Set Wsd = Worksheets("donnees")
        Lr = Wsd.Cells(Wsd.Rows.Count, "C").End(xlUp).Row
        Dt = [Import[#Headers]].Row
        For Each Line In Wsd.Range("C5:I" & Lr).Rows
            Set Target = [Import[Nom]].Find("", LookIn:=xlValues, lookat:=xlWhole)
            If Not Target Is Nothing Then...
Trier par date Trier par votes
Bonjour
code adapté :
VB: 
Sub Importer()
Dim Wsd As Worksheet
Dim Lr As Long, K As Long
    Set Wsd = Worksheets("donnees")
        Lr = Wsd.Cells(Wsd.Rows.Count, "C").End(xlUp).Row
        For Each Line In Wsd.Range("C5:I" & Lr).Rows
            K = [Import].ListObject.ListRows.Add.Index
            [Import].Cells(K, 2).Resize(, 7) = Line.Value
        Next
    Set Wsd = Nothing
End Sub
 
Vote positif 0 Vote négatif
Bonjour fanch55

Merci pour ton retour, marche nickel sur mon fichier test.

Par contre, j'avais mal expliqué le tableau de destination (Import) dans ce fichier test.

Sur mon fichier réel, le tableau Import est déjà dimensionné, du coup la macro bloque

Ci-joint le fichier test modifié qui ressemble plus à mon fichier réel

Cordialement
 

Pièces jointes

Vote positif 0 Vote négatif
Bonsoir raf26, fanch55,

Les tableaux structurés ne sont pas faits pour fonctionner avec des lignes entièrement vides.

Mais bon vous pouvez toujours utiliser cette macro :
VB: 
Sub Importer()
Dim c As Range
With [Import]
    Set c = .Columns(2).Find("*", , xlValues, , , xlPrevious)
    With Sheets("Donnees").[C4].CurrentRegion.Resize(, 7)
        If .Rows.Count > 1 Then c(2).Resize(, 7) = .Rows(2).Resize(.Rows.Count - 1).Value
    End With
    .Parent.Activate 'facultatif
End With
End Sub
A+
 
Vote positif 0 Vote négatif
Bonsoir,
Une table structurée n'a pas vocation a être limitée et comme le dit @job75 (que je salue ) à avoir des lignes vides .
Votre objectif semble de vouloir garder un nombre de lignes fixe, c'est votre choix
mais n'effectuez pas la macro trop de fois, le tableau va être vite rempli .
VB: 
Option Explicit
Sub Importer()
Dim Wsd As Worksheet, Line As Range, Target As Range
Dim Lr As Long, Dt As Long
    Set Wsd = Worksheets("donnees")
        Lr = Wsd.Cells(Wsd.Rows.Count, "C").End(xlUp).Row
        Dt = [Import[#Headers]].Row
        For Each Line In Wsd.Range("C5:I" & Lr).Rows
            Set Target = [Import[Nom]].Find("", LookIn:=xlValues, lookat:=xlWhole)
            If Not Target Is Nothing Then
                [Import[Nom]].Rows(Target.Row - Dt).Resize(, 7) = Line.Value
            Else
                MsgBox "Il n'y a plus de place pour importer !!!", vbCritical
            End If
        Next
    Set Wsd = Nothing
End Sub

Par ailleur, la formule de la colonne Total pour ne pas afficher de zéro non voulu, peut-être modifiée ainsi:
=SI(NBVAL(IMPORT[@[Poires]:[Abricot]])>0;SOMME(IMPORT[@[Poires]:[Abricot]]);"")

et la validation de la colonne Contrôle Commande peut être simplifiée dans votre cas :
 
Vote positif 0 Vote négatif
Solution
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

M
  • Résolu(e)
XL 2019 saisie sur la première ligne vide depuis un formulaire
Réponses
8
Affichages
58
Mimi1952
M
D
  • Question Question
XL 2010 Recherche cellule vide sur une ligne
Réponses
9
Affichages
332
job75
P
  • Question Question
XL 2016 Macro VBA remplissage tableau de synthèse % déchet ligne de production
Réponses
4
Affichages
53
vgendron
R
  • Question Question
XL 2016 "#valeur!" dans ligne et colonne et camemberts
Réponses
7
Affichages
285
Rikko14
R
S
  • Résolu(e)
XL 2013 Copier-Coller une ligne dans tableau variable, et la manipuler.
Réponses
4
Affichages
41
StéphaneDeLà
S
  • Résolu(e)
Microsoft 365 VBA - BeforeDoubleClick, 1ère cellule vide à partir de cellule active pour insertion de ligne
Réponses
4
Affichages
174
AlCapone
P
  • Question Question
XL 2016 VBA Appliquer un filtre sur mes données importées
Réponses
4
Affichages
72
sousou
L
  • Résolu(e)
Microsoft 365 Retourner l'en-tête colonne correspondante à une quantité donnée dans une ligne
Réponses
4
Affichages
47
LegVal
L
A
  • Résolu(e)
XL 2016 Copier Coller données avec VBA dernière cellules vide
Réponses
13
Affichages
724
Anto35200
A
A
  • Résolu(e)
XL 2016 Recherche d'un mot dans une cellule et surlignage de la ligne
Réponses
4
Affichages
66
Abi23
A
  • Question Question
Microsoft 365 Variable tableau : coller uniquement une partie des colonnes
2 3
Réponses
31
Affichages
1 K
BenHarber
D
  • Question Question
XL 2010 Trouver dernière cellule vide sur une ligne
Réponses
6
Affichages
390
TooFatBoy
P
  • Question Question
XL 2019 Macro VBA appliquer un filtre lors d'une importation de données
Réponses
1
Affichages
44
fanch55
S
  • Question Question
Microsoft 365 Référer à la première cellule non vide en haut
Réponses
3
Affichages
458
ShrekL
S
P
  • Résolu(e)
XL 2021 Besoin d'aide pour copier/coller données de plusieurs classeurs
2
Réponses
20
Affichages
748
Pac41240
P
F
  • Résolu(e)
Microsoft 365 copier coller des colonnes en fonction de la valeur d'une cellule
Réponses
8
Affichages
669
loloboc
L
V
  • Question Question
XL pour MAC outil coller le contenu du presse papier
Réponses
2
Affichages
576
Valter
V
O
  • Question Question
XL 2019 erreur de valeur sur formule
2
Réponses
18
Affichages
836
olivier1984
O
G
  • Résolu(e)
XL 2013 copier coller valeur d'une colonne dynamique
Réponses
13
Affichages
650
gwenn49
G
  • Résolu(e)
XL 2016 Erreur dans code VBA
4 5 6
Réponses
76
Affichages
2 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…