Insertion valeur dans une ligne vide Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
J
Jack95000
Jeune membre
Jeune membre
Messages : 21
Inscrit le : 22 juin 2018
Version d'Excel : 365

Message par Jack95000 » 24 mai 2019, 12:13

Bonjour à tous

Après plusieurs recherches infructueuses, je cherche le moyen de pouvoir insérer plusieurs valeurs de cellule dans un ligne vide.
exemple

feuil1 (valeur dans plusieurs cellules)
A1 B1 C1
A2 B2 C2
A3 B3 C3

après validation sur bouton, envoyer le contenu dans feuil2, dans une ligne vide à la suite.

exemple
feuil2

ligne 1 (on retrouve les valeurs dans chaque colonne)
ligne 2 ( pour prochain enregistrement, etc...)

Merci de vos lumières !
J
Jack95000
Jeune membre
Jeune membre
Messages : 21
Inscrit le : 22 juin 2018
Version d'Excel : 365

Message par Jack95000 » 24 mai 2019, 15:46

Pour vous aider si cela n'est pas claire, il s'agit de faire un TRANSPOSE dans un autre onglet en ajoutant toujours une nouvelle ligne.
transpose.xlsx
(12.46 Kio) Téléchargé 2 fois
Avatar du membre
Florian53
Membre fidèle
Membre fidèle
Messages : 397
Appréciations reçues : 26
Inscrit le : 3 juin 2015
Version d'Excel : Office 365

Message par Florian53 » 24 mai 2019, 16:07

Bonjour Jack95000,

Voici un essai :
transposev1.xlsm
(20.14 Kio) Téléchargé 5 fois
Les grandes réussites sont le fruit de l'apprentissage durable. Apprenez à apprendre chaque jour.

:btres:
J
Jack95000
Jeune membre
Jeune membre
Messages : 21
Inscrit le : 22 juin 2018
Version d'Excel : 365

Message par Jack95000 » 24 mai 2019, 16:36

Génial, c'est ce que je souhaitais.
Néanmoins, pour adapter ce code par la suite, à quoi sert les variables i j et k ?
Dim i&, j&, derlgntab&, Dercol&, Derlgn&, k&
Si je dois prendre une cellule en plus, qu'elle partie je dois adapter ?
Avatar du membre
Florian53
Membre fidèle
Membre fidèle
Messages : 397
Appréciations reçues : 26
Inscrit le : 3 juin 2015
Version d'Excel : Office 365

Message par Florian53 » 29 mai 2019, 09:58

Bonjour Jack95000 ,
Sub test()
Dim Ws As Worksheet, Ws_BDD As Worksheet, fileB As Worksheet
Dim tab_BDD, tablo()
Dim i&, j&, derlgntab&, Dercol&, Derlgn&, k&

' Liste des variables:
				'i: variable qui est utilisé afin de boucler les lignes du  tableau "tab_BDD" 
				'j: variable qui est utilisé afin de boucler les colonnes du  tableau "tab_BDD"
				'Derlgn: variable qui est utilisé pour calculer la dernière ligne du tableau "tab_BDD" 
				'Derlcol: variable qui est utilisé pour calculer la dernière colonne du tableau "tab_BDD" 
				'derlgntab: variable qui est utilisé pour calculer la dernière ligne utilisé de l'onglet "Bdb"
				'k: variable qui est utilisé pour redimensionner le tableau "tablo(k)" en fonctio du nombre de donnée indiqué dans le tableau "tab_BDD" (ex: 7 prénoms trouvé dans le tableau  "tab_BDD" alors ==> tablo(k)=tablo(7) )

    Set Ws_BDD = ThisWorkbook.Sheets("Saisie")
    Set Ws = ThisWorkbook.Sheets("Bdb")
    
    Dercol = Ws_BDD.Cells(2, Cells.Columns.Count).End(xlToLeft).Column
    Derlgn = Ws_BDD.Cells(Cells.Rows.Count, 2).End(xlUp).Row
    
    tab_BDD = Ws_BDD.Range(Ws_BDD.Cells(2, 2), Ws_BDD.Cells(Derlgn, Dercol))
    
    k = 0
    For i = 1 To UBound(tab_BDD, 1)
        For j = 1 To UBound(tab_BDD, 2)
            ReDim Preserve tablo(k)
            If Not tab_BDD(i, j) = Empty Then tablo(k) = tab_BDD(i, j): k = k + 1
        Next j
    Next i

    derlgntab = Ws.Cells(Cells.Rows.Count, 1).End(xlUp).Row + 1
    Ws.Range("A" & derlgntab).Resize(1, UBound(tablo, 1) - 1) = tablo
    
End Sub
Les grandes réussites sont le fruit de l'apprentissage durable. Apprenez à apprendre chaque jour.

:btres:
J
Jack95000
Jeune membre
Jeune membre
Messages : 21
Inscrit le : 22 juin 2018
Version d'Excel : 365

Message par Jack95000 » 30 mai 2019, 12:44

Merci Florian53
Comprendre est toujours mieux que faire bêtement
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message